按键精灵吧 关注:500,115贴子:1,025,138
  • 0回复贴,共1

给新手的后台脚本范例源代码

只看楼主收藏回复

这个是送给新手的后台脚本范例源代码,鼠标坐标直接转换成了相对坐标,新手只需要把图片换成你需要的图就可以了。新手写后台脚本可以参考以下源代码,只是给出1个框架,高手大神可以飘过。
dim MyArray,L,T,R,B,x,y
//下面这句是得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
Delay 100
//下面这句是得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(Hwnd)
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
MyArray = Split(sRect, "|")
//下面这句将字符串转换成数值,获得窗口坐标:左上角(L,T),右下角(R,B)
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)) : B = Clng(MyArray(3))
Rem 开始
FindPic L,T,R,B,"Attachment:\图片.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then THwnden
//x,y是鼠标相对坐标,下面这句是换算出鼠标相对坐标
x = intX - L
y = intY - T
//下面这句是:鼠标在你找到的图片左上角左击1次
Call Plugin.Bkgnd.LeftDown(Hwnd, x, y)
Delay 300
Else
//下面这句是输出:没有找到图片
MessageBox "没有找到图片"
//下面这句是程序停止运行
EndScript
End If
Goto 开始


IP属地:广东1楼2022-04-02 15:25回复