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

sao tôi đăng nhập rồi mà click vào downloas về không được nhỉ nó bắt đang nhập lại

 

Có hiển thị tiếng việt hay không vũng vậy, đều không đc. Tui để utf-8 thì hiển thị được tiếng việt nhưng vẫn không ăn thua. Msg cái biến $aWin[0][0] lên thì nó báo = 0

 

Đã xài cái thứ 2,thấy ổn định nhất,thanks bác...

 

Bác Zhou Hung cho tui xin code của bản auto F2 cho TYL được không ? Tui down bản exe của bác về mà không sài được. Có lẽ cũng không list đc win game...

 

Mình thấy cái thể loại send key thế nào ấy, máy cứ đơ đơ, nghe nói ảnh hưởng đến RAM tốt nhất chúng ta lên dùng chuột thì hay hơn. Làm khoảng năm sáu cái textbox để ghi toạ độ chuột cho phép kích chuột phải và chuột trái. Nếu cần đánh quái và di chuyển thì đánh toạ độ vào và cho nó dùng chuột trái, còn khi nào ăn máu, x2, ăn kẹo thì dùng chuột phải.

 

Cái đó bạn dùng ProAKAM đi, rất tốt đấy. Trừ 1 vấn đề là nó hơi khó khăn 1 chút với việc auto nhiều acc còn lại thì tuyệt. Đúng như yêu cầu của bạn. Cái ProAKAM hay ở chỗ nó hoạt động cả với game khi bị ẩn đi (giấu các xếp) bằng các chương trình ẩn như hidedragon hay presshide ...

 

Mấy lão biết dùng mấy hàm đọc memory chứ (NomadMemory.au3). Có phải mọi thứ đơn giản hơn ko, khỏi phải check pixel. Đọc memory thấy hết auto/hp/mp thì active windows xong send key/click/... zì zì đó thì tùy. Cái auto của tôi chạy theo cách này, lúc auto có thể lướt web, làm linh tinh tùy thích

 

Tương lai là đây ko pts, anh chụp trực tiếp:

 

đây nè

Mã:

Opt("PixelCoordMode", 2)
Opt("MouseCoordMode",2)
$gametitle="Cổ Long Online "
HotKeySet("{ESC}", "Terminate")

Func Terminate(); thoat auto
    MsgBox(4096, "About", "Auto Cổ Long Online coded by chuhungls."&@CRLF&"Gặp HEROSE trong game cho party nhé ^_^", 10)
	Exit 0
EndFunc

While 1
	If WinActive($gametitle) Then
		ToolTip("Auto skill F2 - bấm ESC để thoát")
		$inmap=PixelGetColor(777, 15);kiểm tra đã vào trận chưa
		If $inmap<>0xF8E76D Then
			Sleep(1000)
			autoskill()
		EndIf
	EndIf
WEnd

Func autoskill()
	$myturn1=PixelGetColor(733, 144);kiểm tra đến turn của char
	$myturn2=PixelGetColor(739, 131);kiểm tra đến turn của pet
	If ($myturn1=0xFFFFFF Or $myturn2=0xFFFFFF) Then
		_MouseClickPlus($gametitle,"left", 444, 526, 1)
		Send("{F2}")
		Sleep(400)
		_MouseClickPlus($gametitle,"left", 295, 145, 2)
		Sleep(400)
		_MouseClickPlus($gametitle,"left", 229, 163, 2)
		Sleep(400)
		_MouseClickPlus($gametitle,"left", 175, 215, 2)
		Send("!q")
	EndIf
EndFunc

Func _MouseClickPlus($Window, $Button = "left", $X = "", $Y = "", $Clicks = 1)
    Local $MK_LBUTTON       =  0x0001
    Local $WM_LBUTTONDOWN   =  0x0201
    Local $WM_LBUTTONUP     =  0x0202

    Local $MK_RBUTTON       =  0x0002
    Local $WM_RBUTTONDOWN   =  0x0204
    Local $WM_RBUTTONUP     =  0x0205

    Local $WM_MOUSEMOVE     =  0x0200

    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 _MakeLong($LoWord,$HiWord)
    Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
 EndFunc

code trên tui vẫn dùng rất ngon
to ZzVampirezZ: đây ko phải box chém gió, share đc thì share ko thì té

 

Bác hảo tâm thì share cho mọi người, nếu muốn kinh doanh thì cũng phải đề cái bảng giá... Đừng lên khoe hàng cái rồi lặn .
.
___________Auto Merge________________

.

cái này nói với bac vampire
admin : sao ko cho mọi người edit bài vậy ????

 

Tôi đang hoàn thiện nên chưa muốn share vì còn nhiều lỗi. Trên kia tôi chỉ đưa ra ý tưởng chứ không show auto, nên đừng nói là tôi khoe khoang gì.
@Zhou Hung: Tôi chả biết bạn giỏi đến đâu nhưng cái thái độ đấy, có chó nó share cho
Còn cái ảnh, tôi chém đấy, được ko

 

đến cả base add tôi cũng tìm ko ra thì làm sao giỏi đc, mà tôi cũng chưa nói tôi giỏi bao h
tôi ko biết cái auto của ông hoàn thiện ko nhưng từ bài trên cho thấy ông đã có base add, nếu share đc thì share ko share đc thì đừng vào post mấy bài vớ vẩn để chứng tỏ mình làm gì.
mà ông đã nói thế rồi thì đừng share, ko lại tự vả vào mặt mình

 

To : Zhou Hung - Bạn chỉ mình cách tìm tọa độ của các vị trí trên cửa sổ game đc không? Tọa độ tương đối thôi chứ không phải tọa độ của màn hình, vì mình tìm tọa độ không thấy chính xác, bảo nó click 1 chỗ nó lại click chỗ khác :(. Cái auto F2 mình về không chạy đc, không biết có phải do màn hình laptop nó khác hay không?
mà sao color máy mình khi sài PixelGetColor nó trả về số thập phân chứ không phải Hex nhỉ ? vd: cái điểm color khi vào trận của mình nó trả về kết quả là 8790 ????

 

@Zhou Hung:Tôi chẳng cần phải chứng tỏ mình với ai. Mà ông cũng không cần phải khích, tôi có share cũng không phải cho ông, đừng tự đề cao mình quá thế . Base Add ? Tôi có nói gì đến nó đâu nhỉ, mà thú thực tôi chả biết base add là gì, ông biết base add à? tôi chỉ biết cái address chứa giá trị của auto attack suốt từ 1.0.11 đến h nó chưa đổi thôi, phiên bản mới thì tìm cái mới, thế thôi.

Dĩ nhiên là tôi sẽ share, 1-2 ngày nữa, còn kinh doanh ? bác đùa à ?

 

ZzVampirezZ : Bác dùng hàm nào để đọc memory? Tui mới chỉ tập tành thôi nên không rõ