Auto toàn tập - Đọc kỹ trang 1

ai cho xin cái link download Visual Basic 6.0 đi .

 

mấy anh chị ơi em mới học AutoIT hôm nay nên hỏi câu hơi gà, các anh chị thông cảm nha, em muốn chỉnh auto của Mr.J. nhưng em ko có cách nào làm cho 2 cái sleep time của 2 lệnh kích chuột khác nhau của nó ko tương tác với nhau được, vd như auto chạy 1h nên em chỉnh delaytime 1h mỗi lần kích, và auto đánh thì em chỉnh kích vào chữ Tự động trong lúc chiến đấu, timedelay sẽ là 5s hay 10s, nhưng nếu chưa mở auto chạy thì auto đánh vẫn bt, khi mở auto chạy thì sau khi nó kích tự chạy xong phải đợi 1h nó mới kích cái auto đánh, em ko biết cách tách mấy cái sleep time đó ra, em định học từ từ nhưng đau đầu quá bỏ cả ngày nghiên cứu mà toàn được cái này mất cái kia ko , em thử tách 2 cái lập trình click chuột ra luôn mà cũng ko được ai giúp em với, em đang bí ở khúc này
.........
Func ATTACK()
If $att=1 Then
If $move=1 Then
_MOUSECLICKPLUSx($tit, "left", 740, 300, 1)
Sleep(10000)
EndIf
EndIf
EndFunc
Func _MOUSECLICKPLUSx($WINDOWx, $BUTTONx = "left", $Xx = "", $Yx = "", $CLICKSx = 1)
Local $MK_LBUTTONx = 1
Local $WM_LBUTTONDOWNx = 513
Local $WM_LBUTTONUPx = 514
Local $MK_RBUTTONx = 2
Local $WM_RBUTTONDOWNx = 516
Local $WM_RBUTTONUPx = 517
Local $WM_MOUSEMOVEx = 512
Local $Ix = 0
Select
Case $BUTTONx = "left"
$BUTTONx = $MK_LBUTTONx
$BUTTONDOWNx = $WM_LBUTTONDOWNx
$BUTTONUPx = $WM_LBUTTONUPx
Case $BUTTONx = "right"
$BUTTONx = $MK_RBUTTONx
$BUTTONDOWNx = $WM_RBUTTONDOWNx
$BUTTONUPx = $WM_RBUTTONUPx
EndSelect
If $Xx = "" Or $Yx = "" Then
$MOUSECOORDx = MouseGetPos()
$Xx = $MOUSECOORDx[0]
$Yx = $MOUSECOORDx[1]
EndIf
For $Ix = 1 To $CLICKSx
DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle($WINDOWx), "int", $WM_MOUSEMOVEx, "int", 0, "long", _MAKELONG($Xx, $Yx))
DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle($WINDOWx), "int", $BUTTONDOWNx, "int", $BUTTONx, "long", _MAKELONG($Xx, $Yx))
DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle($WINDOWx), "int", $BUTTONUPx, "int", $BUTTONx, "long", _MAKELONG($Xx, $Yx))
Next
EndFunc

Func RUNX()
If $move=1 Then
_MOUSECLICKPLUS($tit, "left", 780, 520, 1)
Sleep(500)
_MOUSECLICKPLUS($tit, "left", 450, 480, 1)
Sleep(500)
_MOUSECLICKPLUS($tit, "left", 780, 520, 1)
Sleep(3800000)
_MOUSECLICKPLUS($tit, "left", 450, 480, 1)
Sleep(500)
EndIf
EndFunc

