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

9/12保留快速躲商場資料.
增加紅點檢測點.請配合停止呼吸使用
其它我覺的有必要增加的功能.請自行瞭解與修改

1. Dim Box_X1:     Dim Box_X2:     Dim Box_Y1:     Dim Box_Y2
   
2. Dim HP_X:       Dim MP_X:       Dim HP_Y:       Dim MP_Y
   
3. Dim HP_sx:      Dim MP_sx
   
4. Dim Color_HP:   Dim Color_MP:   Dim Color_sHP:  Dim Color_sMP
   
5. Dim KEY_HP:     Dim KEY_MP:     Dim KEY_SHP:    Dim KEY_SMP:
   
6. Dim KEY_FIGHT:  Dim KEY_PICK
   
7. Dim KEY_SK1:    Dim KEY_SK2:    Dim KEY_SK3:    Dim KEY_SK4:    Dim KEY_SK5
   
8. Dim TMR_SK1:    Dim TMR_SK2:    Dim TMR_SK3:    Dim TMR_SK4:    Dim TMR_SK5
   
9. Dim T_SK1:      Dim T_SK2:      Dim T_SK3:      Dim T_SK4:      Dim T_SK5
   
10. Dim Sk1_Dle:    Dim Sk2_Dle:    Dim Sk3_Dle:    Dim Sk4_Dle:    Dim Sk5_Dle
    
11. Dim Fi_Temp:    Dim Go2LR:      Dim Fi_Mode:    Dim WalkCounter
    
12. Dim KeepRun:    Dim AutoChng
    
13. Dim Yelo_x:     Dim Yelo_y
    
14. Dim maple_wnd:  Dim key_wnd
    
15. Dim halt_x:     Dim halt_y:     Dim halt_color
    
16. Dim Yelo_temp:  Dim Ch_temp:    Dim temp
    
17. Dim temp_x:     Dim temp_y:     Dim usercounter:
    
18. Sub Main()
    
19.     key_Wnd = HWindow.GetForeground
    
20.     HWindow.SetSize key_Wnd,620,300
    
21.    
    
22.     '==============基本數據設定區==============
    
23.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
    
24.     KEY_SHP="0":        KEY_SMP="9"                 '小瓶hp/mp藥水
    
25.     KEY_FIGHT="PageUp": KEY_PICK="Z"
    
26.     TMR_SK1=190:    Sk1_Dle=800:    KEY_SK1="End"   '快劍
    
27.     TMR_SK2=190:    Sk2_Dle=800:    KEY_SK2="Shift" '速度激發
    
28.     TMR_SK3=170:    Sk3_Dle=800:    KEY_SK3="Delete"   '掠奪
    
29.     TMR_SK4=9999:   Sk4_Dle=1000:   KEY_SK4="Home"
    
30.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="Ctrl"  '金炸
    
31.     Fi_mode=5 :     fi_temp=30:     Go2LR=1
    
32.     '1 定點往右打        Fi_temp:攻擊次數
    
33.     '2 定點往左打        Go2LR:一次循環走動次數
    
34.     '3 定點左右打
    
35.     '4 打中間
    
36.     '5 定製品            "Delete" "End" "PageDown" "Insert" "Home"
    
37.     '6 左右走動          "PageUp" "Ctrl" "Shift" "Alt"
    
38.     '==========================================
    
39.     T_SK1=1:    T_SK2=1:    T_SK3=1: T_SK4=1:    T_SK5=1
    
40.     KeepRun=1
    
41.     Go2LR=1
    
42.     walkcounter=1
    
43.     Delay 500
    
44.     Call setting()
    
45.    
    
46.     Delay 500
    
47.     halt_x=21:   halt_y=605                  '暫停功能用
    
48.     halt_color=GetPixelColor(halt_x,halt_y)
    
49.     Color_HP=GetPixelColor(HP_X,HP_Y)       '大瓶藥水取色
    
50.     Color_MP=GetPixelColor(MP_X,MP_Y)
    
51.     Color_sHP=GetPixelColor(HP_SX,HP_Y)     '小瓶藥水取色
    
52.     Color_sMP=GetPixelColor(MP_SX,MP_Y)
    
53.     maple_Wnd = HWindow.GetForeground
    
54.     '主程式運作區
    
55.     Do While KeepRun=1
    
56.         Call chk_halt()                                 '撿查是否暫停
    
