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

Hiện mình đang dùng và rất thích Auto của bạn Kent.Nguyen. Auto được cho cả 5 nhân vật, có auto tìm quái. Khi cần dừng chương trình thì dừng lại được ngay.
Mặc dù chỉ mới thử 2 chức năng auto đánh và auto tìm quái (Máu mana chỉ bơm sau khi hết trận) thôi nhưng cũng khá hài lòng, treo máy cả đêm không sợ loạn.

 

bác nào cho em xin cái auto 3 mt của QV với
các bác cho em xin cái file .exe lun chứ đừng cho mấy cái code vì em dốt nào ko hiểu gì đâu :(

 

xin các bác hướng dẫn em sử dụng cái bản auto của bác Kent Nguyen. Em thử nhiều rồi nhưng vẫn không hiểu sao không chạy được.

 

http://www.youtube.com/watch?v=NuXsx8fZErY đây. bạn xem kĩ và làm theo nha :-* nhớ thx

 

Code của bro thiếu } thì phải, mình có thêm vào chạy khá ok, nhưng sao nó tự động nhảy cửa sổ lúc trong trận đấu hơi kì, lúc đang đánh (mất số 20 rồi) nó vẫn nhảy cửa sổ, và sau 1h thì ko tự chạy nữa, test thử 60000 thay vì 3600000 thì ok, mà cứ sau 1h thì ko click, lạ quá

 

Có auto buff cho DS VP khi DT ko vậy, chỉ cần cọn 1 mục tiêu buf là thành viên dễ bị tấn công nhất thôi

 

Auto của game cũng tự buff HP dc mà

 

sao hôm qua thằng chủ key nó chửa mình vì ẩtck vậy

 

Mã:

Global $n, $hwnd
Global $gametitle="Van Mai"
Global $Pause = 0

HotKeySet("{F11}","TogglePause")
HotKeySet("!{ESC}","Terminate")

;Opt("SendCapslockMode", 0)
Opt("SendKeyDelay", 5)          ;9 milliseconds
Opt("SendKeyDownDelay", 5)      ;9 millisecond
Opt("WinTitleMatchMode",2)
Opt("MouseCoordMode",2)
Opt("PixelCoordMode",2)

While Not $Pause
	WinActivate("UID")
	ControlClick("UID","","","left",1,781,522)		; 
	Sleep(300)										;
	ControlClick("UID","","","left",1,613,486)		; kich hoạt auto run
	Sleep(300)										;
	ControlClick("UID","","","left",1,781,522)		;
	$aWin=WinList($gametitle)
	$clhwnd = WinGetHandle("UID")
	$startime = 0
	$endtime = 0
	While $endtime < 2399
		;If WinActive($gametitle) Then						
			$color = PixelGetColor(639,43,$clhwnd) ;lay mau tai vi tri 764,32 de so sanh co vao tran hay chua
			;ToolTip(" = "&$aWin[0][0],0,0)						
			If $color = 7170120 Then		
				For $n = 1 To $aWin[0][0]
					ControlSendPlus($aWin[$n][1],"","","!q",4)
					ControlSendPlus($aWin[$n][1],"","","!q",4)
				Next
			EndIf
		;EndIf
		Sleep(1500); Thời gian dừng giữa cĂ¡c lần send key (tui để 1000 tuy hÆ¡i nhanh nhÆ°ng sẽ Ä‘Ă¡nh trong tầm giĂ¢y thứ 19 vĂ  20 đỡ mất thời gian chờ)
		$endtime += 1
	WEnd
	Sleep(120000) ; Chờ 2' sau khi hết 1h autorun cho cho chắc ăn :D
WEnd
Func TogglePause()
    $Pause = NOT $Pause
    While $Pause
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
	MsgBox(0,"Bye bye","Auto Co Long Online by HEROSE")
	Exit
EndFunc

Func ControlSendPlus($title, $text, $className, $string, $flag)
;VERSION 2.0.3 (06/13/2004)
Local $ctrl=0,$alt=0,$upper,$start,$end,$i,$char,$and,$Chr5Index,$isUpper,$ret
If $flag = 2 OR $flag = 3 Then $ctrl = 1
If $flag = 2 OR $flag = 4 Then $alt = 1
If $flag <> 1 Then $flag = 0;set the flag to the default function style
$upper = StringSplit('~!@#$%^&*()_+|{}:"<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ', "")

If $flag <> 1 Then;don't replace special chars if it's raw mode
;replace {{} and {}} with +[ and +] so they will be displayed properly
  $string = StringReplace($string, "{{}", "+[")
  $string = StringReplace($string, "{}}", "+]")
;replace all special chars with Chr(5)
;add the special char to an array.  each Chr(5) corresponds with an element
  Local $Chr5[StringLen($string) / 2 + 1]
  For $i = 1 To StringLen($string)
    $start = StringInStr($string, "{")
    If $start = 0 Then ExitLoop;no more open braces, so no more special chars
    $end = StringInStr($string, "}")
    If $end = 0 Then ExitLoop;no more close braces, so no more special chars