Func _MOUSECLICKPLUS($WINDOW, $BUTTON = "left", $X = "", $Y = "", $CLICKS = 1)
Local $MK_LBUTTON = 1
Local $WM_LBUTTONDOWN = 513
Local $WM_LBUTTONUP = 514
Local $MK_RBUTTON = 2
Local $WM_RBUTTONDOWN = 516
Local $WM_RBUTTONUP = 517
Local $WM_MOUSEMOVE = 512
Local $I = 0
Select
Case $BUTTON = "left"
$BUTTON = $MK_LBUTTON
$BUTTONDOWN = $WM_LBUTTONDOWN
$BUTTONUP = $WM_LBUTTONUP
Case $BUTTON = "right"
$BUTTON = $MK_RBUTTON
$BUTTONDOWN = $WM_RBUTTONDOWN
$BUTTONUP = $WM_RBUTTONUP
EndSelect
If $X = "" Or $Y = "" Then
$MOUSECOORD = MouseGetPos()
$X = $MOUSECOORD[0]
$Y = $MOUSECOORD[1]
EndIf
For $I = 1 To $CLICKS
DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle($WINDOW), "int", $WM_MOUSEMOVE, "int", 0, "long", _MAKELONG($X, $Y))
DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle($WINDOW), "int", $BUTTONDOWN, "int", $BUTTON, "long", _MAKELONG($X, $Y))
DllCall("user32.dll", "int", "SendMessage", "hwnd", WinGetHandle($WINDOW), "int", $BUTTONUP, "int", $BUTTON, "long", _MAKELONG($X, $Y))
Next
EndFunc

Func EATHPMP()
If $regen=1 Then
$COLORHP = PixelGetColor(135, 33)
$COLORHPMAX = PixelGetColor(160, 33)
$COLORMP = PixelGetColor(125, 41)
$COLORMPMAX = PixelGetColor(160, 41)
If $COLORHP = 10420736 Then
Do
controlsend($tit,"","",$hp2)
Sleep($DELAYHP)
Until $COLORHPMAX = 16734025
EndIf
If $COLORMP = 0 Then
Do
controlsend($tit,"","",$mp2)
Sleep($DELAYMP)
Until $COLORMPMAX = 4429311
EndIf
EndIf
EndFunc
........

 

phù, cuối cùng em cũng tìm ra 1 cách roài, đờ cả người, tạm thời em phải để auto đánh với auto chạy chung như thế này
Func RUNX ()
If $move=1 Then
_MOUSECLICKPLUS($tit, "left", 780, 520, 1)
Sleep(500)
_MOUSECLICKPLUS($tit, "left", 450, 480, 1)
Sleep(500)
_MOUSECLICKPLUS($tit, "left", 780, 520, 1)
Sleep(500)
$move=0
If $move=0 Then
Do
_MOUSECLICKPLUS($tit, "left", 740, 300, 1)
Sleep(10000)
Until $move=1
EndIf
_MOUSECLICKPLUS($tit, "left", 780, 520, 1)
Sleep(3800000)
_MOUSECLICKPLUS($tit, "left", 450, 480, 1)
Sleep(500)
_MOUSECLICKPLUS($tit, "left", 780, 520, 1)
Sleep(500)
$move=1
EndIf
EndFunc

thôi thế này là em sung sướng rồi, nếu anh chị nào biết cách tách riêng sleep time từng cái thì chỉ em nha, dù sao để riêng vẫn tốt hơn, cái Hướng dẫn việt hóa của pác Dr.J thiếu nhiều quá, ôi 1 ngày tâm huyết của ta, đúng là ngu 1 ngày mà khôn 1 phút
.
___________Auto Merge________________

.
hình như đoạn script vừa rồi của em có gì sai thì phải, cứ thấy nó sao sao ấy....

 

Cái này chỉ click vào chữ auto cua game thui mà. Con của Yu nhấn vô chữ tự động có tự đánh ko?, nếu có thì xài vô tư.


@ghienchoigame : dùng dc 5 acc, tự động chạy tìm quái, tự động đánh.

p/s: thật ra nó chỉ tự click lên nhửng công cụ có sẳn trong game mà thui

 

Sao mấy bạn ko xài ControlSendPlus. ControlSend nó bị hạn chế ở một số phím như shift,alt....

 

Ko biết h co Auto ko cần đụng đến click chuột ko , để còn chơi được game khác nữa .

Ai có share tui với nhá , Thank

 

Thế bạn "ấy" có biết, 1 thao tác làm crash memory của máy tính bằng pointer cũng làm như vậy ko . (Tức là ko thông qua việc Click mouse hay press keyboard mà point thẳng vào memory như bạn nó đó)

 

vậy cái đó là bot rồi. ráng đợi đi. mà nếu có bot thì có thể sẽ giống ts, treo tại điểm làm Q luôn, lên lv lẹ vô cùng, mà có thể ko có