Question

按键精灵-求大神前台脚本-转换-后台脚本

SetSimMode 2
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
ux = clng(myarray(0))
uy = clng(myarray(1))
Delay 1000
Sub 买药()
//
Delay 1100
MoveTo 805+ux, 26+uy
LeftDown 1
Delay 60
LeftUp 1
//
Delay 1000
MoveTo 490+ux, 195+uy
LeftDown 1
Delay 60
LeftUp 1
//
Delay 1000
MoveTo 795+ux, 223+uy
LeftDown 1
Delay 111
LeftUp 1
//~~~~~~~~~~~~~~~~~掉线登录~~~~~~~~~~~~~~~~~~
Delay 888
IfColor 561+ux, 670+uy, "6386BD", 0 Then
Goto x
Else
Delay 200
End If
//
Delay 1000
MoveTo 687+ux, 169+uy
Delay 500
RightDown 1
Delay 1000
RightUp 1
Delay 500
RightDown 1
Delay 500
RightUp 1
Delay 1500
FindPic ux+0,uy+720,ux+154,uy+767,"Attachment:\mywz1.bmp",1,intmywzX,intmywzY
If intmywzX > 0 And intmywzY > 0 Then
Delay 200
Else
Call 买药()
End If
//
Delay 500
MoveTo 651+ux, 87+uy
LeftDown 1
Delay 111
LeftUp 1
Delay 1200
IfColor 35+ux, 69+uy, "FFFF", 0 Then
Delay 200
Else
Call 买药1()
End If
//
Delay 888
MoveTo 35+ux, 69+uy
LeftDown 1
Delay 111
LeftUp 1
//
Delay 1200
MoveTo 101+ux, 371+uy
LeftDown 1
Delay 111
LeftUp 1
//
Delay 1300
MoveTo 51+ux, 257+uy
LeftDown 1
Delay 111
LeftUp 1
//
Delay 888
MoveTo 237+ux, 371+uy
For 20
Delay 666
LeftDown 1
Delay 199
LeftUp 1
Next
Delay 1000
IfColor 643+ux, 427+uy, "2831", 0 Then
Delay 600
MoveTo 640+ux, 428+uy
LeftDown 1
Delay 200
LeftUp 1
Else
Delay 200
End If
Delay 888
KeyPress "F9", 1
Delay 888
Call 传送()
End Sub
好人万岁，追加分

Answer 1

后台不难的 自己多摸索摸索 别人做得根据实际情况 不方便的