[AutoIT]BOT

[Juri_gag]

;Include------------------------------------------------------------------
#include <GUIConstants.au3>
;Func HotKey's------------------------------------------------------------
HotKeySet("{F5}", "StartStopAutoHeal")
HotKeySet("{F6}", "StartStopRightClickor")
;Global var---------------------------------------------------------------
$AH = 0
$M = 0
$a = 0
;GUI SetUp----------------------------------------------------------------
Opt("GUIOnEventMode", 1)
GUICreate("AutoHeal", 170, 75)
GUISetOnEvent($GUI_EVENT_CLOSE, "CloseAndExit")
GUICtrlCreateLabel("Start/Stop Auto Heal - F5", 25, 10)
GUICtrlCreateLabel("Start/Stop Right Clickor - F6", 20, 25)
$AutoHealStat = GUICtrlCreateLabel("Auto Heal - Off", 55, 40)
$RightClickorStat = GUICtrlCreateLabel("Right Clickor - Off", 45, 55)
;Show Form----------------------------------------------------------------
GUISetState(@SW_SHOW)
;PPM
While 1
    If $AH = 1 Then
        WinActivate("MU")
        Send("q")
        Sleep(3000)
    EndIf
    If $M = 1 Then
        WinActivate("MU")
        MouseDown("right")
        MouseUp("right")
    EndIf
WEnd
;Func StartStopAutoHeal---------------------------------------------------
Func StartStopAutoHeal()
    If $AH = 0 Then
        $AH = 1
        GUICtrlSetData($AutoHealStat, "Auto Heal - On")
    Else
        $AH = 0
        GUICtrlSetData($AutoHealStat, "Auto Heal - Off")
    EndIf    
EndFunc
;Func StartStopRightClickor
Func StartStopRightClickor()
    IF $M = 0 Then
        $M = 1
        GUICtrlSetData($RightClickorStat, "PPM - On")
    Else
        $M = 0
        GUICtrlSetData($RightClickorStat, "PPM - Off")
        EndIf
EndFunc
    
;Func CloseAndExit--------------------------------------------------------
Func CloseAndExit()
    $AH = 0    
    Exit
EndFunc

O to mój sprytny bot, interesuje mnie jeden problem, gdy wciskam odzielnie te klawisz F5 i F6 łaźi tak jak chce, jednak gdy już ma ze soba współgrac to przez wcisaknie Q, przez Sleep, spowalnia wciskanie PPM z taką prędkością jaką jest zrobiony ten Sleep. Jak temu zaradzic?

 

[mikulo]

A co ten bot ma robić

 

[discovery44]

Nie dość że odkopujesz stare tematy to jeszcze bezsensowne pytania zadajesz. Nie pierwszy raz z resztą. Nie trzeba znać tego języka żeby wiedzieć jak program zadziała. No ale gdybyś się nie domyślał przez dłuższy czas - ma wciskać 'q' i klikać prawym przyciskiem myszy na zawołanie. Znowu nie rozumiem po co chcesz wiedzieć co ten bot ma robić.

Juri_gag -

If $AH = 1 Then
        WinActivate("MU")
        Send("q")
        Sleep(3000)
    EndIf
    If $M = 1 Then
        WinActivate("MU")
        MouseDown("right")
        MouseUp("right")
    EndIf

Po wciśnięciu q czekasz 3 sekundy. Gdy uruchamiasz obie opcje na raz: q,3sek, mysz. Dodaj sobie opcję pod F7: q,100ms, mysz:

If $NOWA = 1 Then
        WinActivate("MU")
        Send("q")
        Sleep(100)
        MouseDown("right")
        MouseUp("right")
    EndIf