57.         If autochng=1 Then                              '紅點自動換平
    
58.             Call chchnl(Box_X1,Box_Y1,Box_X2,Box_Y2)
    
59.         End If
    
60.         Call FixYelo()
    
61.         Call ChkSkill()                                 '檢查技能
    
62.         Call ChkHpMp()                                  '自動補紅補藍
    
63.         Call WalkFight(Go2LR)                           '自動攻擊
    
64.         If walkcounter >= Go2LR *2 Then
    
65.             walkcounter=1
    
66.         Else
    
67.             walkcounter=walkcounter+1
    
68.         End If
    
69.     Loop
    
70. End Sub
    
71. Sub ChkSkill()
    
72.     If TIMER <30 Then
    
73.         T_SK1=1
    
74.         T_SK2=1
    
75.         T_SK3=1
    
76.         T_SK4=1
    
77.         T_SK5=1
    
78.     End If
    
79.     If TIMER > T_SK1+TMR_SK1 And tmr_sk1 < 9000  Then
    
80.         Delay Sk1_Dle
    
81.         KeyPressH KEY_SK1,1
    
82.         T_SK1=TIMER
    
83.     End If
    
84.     If TIMER > T_SK2+TMR_SK2 And tmr_sk2 < 9000  Then
    
85.         Delay Sk2_Dle
    
86.         KeyPressH KEY_SK2,1
    
87.         T_SK2=TIMER
    
88.     End If
    
89.     If TIMER > T_SK3+TMR_SK3 And tmr_sk3 < 9000  Then
    
90.         Delay Sk3_Dle
    
91.         KeyPressH KEY_SK3,1
    
92.         T_SK3=TIMER
    
93.     End If
    
94.     If TIMER > T_SK4+TMR_SK4 And tmr_sk4 < 9000  Then
    
95.         Delay Sk4_Dle
    
96.         KeyPressH KEY_SK4,1
    
97.         T_SK4=TIMER
    
98.     End If
    
99.     If TIMER > T_SK5+TMR_SK5 And tmr_sk5 < 9000  Then
    
100.         Delay Sk5_Dle
     
101.         KeyPressH KEY_SK5,1
     
102.         T_SK5=TIMER
     
103.     End If
     
104. End Sub
     
105. Sub ChkHpMp()
     
106.     If IsColor(HP_X,HP_Y,Color_HP,0) <> 1 Then      '大藥水
     
107.         Delay 300
     
108.         KeyPressH KEY_HP,1
     
109.     End If
     
110.     If IsColor(MP_X,MP_Y,Color_MP,0) <> 1 Then
     
111.         Delay 300
     
112.         KeyPressH key_mp,1
     
113.     End If
     
114.     If IsColor(HP_SX,HP_Y,Color_sHP,0) <> 1 Then    '小藥水
     
115.         Delay 300
     
116.         KeyPressH KEY_sHP,1
     
117.     End If
     
118.     If IsColor(MP_sx,MP_Y,Color_sMP,0) <> 1 Then
     
119.         Delay 300
     
120.         KeyPressH key_smp,1
     
121.     End If
     
122. End Sub
     
123. 
     
124. Sub WalkFight(Go2LR)
     
125.     Select Case True
     
126.         Case Fi_mode=1
     
127.         Call fight_a
     
128.         Case Fi_mode=2
     
129.         Call fight_b
     
130.         Case Fi_mode=3
     
131.         Call fight_c
     
132.         Case Fi_mode=4
     
133.         Call fight_d
     
134.         Case Fi_mode=5
     
135.         Call fight_e
     
136.         Case Fi_mode=6
     
137.         Call fight_f
     
138.     End Select
     
139. End Sub
     
140. Sub fight_a()
     
141.     Delay 800
     
142.     KeyPressH "RArrow",2
     
143.     Call fi_loop()
     
144.     Delay 500
     
145.     KeyPressH "RArrow",2
     
146.     Call fi_loop()
     
147.     Delay 500
     
148.     KeyPressH "RArrow",2
     
149.     Call fi_loop()
     
150.    
     
151.     KeyDownH "RArrow"
     
152.     Delay 3000
     
153.     KeyUpH "RArrow"    '後續由FIXYELO走回定點
     
154. End Sub
     
155. Sub fight_b()
     
156.     Delay 800
     
157.     KeyPressH "LArrow",2
     
158.     Call fi_loop()
     
159.     Delay 500
     
