justneedtocheck
Новичок
- Сообщения
- 2
- Репутация
- 0
InnI сказал(а):
Virus Total
Архив (7/61)
https ://www. virustotal.com/#/file/6409b472501fe844c71f19809902080edc8a0a7d22633b0414314f150d7ae452/detection
Exe файл (12/66)
https ://www. virustotal.com/#/file/3ccf0a80b47427e6c3e102beef8921f0e9ed80a3f48040a61f51ef33cd086226/detection
Как быть? :/
UPD.Скомпилил сам,но все же что с файлом?
Добавлено:
Сообщение автоматически объединено:
Спасибо,InnI,немного переделал код под свои нужды,а именно сменил левую кнопку на правую и добавил возможность выбора промежутка,в котором будет находится значение,определяющее частоту кликов (также было необходимо для себя,в общем не особо полезно,наверное)
Если тут есть недочеты/что-то не так сделал - пишите!
Опыта у меня 0,все по справочнику...
Для поисковика:
Кликер для дота2;clicker for dota2;Кликер для дотки;Кликер на правую кнопку :D
Готовый exe файл - https :// files.fm/u/8bmwpw76
Virus Total - https ://www. virustotal.com/#/file/ccef9b01684878c46d385d69fd0212ffe56ee649f1b3625de133cf9b4cc1842a/detection
*Только эвристика,тут думаю все понятно,тем не менее код ниже при компиляции выдаст тот же файл,так что как хотите
Код:
#include <Misc.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
HotKeySet("{F7}", "Start") ;Start-Pause
HotKeySet("+{F7}", "Quit") ;Выйти // + это shift
$GUI = GUICreate("Кликер", 470, 115)
$InpDownUp = GUICtrlCreateInput("", 5, 5, 50, 20, 0x2000)
GUICtrlSetData(-1, Abs(Int(IniRead(@ScriptDir & "\DelaySets.ini", "Delay", "DownUpDelay", "5"))))
GUICtrlCreateLabel("задержка в миллисекундах между нажатием и отпусканием кнопки мыши", 70, 5, 380, 20, 0x0200)
$InpClicks1 = GUICtrlCreateInput("", 5, 30, 50, 20, 0x2000)
GUICtrlSetData(-1, Abs(Int(IniRead(@ScriptDir & "\DelaySets.ini", "Delay", "ClicksDelay1", "71"))))
$InpClicks2 = GUICtrlCreateInput("", 65, 30, 50, 20, 0x2000)
GUICtrlSetData(-1, Abs(Int(IniRead(@ScriptDir & "\DelaySets.ini", "Delay", "ClicksDelay2", "84"))))
GUICtrlCreateLabel("(От - До) задержка в миллисекундах между одиночными кликами", 120, 30, 380, 20, 0x0200)
GUICtrlCreateLabel("F7 - установка/снятие кликера с паузы", 5, 55, 230, 20, 0x0200)
GUICtrlCreateLabel("Shift+F7 - прекращение работы скрипта", 5, 80, 230, 20, 0x0200)
$BtnStart = GUICtrlCreateButton("Готово", 300, 55, 100, 45)
GUISetState()
Do
Switch GUIGetMsg()
Case -3
Exit
Case $BtnStart
IniWrite(@ScriptDir & "\DelaySets.ini", "Delay", "DownUpDelay", GUICtrlRead($InpDownUp))
IniWrite(@ScriptDir & "\DelaySets.ini", "Delay", "ClicksDelay1", GUICtrlRead($InpClicks1))
IniWrite(@ScriptDir & "\DelaySets.ini", "Delay", "ClicksDelay2", GUICtrlRead($InpClicks2))
ExitLoop
EndSwitch
Until 0
Global $DownUpDelay = GUICtrlRead($InpDownUp)
Global $ClicksDelay1 = GUICtrlRead($InpClicks1)
Global $ClicksDelay2 = GUICtrlRead($InpClicks2)
Global $Start = True
GUIDelete($GUI)
Do
If $Start Then
If _IsPressed("02") Then ;id кнопки,справка - http://autoit-script.ru/autoit3_docs/libfunctions/_ispressed.htm
Do
Global $ClicksDelay = Random($ClicksDelay1, $ClicksDelay2, 1);то самое генерирование рандом числа
$tPoint = _WinAPI_GetMousePos()
$hWin = _WinAPI_WindowFromPoint($tPoint)
_WinAPI_ScreenToClient($hWin, $tPoint)
RightDownUp($hWin, $tPoint.X, $tPoint.Y, $DownUpDelay)
Sleep($ClicksDelay)
Until Not _IsPressed("02") ;id кнопки,справка - http://autoit-script.ru/autoit3_docs/libfunctions/_ispressed.htm
EndIf
EndIf
Sleep(10)
Until 0
Func RightDownUp($hWnd, $X, $Y, $Sleep = 0);
_WinAPI_PostMessage($hWnd, $WM_RBUTTONDOWN, 0, _WinAPI_MakeLong($X, $Y));
_WinAPI_PostMessage($hWnd, $WM_SETCURSOR, $hWnd, _WinAPI_MakeLong($HTCLIENT, $WM_RBUTTONDOWN));
If $Sleep Then Sleep($Sleep)
_WinAPI_PostMessage($hWnd, $WM_RBUTTONUP, 0, _WinAPI_MakeLong($X, $Y));
_WinAPI_PostMessage($hWnd, $WM_SETCURSOR, $hWnd, _WinAPI_MakeLong($HTCLIENT, $WM_RBUTTONUP));
EndFunc
Func Start()
$Start = Not $Start
EndFunc
Func Quit()
Exit
EndFuncДобавлено:
Сообщение автоматически объединено:
justneedtocheck сказал(а):
InnI,посмотри пожалуйста мой код (и может стоит свой)
Все работает,но клики повторяются лишь когда я двигаю мышкой,в одной точке отказывается повторять,делает 1 клик и прекращает
Пробовал и полноэкранный режим и оконный,не помогает (хотя в том же текстовике много раз подряд выбивает меню)
С полным экраном так же