Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
#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
hellboy02 nói:Minh cugn vay thoi,chi don gian dung vong lap va xu ly don gian thoi, voi lai minh cugn ko ranh ve asm lam, vi phai ranh no thi moi lay dc cac doan code khi game chay va tu do lay ra thong so nhu mau, mp, %lvl.... tat ca cac thu. va hinh nhu autoit cugn ko ho tro trong viec nay.
Tai minh choi con healer nen viet 1 cai bot don gian de xai khi di ngu heal con hero va lum do ve ban thoi, chu ko phan biet do gi can lum do gi ko, lum tuot tu dau den cuoi.
Ma cau them cai uong mau co biet la khi nao can uong ko? hay hen thoi gian de no uong the??
Co gi thi minh lien lac qua YM noi chuyen. nick: phucbao_nguyen
TUi thay cai autoit rat hay de viet cac ung dugn nho nhu bot,... rat hieu qua. minh co chay thu chuogn trinh cua ban thay do chinh xac kha cao do chu.
HInh chuogn trinh cua minh.
![]()
hi hi tui ko biết trích dẫn mà chỉ biết copy thoai :devil: :devil: :devil:*ShAw* nói:Pó tay , sao ko chịu trích dẫn mà lại copy ??????
nam827198 nói:hix, code up tới lần thứ 3 rùi đấy T_T
Mã:#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