/*
后台插件
KeyPress 按键
KeyDown 按下
KeyUp 弹起
Moto to 鼠标移动
leftClick 左键移动
SendString 发送字符串*/
//1想来使用后台插件 首先得获得要操作窗口的句柄
句柄 = Plugin.Window.mousePoint
//2 用得到当前鼠标窗口句柄来得到操作窗口句柄
TracePrint "得到笔记本窗口句柄:"&句柄
//3 来了获取客户端启始位置与大小
客户端 = Plugin.window.GetClientRect(句柄)
TracePrint "客户端数据:"& 客户端
//4 用字符串分隔法给客户端信息分析成X,Y 长和宽
Dim myarray
myarray=Split(客户端,"|")//用split把字符串以|为分隔点转换成数组
启点X = Clng(myarray(0)) : 启点Y = Clng(myarray(1)) : 长 = Clng(myarray(2))宽 = Clng(myarray(3))
//在用Clng把数组各元宝的字符串转换成长整形数据类型的 四个变量
TracePrint "客户端数据启点X启点Y长宽分别是"&启点X&" "&启点Y&" "&长&" "&宽
//5用KeyPress 按键在笔记本里分别键入hello
Call Plugin.Bkgnd.KeyPress(句柄, 72)
Call Plugin.bkgnd.KeyPress(句柄, 69)
Call Plugin.Bkgnd.KeyPress(句柄, 76)
Call Plugin.Bkgnd.KeyPress(句柄, 76)
Call Plugin.Bkgnd.KeyPress(句柄, 79)
//6用KeyDown 按下空格键
Call Plugin.Bkgnd.KeyDown(句柄, 32)
//7用KeyUP 弹起空格键
Call Plugin.Bkgnd.KeyUp(句柄, 32)
//8用SendString输入文本hello
Call Plugin.Bkgnd.SendString(句柄,"hello")
//9用MoveTo 移到鼠标 600,400 坐标
Call Plugin.Bkgnd.MoveTo(句柄, 600, 400)
//10 用LeftClick 在600,400处点击
Call Plugin.Bkgnd.LeftClick(句柄,600,400)
后台插件
最新推荐文章于 2024-05-14 10:17:33 发布