MK help mình với, mình tìm địa chỉ của 2 nút trong đề thi " Bắt Đầu trả lời " sau đó là " Đồng Ý " để làm điều kiện cho auto, 2 lệnh như sau: Until _MemoryRead($Batdautraloi,$Handle)=1 If _MemoryRead($Dongy,$Handle)=0 Then ExitLoop Nhưng tình hình là khi tìm với CE mình tìm giá trị Unknow sau đó là change và unchange hoài mà vẫn không tìm ra nó. MK hướng dẫn giúp mình cách tìm với. Thanks MK nhiều! ---------- Post added at 09:53 ---------- Previous post was at 09:47 ---------- Trong game thì không có bạn à, nhưng mình đang tìm tòi viết chương trình chạy ngoài, mình vẫn chưa hoàn thiện vì còn thiếu 1,2 điểm nữa và vì mình không tự tìm nổi nên đang xin lời chỉ dẫn của MK. Khi nào được, mình sẽ up trực tiếp lên diễn đàn và cả mã nguồn cho các bạn khỏi nghi ngờ virut hihi.
các bạn ơi xin hỏi có ai biết cách post hình lên viễn đàng nầy hok vậy xin hương vẫn và chỉ dại cho Kiệt với xin cảm ơn
=.=! webs của gate ko dám thì đừng xài auto sư môn nói rồi nv quá nhiều ko làm johnchu:Đanh tính làm dùm mà quên mãi =.=!
MK à, mình đã sử dụng quet unknow trước rùi giá trị change ko được, và mình cũng sử dụng quét giá trị 0 và 1 cũng không thấy ra luôn, buồn quá à ! hix hix
mình đã quét text theo như MK chỉ bảo, nhưng nó bị point to point hơn 16 point lặp đi lặp lại, potay.com luôn hic hic.....
uh 02310F4C 02310F50 đây là address số câu đã trã lời ( tính từ lúc mới log acc) đang suy nghĩ có tiến triễn gì mk up cho đưa adress đây cái address để quét points ra 16 cái gì gì đó mk chỉnh ra offset chính xác cho
Địa chỉ nè MK 0x0F36C6D4 khi tìm, nó ra 2 giá trị, tìm từ 2 giá trị đó ra một đống lặp đi lặp lại thôi
bõ ý đinh scan value đó đi hoàn toàn không thể scan được adress static toàn ra 1 address động tắt game rồi bật lại là address đó hết xài được mk đã tìm address static và offset nhưng thực sự không có ------------------------ nếu dùng memory thì khó ăn lắm mk khuyến khích dùng autohotkey nó có hàm imagesearch ( cũng khá giống auto ) autoit cũng có nhưng kiếm cái files để indude để dùng hàm đó thì lãu rồi ko biết còn ko
mạn phép MK cho mình post mã code cho anh em xài, mình đã làm ra rùi, anh em để đề thi vào F7 và để giao diện cửa sổ là 800x600 dạng của sổ nhé. #include <NomadMemory.au3> #include <GuiConstantsEx.au3> #include <GuiComboBoxEx.au3> HotKeySet ("^e","Exitall") Local $hGUI $hGUI = GUICreate("Mr.Tú", 200, 220, 800, 300) $cb_GetChar=_GUICtrlComboBox_Create ($hGUI, "", 10, 10, 170, 50) GUICtrlCreateLabel("Để đề thi vào ô F7",10, 50, 300, 20) GUICtrlCreateLabel("Rồi chọn nhân vật và nhấn Bắt Đầu",10, 75, 300, 20) GUICtrlCreateLabel("Nếu đã thay đổi vị trí thì nhấn Ctrl+F9",10, 95, 300, 20) GUICtrlCreateLabel("Muốn thoát chương trình nhấn Ctrl+E",10, 115, 300, 20) GUICtrlCreateLabel("Thiết kế MR.TÚ",2, 200, 300, 20) $bt_start=GUICtrlCreateButton ("Bắt Đầu",20, 160, 80, 30) GUISetState() $AddNameChar = "0x011186E8" ;được tên nhân vật $start = "0x013a179c" ; được cửa sổ trả lời đề thi $answer = "0x013a1b7c" ; được cửa sổ chọn câu trả lời $AddSoLuong = "0x0111A308" ;được số lượng đề thi có trong người $AddExp="0x01959F40" ;được điểm kinh nghiệm Global $return_selec Global $pause = False $title = Wingettitle("[Class:LineKongGame]") ;lấy tên cửa sổ game Dim $ArrayPid[7] Dim $Handle[7] Dim $varCharName[7] $ConstArrayPid=0 While WinExists($title) $ArrayPid[$ConstArrayPid]=WinGetProcess($title) $Handle[$ConstArrayPid]=_MemoryOpen($ArrayPid[$ConstArrayPid]) $varCharName[$ConstArrayPid]=_MemoryRead($AddNameChar,$handle[$ConstArrayPid],"wchar[32]") WinSetTitle ($title,"","TDK"&$ConstArrayPid) _GUICtrlComboBox_AddString($cb_GetChar,$varCharName[$ConstArrayPid]) $ConstArrayPid+=1 Sleep(10) WEnd While True $iMsg = GUIGetMsg() Select Case $iMsg = $GUI_EVENT_CLOSE $pause = not $pause GUIDelete() Exit Case $iMsg = $bt_start _GUICtrlButton_Show($bt_start, False) $return_select=_GUICtrlComboBox_GetCurSel($cb_GetChar) $vExpFirst= Expp ("TDK"&$return_select) WinMove("TDK"&$return_select,"",0,0) ;chuyển cửa sổ game lên góc trên cùng bên phải ReadNameChar("TDK"&$return_select) If ReadNameChar("TDK"&$return_select) = 1 Then $sl = soluong("TDK"&$return_select) $printSL = $sl While $sl > 0 TraLoi("TDK"&$return_select,"{F7}") Sleep(500) $sl = $sl -1 WEnd _GUICtrlButton_Show($bt_start,True) $vExpLast =(Expp ("TDK"&$return_select)) - $vExpFirst Exit EndIf EndSelect WEnd Func soluong($Window) $Pid=WinGetProcess($Window) $Handle=_MemoryOpen($Pid) Return _MemoryRead($AddSoLuong,$Handle) EndFunc Func Expp ($Window) $Pid=WinGetProcess($Window) $Handle=_MemoryOpen($Pid) Return _MemoryRead($AddExp,$Handle) EndFunc Func TraLoi($Window,$Choose) Sleep(100) $Pid=WinGetProcess($Window) $Handle=_MemoryOpen($Pid) Do ControlSend ($Window,"","",$Choose) Sleep(500) Until _MemoryRead($start,$Handle)=1 ;cửa sổ bắt đầu trả lời Do MouseMove (358,501,5) Sleep(100) ControlClick($Window,"","","left",1) Sleep (500) Until _MemoryRead($answer,$Handle)=1 ;cửa sổ chọn câu trả lời Do MouseMove (239,309,1) ;dòng 1 Sleep(20) ControlClick($Window,"","","right",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (363,514,1) Sleep(20) ControlClick($Window,"","","left",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (240,339,1) ;dòng 2 Sleep(20) ControlClick($Window,"","","right",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (363,514,1) Sleep(20) ControlClick($Window,"","","left",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (239,369,1);dòng 3 Sleep(20) ControlClick($Window,"","","right",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (363,514,1) Sleep(20) ControlClick($Window,"","","left",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (240,389,1); dòng 4 Sleep(20) ControlClick($Window,"","","right",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (363,514,1) Sleep(20) ControlClick($Window,"","","left",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (240,419,1); dòng 5 Sleep(20) ControlClick($Window,"","","right",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf MouseMove (363,514,1) Sleep(20) ControlClick($Window,"","","left",1) Sleep(10) If _MemoryRead($answer,$Handle)=0 Then ExitLoop EndIf Until _MemoryRead($answer,$Handle)=0 EndFunc Func Exitall() Exit EndFunc Func ReadNameChar($Window) $Pid=WinGetProcess($Window) $Handle=_MemoryOpen($Pid) $InfoNameChar=_MemoryRead($AddNameChar,$Handle,"wchar[32]") Dim $Name[4] $auto=0 $array=4 $Name[0]="ABCDXYZ"; anh em thay tên nhân vật mình vô đây nhé $Name[1]="" $Name[2]="" $Name[3]="" While $auto <> $array If $InfoNameChar == $Name[$auto] Then Return 1 ExitLoop EndIf $auto+=1 WEnd Return 0 EndFunc ---------- Post added at 11:50 ---------- Previous post was at 11:46 ---------- còn đây là file mình đã convert cho bạn nào ko có chương trình autoIT http://www.mediafire.com/?ds9f4janjfpj0cj
dòng 56 bị lỗi bạn cho code vào quote cho dễ nhìn mk có 1 cách làm hay hơn nhưng chỉ làm được cho 1 acc và ko thể lồng vào auto nếu lồng vào tdk thi phải treo acc mk đang viết
xong rồi nè đừng nói mk ko giúp nha anh share cã code ở trong ai muốn dùng thử luôn thì bật files exe ở trong lưu ý để toàn màn hình 1024*768 trong game chỉ giải sách trã lời câu hỏi ko giải ở NPC sách trả lời câu hỏi để ở F4 sau khi trã lời câu hỏi xong nhiều lúc nó ngứa click thêm vài cái =.=! (ko hiểu tại sao nữa có thì cứ xài) Phím tắt Alt+Q = thoát F10 = bắt đầu trả lời Hướng dẫn chung bật auto -> vào game chọn nhân vật đầy đủ rồi chỉnh toàn màn hình 1024*768 -> để sách trả lời ở F4->ấn F10 auto trả lời Download http://www.mediafire.com/?4ebp6ujzuwu60cg 1 cái cuối Anh Em Muốn Thêm Auto Này Vào Auto train của mk ko lo làm cái auto này quên mất cái auto kia