160.     KeyPressH "LArrow",2
     
161.     Call fi_loop()
     
162.     Delay 500
     
163.     KeyPressH "LArrow",2
     
164.     Call fi_loop()
     
165.    
     
166.     KeyDownH "LArrow"
     
167.     Delay 3000
     
168.     KeyUpH "LArrow"    '後續由FIXYELO走回定點
     
169. End Sub
     
170. Sub fight_c()
     
171.     If walkcounter mod 2 =1 Then
     
172.         Delay 800
     
173.         KeyPressH "RArrow",2
     
174.     Else
     
175.         Delay 800
     
176.         KeyPressH "LArrow",2
     
177.     End If
     
178.     Call fi_loop()
     
179. End Sub
     
180. Sub fight_d()
     
181.     If walkcounter mod 2 =1 Then
     
182.         Delay 500
     
183.         KeyDownH "RArrow"
     
184.         Delay 1000
     
185.         KeyUpH "RArrow"
     
186.         Delay 800
     
187.         KeyPressH "LArrow",2
     
188.     Else
     
189.         Delay 500
     
190.         KeyDownH "LArrow"
     
191.         Delay 1000
     
192.         KeyUpH "LArrow"
     
193.         Delay 800
     
194.         KeyPressH "RArrow",2
     
195.     End If
     
196.     Call fi_loop()      '後續由FIXYELO走回中心點
     
197. End Sub
     
198. Sub fight_e() '刀賊+bomb
     
199.     Delay 800
     
200.     KeyPressH "LArrow",2
     
201.     For usercounter=1 To 4  '奪取
     
202.         Call fi_loop()
     
203.         Delay 500
     
204.         KeyPressH "LArrow",1
     
205.     Next
     
206.     KeyDownH "RArrow"       '炸
     
207.     Delay 500
     
208.     KeyUpH "RArrow"
     
209.     Delay 800               
     
210.     KeyPressH "LArrow",2
     
211.     For USERCOUNT=1 To FI_TEMP / 4
     
212.         Delay 1000
     
213.         KeyPressH KEY_SK5,1
     
214.     Next
     
215.     KeyDownH "LArrow"       '檢
     
216.     Delay 1000
     
217.     KeyUpH "LArrow"
     
218. End Sub
     
219. Sub fight_f()
     
220.     KeyDownH "RArrow"
     
221.     Delay 8000
     
222.     KeyUpH "RArrow"
     
223.     Delay 300
     
224.     KeyDownH "LArrow"
     
225.     Delay 8000
     
226.     KeyUpH "LArrow"
     
227.     Delay 300
     
228. End Sub

複製代碼

接2樓

[ 本文章最後由 SAYHIGH 於 2007-9-13 14:51 編輯 ]

1. 
   
2. 
   
3. Sub Fi_loop()
   
4.     For Temp = 1 To fi_temp    '攻擊
   
5.         KeyPressH key_fight,1
   
6.         Delay 150
   
7.         If autochng=1 Then                              '紅點自動換平
   
8.             Call chchnl(Box_X1,Box_Y1,Box_X2,Box_Y2)
   
9.         End If
   
10.         Call ChkHpMp()
    
11.     Next
    
12.     Call chk_halt()
    
13.     Call ChkSkill()
    
14. End Sub
    
15. 
    
16. Sub chchnl(Box_X1,Box_Y1,Box_X2,Box_Y2)
    
17.     Dim X3
    
18.     Dim Y3
    
19.     X3=0
    
20.     FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1020FF,0.9,x3,y3
    
21.     FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1122ee,0.9,ch_temp,y3
    
22.     If x3 > 10  Or ch_temp > 10 Then    '紅點出現停止攻擊
    
23.         HWindow.Active maple_wnd
    
24.         HWindow.SetToTop maple_Wnd
    
25.         Do While X3 >10 Or ch_temp > 10
    
26.                 '紅點出現點滑鼠進入商場
    
27.                 'Delay 100
    
28.                 'Do While  x3 > 10  Or ch_temp > 10
    
29.                 '    MoveToH 620,615
    
30.                 '    Delay 300
    
31.                 '    LeftClickH 1
    
32.                 '    FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1020FF,0.9,x3,y3
    
33.                 '    FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1122ee,0.9,ch_temp,y3
    
34.                 'Loop
    
35.                 'Delay 500
    
36.                 ''看不到黃點.移動滑鼠離開商場
    
