-
关注Ta
-
- 注册时间 2009-05-17
- 最后登录 2010-01-02
-
- 发帖6
- 在线13小时
- 精华0
- DB5
- 威望1
- 保证金0
- 桃子0
- 鲜花0
- 鸡蛋0
-
访问TA的空间加好友用道具
|
會的請教一下我哪裡寫錯了 必須要有識別項,错误代码行10 =>Sub 1()這裡有錯誤 請教我 感謝!! Sub Main() If IsColor(29,45,"633c10",1) Then Call 1 Else Call 2 End If Call 3 End Sub Sub 1() If IsColor(199,708,"422008",1) Then MoveTo 74,456 Delay 250 RightClick 1 Delay 250 MoveTo 86,500 Delay 250 LeftClick 1 Delay 250 KeyPress "Enter",1 Delay 250 KeyPress "Enter",1 Delay 3000 Else KeyPress "F5",1 Delay 1000 KeyPress "Enter",1 Delay 250 KeyPress "Enter",1 Delay 9000 Call 3 End If End Sub Sub 2() KeyDown "L",1 Delay 31 KeyDown "W",1 Delay 31 KeyUp "W",1 Delay 31 KeyDown "W",1 Delay 2100 KeyUp "W",1 Delay 31 KeyDown "2",1 Delay 31 KeyUp "2",1 Delay 31 KeyDown "K",1 Delay 300 KeyUp "K",1 Delay 300 KeyDown "K",1 Delay 300 KeyUp "K",1 Delay 300 KeyDown "K",1 Delay 300 KeyUp "K",1 Delay 2100 KeyDown "S",1 Delay 31 KeyUp "S",1 Delay 31 KeyDown "S",1 Delay 2100 KeyUp"S",1 Delay 31 KeyDown "2",1 Delay 31 KeyUp "2",1 Delay 31 KeyDown "K",1 Delay 300 KeyUp "K",1 Delay 300 KeyDown "K",1 Delay 300 KeyUp "K",1 Delay 300 KeyDown "K",1 Delay 300 KeyUp "K",1 Delay 300 End Sub Sub 3() Delay 10 End Sub
|