自動練功、挖礦 (按鍵精靈)(5/3起腳本全失效囉)

目前都是OK的~妳是不是開夢夢時候有把視窗打勾?  還有一開始掛網有時候我也會抓不到  妳在結束腳本

再重新啟動一次就OK了~妳試看看~ 之後都不會~ 但是你每崇開夢夢時候  都要重複以上動作

有啊 我全視窗了 他上下左右都會按
換餌也ok 就只有遇到扭蛋視窗出現他就卡住了

有啊 我全視窗了 他上下左右都會按
換餌也ok 就只有遇到扭蛋視窗出現他就卡住了
tw00047677 發表於 2010-6-5 18:23

我腳本在修改過
你在用看看

1. 
   
2. Plugin hwnd=Window.Foreground()
   
3. UserVar as1=DropList{無:0|按鍵【F1】:112|按鍵【F2】:113|按鍵【F3】:114|按鍵【F4】:115|按鍵【F5】:116|按鍵【F6】:117|按鍵【F7】:118|按鍵【F8】:119|按鍵【F9】:120|按鍵【F10】:121|按鍵【F11】:122|按鍵【F12】:123|按鍵【1】:49|按鍵【2】:50|按鍵【3】:51|按鍵【4】:52|按鍵【5】:53|按鍵【6】:54|按鍵【7】:55|按鍵【8】:56|按鍵【9】:57|按鍵【0】:48|按鍵【-】:189|按鍵【=】:187}=0 【釣魚技能】
   
4. UserVar CCC=DropList{不換餌:0|自動換餌(限全視窗):1}=0 【換餌選擇】
   
5. Rem 開始
   
6. Plugin D0=Memory.Read8Bit(hwnd,&H17D2698)
   
7. If Clng(D0)=1
   
8.     Key="17D14E4"
   
9.     For 8
   
10.         Plugin Keys=Memory.Read16Bit(hwnd,"&H"&Key)
    
11.         If clng(Keys)=37
    
12.             Plugin Bkgnd.KeyPress(hwnd,37)
    
13.         ElseIf clng(Keys)=38
    
14.             Plugin Bkgnd.KeyPress(hwnd,38)
    
15.         ElseIf clng(Keys)=39
    
16.             Plugin Bkgnd.KeyPress(hwnd,39)
    
17.         ElseIf clng(Keys)=40
    
18.             Plugin Bkgnd.KeyPress(hwnd,40)
    
19.         ElseIf clng(Keys)>40 or clng(Keys)<37
    
20.             Goto 開始
    
21.         EndIf
    
22.         Key = Hex(("&H"&Key)+&HC)
    
23.     EndFor
    
24. ElseIf Clng(D0)=0 and ccc=1
    
25.     Gosub 記憶體
    
26.     If Clng(FID)=0 and Clng(D1)=1 and (SAID="釣魚竿的耐久度不足." or SAID="背包空間不足.")
    
27.         EndScript
    
28.     ElseIf Clng(FIE)=0 and Clng(D1)=1 and SAID="沒有魚餌."
    
29.         MoveTo 515,430
    
30.         Gosub 移動滑鼠單擊
    
31.         Delay 300
    
32.     EndIf
    
33.     Gosub 記憶體
    
34.     If Clng(D1)=0 and Clng(D2)=0 and Clng(QQO)=0
    
35.         Plugin Bkgnd.KeyPress(hwnd,as1)
    
36.         Delay 300
    
37.     ElseIf Clng(QQO)=1 and Clng(D1)=0 and Clng(D2)=0
    
38.         Gosub 進行扭蛋
    
39.     EndIf
    
40.     Gosub 記憶體
    
41.     If Clng(D1)=1 and Clng(D2)=104
    
42.         MoveTo 423,430
    
43.         Gosub 移動滑鼠單擊
    
44.         Delay 500
    
45.     EndIf
    
46.     Gosub 記憶體
    
47.     If Clng(D1)=1 and Clng(D2)=109
    
48.         MoveTo 423,430
    
49.         Gosub 移動滑鼠單擊
    
50.         Delay 500
    
51.     EndIf
    
52. EndIf
    
53. Delay 30
    
54. Goto 開始
    
55. Sub 進行扭蛋
    
56.     MoveTo 584,484
    
57.     Gosub 移動滑鼠單擊
    
58.     Delay 500
    
59.     Rem 等扭蛋結束
    
60.     Gosub 記憶體
    
61.     If clng(QQA)=0
    
62.         Delay 100
    
63.         Goto 等扭蛋結束
    
64.     ElseIf clng(QQA)=1
    
65.         MoveTo 511,483
    
66.         Gosub 移動滑鼠單擊
    
67.         Delay 500
    
68.     EndIf
    
69. Return 進行扭蛋
    
70. Sub 移動滑鼠單擊
    
71.     Delay 100
    
72.     MoveR 1,0
    
73.     Delay 30
    
74.     LeftClick 1
    
75. Return 移動滑鼠單擊
    
76. Sub 記憶體
    
77.     Plugin FID=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+636]",0)
    
78.     Plugin SAID=MemoryS3.ReadString(hwnd,"[[109F750]+25C]",20,0)
    
79.     Plugin FIE=MemoryS3.ReadInt(hwnd,"[[E3DDBC]+66B]",1)
    
80.     Plugin QQO=MemoryS3.ReadInt(hwnd,"[109C1DC]",0)
    
81.     Plugin QQA=MemoryS3.ReadInt(hwnd,"[[109C1A4]+124]",0)
    
82.     Plugin D1=MemoryS3.ReadInt(hwnd,"[E3B460]",0)
    
83.     Plugin D2=MemoryS3.ReadInt(hwnd,"[17D1D30]",0)
    
84. Return 記憶體
    

複製代碼

好像沒問題了 剛剛出門3小時都沒卡住
謝謝金大

請問大大
有些語句沒法識別
是什麼出錯??

嘩...感謝大大
真是十分有用~!~~~~~

金大 ~ 我想請問一下 自動釣魚... 全視窗自動補餌為什麼我的都不會補餌

    是我解析度的問題麻?


可以請問一下金大你的解析度條成多少呢?

金大 ~ 我想請問一下 自動釣魚... 全視窗自動補餌為什麼我的都不會補餌

    是我解析度的問題麻?


可以請問一下金大你的解析度條成多少呢?
lveis3296 發表於 2010-6-7 18:05

自動裝餌是自己身上有餌才會裝備
不是自動買餌喔
解析的話 我是用1024*768

金大 ~ 謝謝哦 ..

   不會了 !!

然後我還想請教一個問題 @@

      就是你會出視窗版麻=  ="
本文章轉自外掛聯合國http://www.wgun.net

金大~我用一樣的連點 在我自己的電腦掛釣魚ok
可是換到朋友的電腦就會卡在 請問要在這裡釣魚嗎? 這個選項後就沒動作了
一樣是使用全視窗 請問這要怎麼解決