37.                 'FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
    
38.                 'Do While  ch_temp < 10
    
39.                 '    MoveToH 700,600
    
40.                 '    Delay 1000
    
41.                 '    LeftClickH 1
    
42.                 '    FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
    
43.                 'Loop
    
44.                 'Delay 1500
    
45.                 ''確認黃點出現.並延遲
    
46.                 'FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
    
47.                 'Do While  ch_temp < 10
    
48.                 '    FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
    
49.                 '    Delay 1000
    
50.                 'Loop
    
51.             '隨機換頻
    
52.             Dprint "in change"
    
53.             KeyPressH "ESC",1
    
54.             Delay 300
    
55.             KeyPressH "Enter",1
    
56.             Delay 300
    
57.             Randomize
    
58.             For ch_temp=1 To rnd*10+1
    
59.                 KeyPressH "LArrow",1
    
60.                 Delay 100
    
61.             Next  
    
62.             Delay 500
    
63.             KeyPressH "Enter",1
    
64.             Delay 2000
    
65.             '確認黃點出現.並延遲
    
66.             FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
    
67.             Do While  ch_temp < 10
    
68.                 FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
    
69.                 Delay 1000
    
70.             Loop
    
71.             '換頻後檢查紅點
    
72.             FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1020FF,0.9,x3,y3
    
73.             FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1122ee,0.9,ch_temp,y3
    
74.         Loop
    
75.         '走回攻擊原點
    
76.         KeyDownH "LArrow"
    
77.         Delay 2000
    
78.         KeyUpH "LArrow"
    
79.         Delay 300
    
80.         'KeyDownH "RArrow"
    
81.         'Delay 5000
    
82.         'KeyUpH "RArrow"
    
83.     End If
    
84. End Sub
    
85. Sub FixYelo()
    
86.     FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ye_temp,Yelo_y
    
87.     Do While abs(Yelo_x - ye_temp) > 2
    
88.         If Yelo_x > ye_temp Then
    
89.             KeyPressH "RArrow",1
    
90.         Else
    
91.             KeyPressH "LArrow",1
    
92.         End If
    
93.         FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ye_temp,Yelo_y
    
94.     Loop
    
95. End Sub
    
96. Sub chk_halt()
    
97.     If IsColor(halt_x,halt_y,halt_color,0) <> 1 Then
    
98.         
    
99.         Delay 1000
    
100.         temp=InputBox ("暫停中" & vbcrlf & "R:調整黃點往右3點 L:調整黃點往左3點" & vbcrlf &"1:HP位置減5%    3:HP位置加5% "& vbcrlf &"7:MP位置減5%    9:MP位置加5% ")
     
101.         Dprint temp
     
102.         Select Case True
     
103.             Case temp="R" Or temp="r"
     
104.             Yelo_x=yelo_x+3
     
105.             
     
106.             Case temp="L" Or temp="l"
     
107.             Yelo_x=yelo_x-3
     
108.             
     
109.             Case temp="1"
     
110.             hp_x=hp_x-5
     
111.             hp_sx=hp_sx-5
     
112.             Color_HP=GetPixelColor(HP_X,HP_Y)       '大瓶藥水取色
     
113.             Color_sHP=GetPixelColor(HP_SX,HP_Y)     '小瓶藥水取色
     
114.             
     
115.             Case temp="3"
     
116.             hp_x=hp_x+5
     
117.             hp_sx=hp_sx+5
     
118.             Color_HP=GetPixelColor(HP_X,HP_Y)       '大瓶藥水取色
     
119.             Color_sHP=GetPixelColor(HP_SX,HP_Y)     '小瓶藥水取色
     
120.             
     
121.             Case temp="7"
     
122.             Mp_x=Mp_x-5
     
123.             Mp_sx=Mp_sx-5
     
124.             Color_MP=GetPixelColor(MP_X,MP_Y)
     
125.             Color_sMP=GetPixelColor(MP_SX,MP_Y)
     
126.             
     
127.             Case temp="9"
     
128.             Mp_x=Mp_x+5
     
129.             Mp_sx=Mp_sx+5
     
130.             Color_MP=GetPixelColor(MP_X,MP_Y)
     
131.             Color_sMP=GetPixelColor(MP_SX,MP_Y)
     
132.             
     
133.         End Select
     
134.     End If
     
135.    
     
136. End Sub
     
137. Sub  setting()
     
