#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
$mainwindow = GUICreate("Shui Hu Bot", 200, 100)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlCreateLabel("click Start de bat dau", 30, 10)
$okbutton = GUICtrlCreateButton("Start", 70, 50, 60)
GUICtrlSetOnEvent($okbutton, "_attack")
GUISetState(@SW_SHOW)
While 1
Sleep(1000) ; Idle around
WEnd
Func _check()
$coord = PixelSearch(146,132,179,135,0x5a555a)
if not @error Then;
send("{F1}")
sleep(30000)
EndIf
EndFunc
func _attack()
Sleep(1000)
$i=0
$a=0
$b=0
while $i<1000
$x = 460
$y = 150
$toado = PixelSearch(202,104,875,565,0x00FF00)
if not @error Then
For $a=0 To 100
for $b=0 to 30
if hex(PixelGetColor($toado[0]+$a,$toado[1]+$b),6)="00FF00" and (hex(PixelGetColor($toado[0]+$a+1,$toado[1]+$b),6)="00FF00"or hex(PixelGetColor($toado[0]+$a,$toado[1]+$b+1),6)="00FF00")Then
_MouseMovePlus(($toado[0]+$a+20)*(65535/@DesktopWidth), ($toado[1]+$b+30)*(65535/@DesktopHeight),1)
MouseClick("left")
send("{F2}")
$i=$i+1
sleep(1000)
$c = PixelSearch(457,149,471,151,0xffffff)
if not @error Then
if hex(PixelGetColor($c[0],$c[1]),6)="ffffff" then
while hex(PixelGetColor($x,$y),6)="ffffff"
$c = PixelSearch(457,149,471,151,0xffffff)
if not @error then
$x = $c[0]
$y = $c[1]
EndIf
WEnd
EndIf
EndIf
_check()
EndIf
Next
Next
EndIf
Send("{F3}")
sleep(1000)
WEnd
EndFunc
Func _MouseMovePlus($X, $Y,$absolute = 0)
Local $MOUSEEVENTF_MOVE = 1
Local $MOUSEEVENTF_ABSOLUTE = 32768
DllCall("user32.dll", "none", "mouse_event", _
"long", $MOUSEEVENTF_MOVE + ($absolute*$MOUSEEVENTF_ABSOLUTE), "long", $X, "long", $Y, "long", 0, "long", 0)
EndFunc
Func CLOSEClicked()
Exit
EndFunc
.Ai rảnh dịch hộ từ bên đó xem đi.
. Máu kiếm hiệp nhưng chưa kiếm được game nào phù hợp để chơi.
