[Release]Sniper Bot + Source Code[au3]

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
HotKeySet("{F1}","_pressf1")
HotKeySet("{F2}","_pressf2")
HotKeySet("{F4}","_quitter")
Global $wid = @DesktopWidth / 2, $hei = @DesktopHeight / 2
Global $dl = DllOpen("user32.dll")
Global $o = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("XHRe Sniper[Bot]", 281, 255, 192, 124)
GUISetIcon("D:\333sa.ico", -1)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("Sniper Bot", 8, 8, 185, 121)
$Button1 = GUICtrlCreateButton("Start Bot!", 16, 24, 171, 25, $BS_FLAT)
$Button2 = GUICtrlCreateButton("Stop Bot!", 16, 55, 171, 25, $BS_FLAT)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("0.10", 16, 96, 169, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("F1: Start Bot !", 200, 16, 69, 17)
$Label3 = GUICtrlCreateLabel("F2: Stop Bot !", 200, 40, 69, 17)
$Group2 = GUICtrlCreateGroup("Cam Hack", 8, 136, 185, 89)
$Label6 = GUICtrlCreateLabel("Cam", 96, 152, 25, 17)
$Input2 = GUICtrlCreateInput("350", 16, 168, 169, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label7 = GUICtrlCreateLabel("F3: Cam Hack!", 200, 64, 75, 17)
$Label4 = GUICtrlCreateLabel("XHRe", 200, 88, 53, 17)
msgbox(0, "Information", "F1 Start - F2 Stop - F4 quit")
TrayTip("XHRe Bot" , "F1 Start - F2 Stop - F4 quit" , 0)


#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            GUICtrlSetState($Button1, $gui_disable)
            GUICtrlSetState($Button2, $gui_enable)
            Global $o = 1
        Case $Button2
            GUICtrlSetState($Button1, $gui_enable)
            GUICtrlSetState($Button2, $gui_disable)
            Global $o = 0
        Case $Button3
            _pressf3()
    EndSwitch

    If _pressedon() Then
        If NOT $o = 1 Then
                    GUICtrlSetState($Button1, $gui_disable)
            GUICtrlSetState($Button2, $gui_enable)
            Global $o = 1
        EndIf
    EndIf
    If _pressedoff() Then
        If NOT $o = 0 Then
            GUICtrlSetState($Button1, $gui_enable)
            GUICtrlSetState($Button2, $gui_disable)
            Global $o = 0
        EndIf
    EndIf
    If $o = 1 Then
        PixelSearch($wid, $hei, 20, 300, 16711680, 10)
        If NOT @error AND _pressedleft() Then MouseClick("left")
        Sleep(GUICtrlRead($Input1))
    EndIf
WEnd

Func _pressedleft()
    Local $a_r = DllCall($dl, "short", "GetAsyncKeyState", "int", "0x01")
    If @error Then Return SetError(@error, @extended, False)
    Return BitAND($a_r[0], 32768) <> 0
EndFunc

Func _pressedon()
    Local $a_r = DllCall($dl, "short", "GetAsyncKeyState", "int", "0x7B")
    If @error Then Return SetError(@error, @extended, False)
    Return BitAND($a_r[0], 32768) <> 0
EndFunc

Func _pressedoff()
    Local $a_r = DllCall($dl, "short", "GetAsyncKeyState", "int", "0x7A")
    If @error Then Return SetError(@error, @extended, False)
    Return BitAND($a_r[0], 32768) <> 0
EndFunc
Func _pressf1()
        GUICtrlSetState($Button1, $gui_disable)
    GUICtrlSetState($Button2, $gui_enable)
    Global $o = 1
EndFunc
Func _pressf2()
        GUICtrlSetState($Button1, $gui_enable)
            GUICtrlSetState($Button2, $gui_disable)
            Global $o = 0
EndFunc