;parse inside of braces:
    $Chr5[$i] = StringMid($string, $start, $end - $start + 1)
;replace with Chr(5) leaving the rest of the string:
    $string = StringMid($string, 1, $start - 1) & Chr(5) & _
     StringMid($string, $end + 1, StringLen($string))
  Next
;take out any "!", "^", or "+" characters
;add them to the $Modifiers array to be used durring key sending
  Local $Modifiers[StringLen($string) + 1]
  For $i = 1 To StringLen($string)
    $char = StringMid($string, $i, 1)
    $and = 0
    If $char = "+" Then
      $and = 1
    ElseIf $char = "^" Then
      $and = 2
    ElseIf $char = "!" Then
      $and = 4
    ElseIf $char = "" Then
      ExitLoop
    EndIf
    If $and <> 0 Then
      $Modifiers[$i] = BitOR($Modifiers[$i], $and)
      $string = StringMid($string, 1, $i - 1) & _
       StringMid($string, $i + 1, StringLen($string))
      $i = $i - 1
    EndIf
  Next
Else;it is raw mode, so set up an all-0 modifier array
  Local $Modifiers[StringLen($string) + 1]
EndIf

;now send the chars
$Chr5Index = 1
For $i = 1 To StringLen($string)
  $char = StringMid($string, $i, 1)
  If $char = Chr(5) Then
    $char = $Chr5[$Chr5Index]
    $Chr5Index = $Chr5Index + 1
  EndIf
  $isUpper = 0
  For $j = 1 To UBound($upper) - 1
    If $char == $upper[$j] Then $isUpper = 1
  Next
;1 SHIFT, 2 CTRL, 4 ALT (programmer note to keep the bits straight)
  If $isUpper = 1 OR BitAND($Modifiers[$i], 1) = 1 Then Send("{SHIFTDOWN}")
  If BitAND($Modifiers[$i], 4) = 4 AND NOT $alt Then $char = "!" & $char
  If BitAND($Modifiers[$i], 2) = 2 AND NOT $ctrl Then $char = "^" & $char
  If BitAND($Modifiers[$i], 4) = 4 AND $alt Then Send("{ALTDOWN}")
  If BitAND($Modifiers[$i], 2) = 2 AND $ctrl Then Send("{CTRLDOWN}")
  $ret = ControlSend($title, $text, $className, $char, $flag)
  If BitAND($Modifiers[$i], 4) = 4 AND $alt Then Send("{ALTUP}")
  If BitAND($Modifiers[$i], 2) = 2 AND $ctrl Then Send("{CTRLUP}")
  If $isUpper = 1 OR BitAND($Modifiers[$i], 1) = 1 Then Send("{SHIFTUP}")
  If NOT $ret Then return 0;window or control not found
Next
return 1
EndFunc

Mấy bạn sài thử xem nhé, code này mình edit lại của bạn Zouh Hung, mình chạy thử thấy không vấn đề gì. Có điều các bạn phải active 1 cửa sổ game để nó lấy màu khi chạy auto và điền UID của char chủ pt vào phần ghi UID trong code ... Chống chỉ định khi còn muốn làm việc khác trên máy :(

 

tomorrow ông thay cái bài đưa đường link của auto kent đi. Cái bài có link trong đó là link cũ dùng ko hay bằng cái sau cùng kent đưa.
Thanks.

 

Bạn gởi PM mình cái đường link mới mình cập nhật lại.

 

Base Address của 25 lần tự động là 0357b0bc + 2b4

 

Hix ai có auto qv 3mt hok share minh với­ , cai của yu mình hok bít làm sao, tên nhân vật của mình có tiếng việt nên hok đánh dc trong auto hot key

 

dùng window spy để lấy tên nhân vật đó

 

có phải cái ở trang 1 ko ?
sao tớ down thì nó báo link hỏng rồi :(

 

Auto của Kent bị BKAV thẳng tay diệt gọn. He he... Mỗi lần chạy là lại phải tắt BKAV đi.

 

Cái BKAV mà pác cũng xài àk, nó báo bậy cũng tin àk xài KIS hay KAV xem thử:-*

 

Cac' bac' viet ho em chuong trinh auto quy vuc di :( trong cho` moi? ca? mat ma hok thay. file exe ay nha em hok biet dung code :(

 

Auto cổ long phiên bản mới nè, bản trước lỗi tìm lum là do cái giao diện windows phải gió chết tiệt. Mình đã sửa cho giao diện classical . Cái này chơi nhiêu acc cũng được tuốt. Ai có thắc mắc gì thì liên hệ: www.khodulieu.tk (trang này cập nhật các phiên bản mới, chưa có tiền mua tên miền .com) hoặc sieunhanvutru24@yahoo.com mình sẽ giải đáp để chương trình ngày càng hoàn thiện.

 

mọi giúp dùm với, tìm hoài hok có auto qv, cai autohot key thi hok hoạt động