本帖最後由 hdm113 於 2014-1-7 17:57 編輯
這段是拉魚的,看不懂小弟就沒辦法了~嘿嘿
因為小弟寫的指令都是上網找的,瞭解他的規則使用方法後,複製再貼上就好了
For 25
Delay 25
If Form1.ComboBox4.ListIndex = 1 Then
Rem fish2
FindPic X1+468, Y1+14, X2+476, Y2+21,"Attachment:小魚尾巴.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.Bkgnd.LeftDown(Hwnd, 595, 319)//4
Delay Form1.InputBox7.Text
Call Plugin.Bkgnd.MoveTo(Hwnd, 482, 285)//9
Delay Form1.InputBox8.Text
Call Plugin.Bkgnd.MoveTo(Hwnd, 595, 255)//14
Delay Form1.InputBox9.Text
Call Plugin.Bkgnd.LeftUp(Hwnd, 595, 255)//14
Delay Form1.InputBox10.Text
Goto fish2
End If
End If
Rem fish3
If Form1.ComboBox4.ListIndex = 0 Then
FindPic X1+401, Y1+318, X2+435, Y2+350,"Attachment:小魚圖-s無技能.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call Plugin.Bkgnd.LeftDown(Hwnd, 530, 285)//530, 291)
Delay Form1.InputBox1.Text
Call Plugin.Bkgnd.MoveTo(Hwnd, 570, 270)//569, 266)
Delay Form1.InputBox2.Text
Call Plugin.Bkgnd.LeftUp(Hwnd, 570, 270)//569, 266)
Delay Form1.InputBox4.Text //83
Goto fish3
End If
End If
Next
End If |