按鍵遊俠-腳本(閃人加強)

謝謝版大分享~yociexp108.gif

是的         你要一行接著一行打

並不是照著秘笈的數據對照打......(這樣好像稍微有口誤)



EX:         
00d30000 - push edi                  >> MOV EAX,03  (右02.左03)
00d30001 - push eax                  >> PUSH 03
00d30002 - mov edi,[00d30090]  >>JMP 70EE82


你改玩MOV EAX,03  的時候

你就記住  直接往下一格  直接打 PUSH 03 了

不需要還去對照  PUSH  EAX 照著打


如果沒理解錯的話       蝌蚪大的意思是

你數據對的話   address  會自動調整  

所以不需要對照著  push eax











題外話..                  me  是不是不能搭配 sce 阿            還小開心了一下...

(都會佔到記憶體      當然會抵制?)        <<<欠打yociexp172.gif yociexp172.gif

[ 本文章最後由 ljc52021 於 2007-9-16 15:27 編輯 ]

IivMoney.dll 的問題  我是不清楚啦



但我肯定  你會只找到一組   一定是哪裡錯了

要不要貼個問題圖上來  方便理解   (學jaja大)yociexp182.gif yociexp182.gif


不然  淺學的我   實在不懂你的問題在何處

原文章由 ljc52021 於 2007-9-16 15:22 發表
是的         你要一行接著一行打

並不是照著秘笈的數據對照打......(這樣好像稍微有口誤)



EX:         
00d30000 - push edi                  >> MOV EAX,03  (右02.左03)
00d30001 - push eax   ...

我終於成功了yociexp169.gif

痛哭流涕的測試正常

謝謝您喔yociexp108.gif
好高興

不過 我是先把勾打掉
進入打怪區域才回去打勾~~這樣有差別嗎??

那是不是 每次都要照樣的輸入(每次上線)


眼睛好痠~~~來休息去
腦動太多~~又再痛了

[ 本文章最後由 m45514 於 2007-9-16 15:47 編輯 ]

應該沒差吧→打勾


每次開關都要重打一次呀~

因為  你是用18去抓10  改變代碼的



吼   按鍵遊俠怎麼麻煩阿  都還亂碼   怪難弄得...



還一堆感謝文           大陸網站    不能按網頁翻譯...  為什麼呀?yociexp198.gif

原文章由 ljc52021 於 2007-9-16 16:00 發表
應該沒差吧→打勾


每次開關都要重打一次呀~

因為  你是用18去抓10  改變代碼的



吼   按鍵遊俠怎麼麻煩阿  都還亂碼   怪難弄得...



還一堆感謝文           大陸網站    不能按網頁翻譯.. ...

現在有一種軟體  可以直接翻譯簡體文
但是.....要找

原文章由 jaja 於 2007-9-16 12:19 發表


不好意思蝌蚪大,請問一下,
第一步驟是因為要改的是固定位置,所以寫在ct檔中沒有問題,
但我們要如何知道那三段程序所要配置的起始位置呢?
若是我們自己打的數據,可以用如mygod的名稱來得知
但那三段似乎 ...

在18抓10的時後
在10的找尋那邊
把4 BYTES改成TEXT
並輸入"mov eax,"或"XOR EDI,0badbeef"等字眼
應該就有你要的答案了

能在請教此腳本為紅點自動換頻捕水!如期望它能於換頻後暫停所有執行
5秒之後再照舊運行!!不知該從何處下手&添加何種語法!盼各大前輩提點!!不勝感激!!!

[Main]
Sub Main()
    Dim hp_pos:     Dim mp_pos:     Dim KeepRun
    Dim color_hp:   Dim color_mp
    Dim box_x1:     Dim box_x2:     Dim box_y1: Dim box_y2
    Dim temp_x:     Dim temp_y:     Dim AutoChng
    '==============基本數據設定區==============
    hp_pos=50   '? %補hp
    mp_pos=50   '? %補mp
    AutoChng=1  '紅點自動換平 1.開啟  0.關閉
    '==========================================
    KeepRun=1
    Delay 2000
    If Autochng=1 Then
        Msgbox "設定紅點檢查區域 z  x"
        WaitForKey "z"
        GetMousePos box_x1,box_y1
        Msgbox "設定點一完成"
        WaitForKey "x"
        GetMousePos box_x2,box_y2
        Msgbox "設定點二完成"
    End If
    color_hp=  GetPixelColor(220+hp_pos,620)
    color_mp=  GetPixelColor(330+mp_pos,620)
   
    '主程式運作區
    Do While KeepRun=1
        Delay 500
        '自動補紅補藍
        Call ChkHpMp(hp_pos,mp_pos,color_hp,color_mp)
        '紅點自動換平
        If autochng=1 Then
            FindColorEX box_x1,box_y1,box_x2,box_y2,&H1020FF,0.9,temp_x,temp_y
            If temp_x > 10  Then
                Call chchnl()
            End If
        End If
    Loop
   
End Sub
Sub ChkHpMp(hp_po,mp_po,hp_col,mp_col)
    If IsColor(220+hp_po,620,hp_col,0) <> 1 Then
        KeyPressH "END",1
        Delay 250
    End If
    If IsColor(330+mp_po,620,mp_col,0) <> 1 Then
        KeyPressH "HOME",1
        Delay 250
    End If
End Sub
Sub ChChnl()
    Dim LeftRight, ChlNum
    Randomize '產生亂數種子
   
    LeftRight=Int(2 * Rnd) ' 往上換頻或往下換頻隨機判斷
    ChlNum=Int(20 * Rnd) + 1 '換多少頻隨機判斷
   
    Delay 200
    KeyPressH "ESC",1   :Delay 200
    KeyPressH "ENTER",1 :Delay 4000
   
    If LeftRight=0 Then
        LeftRight="LArrow"
    Else
        LeftRight="RArrow"
    End If
   
    KeyPressH LeftRight,ChlNum
    Delay 500
   
    KeyPressH "ENTER",1 :Delay 200
End Sub
[MainEnd]
[VBSLib]
\MyLib\Default.Txt
[EndVBSLib]
[PublicVar]

[EndPublicVar]

If LeftRight=0 Then
        LeftRight="LArrow"
    Else
        LeftRight="RArrow"
    End If
   
    KeyPressH LeftRight,ChlNum
    Delay 500
   
    KeyPressH "ENTER",1 :Delay 200
   DELAY 5000                          <=======青菜在這理