138.     temp=InputBox ("HP/MP設定 1.預設50%(小藥水20%) 2.游標定位")
     
139.     If temp=1 Then
     
140.         HP_X=220+50
     
141.         HP_Y=620
     
142.         MP_X=330+50
     
143.         mp_y=620
     
144.         HP_sx=HP_X+20
     
145.         MP_sx=MP_X+20
     
146.     Else
     
147.         Msgbox "設定HP/MP補充位置 z  x"
     
148.         WaitForKey "z"
     
149.         GetMousePos HP_X,HP_Y
     
150.         Msgbox "HP設定點完成"
     
151.         
     
152.         WaitForKey "x"
     
153.         GetMousePos MP_X,MP_Y
     
154.         Msgbox "MP設定點完成"
     
155.     End If
     
156.     AutoChng=InputBox ("紅點換頻設定 1.換頻+定位 2.只定位")
     
157.     If Autochng=1 Then
     
158.         Msgbox "設定紅點檢查區域 z  x"
     
159.         WaitForKey "z"
     
160.         GetMousePos Box_X1,Box_Y1
     
161.         Msgbox "設定點一完成"
     
162.         WaitForKey "x"
     
163.         GetMousePos Box_X2,Box_Y2
     
164.         Msgbox "設定點二完成"
     
165.         FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,Yelo_x,Yelo_y
     
166.     Else
     
167.         Autochng=2
     
168.         Msgbox "設定黃點定位區域 z  x"
     
169.         WaitForKey "z"
     
170.         GetMousePos Box_X1,Box_Y1
     
171.         Msgbox "設定點一完成"
     
172.         WaitForKey "x"
     
173.         GetMousePos Box_X2,Box_Y2
     
174.         Msgbox "設定點二完成"
     
175.         FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,Yelo_x,Yelo_y
     
176.     End If
     
177.     Dprint "seting ok"
     
178. End Sub
     

複製代碼

在實際應用.腳色更換改參數.建議另建一個檔案.
以copy的方式比較輕鬆
內容類似

1. 劍士
   
2.     '==============基本數據設定區==============
   
3.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
   
4.     KEY_SHP="[":        KEY_SMP="]"                 '小瓶hp/mp藥水
   
5.     KEY_FIGHT="PageUp": KEY_PICK="Z"
   
6.     TMR_SK1=195:    Sk1_Dle=800:    KEY_SK1="Shift" '快劍
   
7.     TMR_SK2=195:    Sk2_Dle=800:    KEY_SK2="End"   '屬性
   
8.     TMR_SK3=85:     Sk3_Dle=800:    KEY_SK3="<Space>"   '反射盾
   
9.     TMR_SK4=682:    Sk4_Dle=1000:   KEY_SK4="Home"     '鬼神之擊
   
10.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="v"
    
11.     Fi_mode=1 :     fi_temp=60:      Go2LR=1
    
12. 祭司
    
13.     '==============基本數據設定區==============
    
14.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
    
15.     KEY_SHP="[":        KEY_SMP="]"                 '小瓶hp/mp藥水
    
16.     KEY_FIGHT="PageUp": KEY_PICK="Z"
    
17.     TMR_SK1=115:    Sk1_Dle=1000:   KEY_SK1="Shift" '祈禱
    
18.     TMR_SK2=195:    Sk2_Dle=1000:   KEY_SK2="End"   '祝福
    
19.     TMR_SK3=20:     Sk3_Dle=1000:   KEY_SK3="Home"  '聖龍
    
20.     TMR_SK4=9999:   Sk4_Dle=1:      KEY_SK4="B"     '----
    
21.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="v"
    
22.     Fi_mode=3 :     fi_temp=5:      Go2LR=1
    
23. 
    
24. 神偷
    
25.     '==============基本數據設定區==============
    
26.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
    
27.     KEY_SHP="[":        KEY_SMP="]"                 '小瓶hp/mp藥水
    
28.     KEY_FIGHT="PageUp": KEY_PICK="Z"
    
29.     TMR_SK1=195:    Sk1_Dle=1000:   KEY_SK1="Shift" '快劍
    
30.     TMR_SK2=195:    Sk2_Dle=1000:   KEY_SK2="End"   '速度激發
    
31.     TMR_SK3=175:    Sk3_Dle=1000:   KEY_SK3="Home"  '掠奪
    
32.     TMR_SK4=9999:   Sk4_Dle=1:      KEY_SK4="V"     '----
    
33.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="B"     '炸彈
    
34.     Fi_mode=3 :     fi_temp=5:      Go2LR=1

複製代碼

[ 本文章最後由 SAYHIGH 於 2007-9-12 23:44 編輯 ]

終於有人回應了....好感動的說yociexp199.gif

這腳本的模式.出自小弟手中

因為其它的腳本都沒有換頻..所以我才繼續走下來

如果...真的沒有什麼回應的話


有關紅點.黃點.橘點的問題
在小地圖本身就有很多顏色.而且地圖不同顏色衝撞的機會會增加.造成沒紅點也換頻
所以想澈底解決紅點.只有用遊俠的READ MEMORY功能.但問題很大不詳述
所以在圈選小地圖時.不一定要把整個小地圖包起來
只要把黃點附件包起來就可以...為何只包黃點?
因為幾乎所有的精靈跑久後.人物會離開原始點很遠.造成打不到怪
所以小弟堅持黃點的原因在此

而紅點以經走到身邊很久.才執行換頻
目前是整個攻擊循環做一次檢查
這個問題不是不能解
而是.每一個動作後.就檢查一次紅點
這樣效率降很多
而且必需配合停止呼吸
CHANGE CHANNEL這個SUB的DELAY時間依各電腦調成最合適的DELAY時間

小弟拋磚塊.只想和各位交流
真正好用的巨集還是要你自己加加減減修改才最適合你

yociexp175.gif 給想研究色碼的小玩意yociexp175.gif

1.你要開啟excel.搭配視窗化操作
2.使用遊俠.並把下面的數據載進去
3.按遊俠的執行後.分別要取左上和右下
4.取完左上還有右下後.你有2秒的時間.趕緊用滑鼠點一下excel.讓excel成為主視窗
但切記.excel不可蓋住你選定的範圍
如果你選的範圍太大...會很辛苦

1. Sub Main()   
   
2.     '須搭配excel作紀錄
   
3.     Dim Box_X1:     Dim Box_X2:     Dim Box_Y1:     Dim Box_Y2
   
4.     Dim count_a,count_b
   
5.     Dim color_code
   
6.    
   
7.     Msgbox "設定抓取範圍 z  x"
   
8.     WaitForKey "z"
   
9.     GetMousePos Box_X1,Box_Y1
   
10.     Msgbox "設定點一完成"
    
11.     WaitForKey "x"
    
12.     GetMousePos Box_X2,Box_Y2
    
13.     Msgbox "設定點二完成"
    
14.    
    
15.     Delay 2000
    
16.     For count_a=1 To box_x2-box_x1
    
17.         For count_b=1 To box_y2-box_y1
    
18.             Color_code=GetPixelColor(box_x1+count_a,box_y1+count_b)
    
19.             SayString hex(color_code) & vbcrlf
    
20.             Delay 300
    
21.         Next
    
22.         Delay 500
    
23.         KeyPress "RArrow",1  
    
24.         Delay 100
    
25.         KeyPress "End",1  
    
26.         Delay 100
    
27.         KeyPress "UArrow",1   
    
28.         Delay 100
    
29.     Next
    
30.    
    
31. End Sub

複製代碼

[ 本文章最後由 SAYHIGH 於 2007-9-13 14:46 編輯 ]

可以交我怎麼放腳本嘛= =yociexp199.gif

給5#
1.打開me
2.開啟遊俠--------遊俠要睡一下下....
3.執行楓谷
4.早期的遊俠按下盾牌
新版的遊俠似乎不用按
5.把滑鼠移到遊俠的範例腳本區
按滑鼠右鍵
選擇彈出畫面最上面那一行.按下去

舊版遊俠可使用10小時.經我努力掛下去.得出
是可執行腳本10小時.並不是說開啟遊俠10小時

版主介紹的playmacro與遊俠就有很清處介紹
或者去下面這網站下載最新版
http://www.fyhand.com/bbs/forumdisplay.php?fid=21

遊俠和按鍵精靈這些工具雷同.
最簡單就是幫你補紅補藍
自動打怪是可以..
但要自動找怪.刀刀必中的要求...我還沒弄出來[code]// 原作 MEMX(白目國中生)

[ 本帖最後由 SAYHIGH 於 2007-11-16 13:21 編輯 ]

雖然沒程式也沒教學.....謝謝拉~