按键精灵后台运行脚本

按键精灵后台运行脚本

VBSCall GG=InputBox("请输入窗口标题")If StrComp("",GG)=0 Goto 结束EndIf Plugin HwndEx = Window.Search(GG) //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串 MyArray = Split(HwndEx, "|") A=Clng(MyArray(0))B=Clng(MyArray(1))//下面这句是最大化窗口Plugin Window.Max(A)Delay 2000MoveTo 500,500LeftClick 1//下面这句是得到鼠标指向的窗口句柄Plugin hwnd1 = Window.MousePoint()Delay 3000//下面这句是最小化窗口Plugin Window.Min(A)Delay 1000//下面这句是最大化窗口Plugin Window.Max(B)Delay 2000MoveTo 378,403LeftClick 1//下面这句是得到鼠标指向的窗口句柄Plugin hwnd2 = Window.MousePoint()Delay 3000//下面这句是最小化窗口Plugin Window.Min(B)Delay 50//下面是你上面代码的后台的写法，两个窗口都可以最小化的Rem startx=112While x<118 //下面这句用于向后台窗口句柄(变量：hwnd1)发送一个键盘(扫描码：65)按键Plugin Bkgnd.KeyPress(hwnd1,x)Plugin Bkgnd.KeyPress(hwnd2,x) Delay 4*10^3 x=x+1 //下面这句用于向后台窗口句柄(变量：hwnd1)发送一个键盘(扫描码：65)按键Plugin Bkgnd.KeyPress(hwnd1,32)Plugin Bkgnd.KeyPress(hwnd2,32) Delay 5EndWhile Delay 1Goto startRem 结束你试试，在开始弹出窗口输入“窗口标题”，开始先不要动，等他大小化两个窗口之后就可以随意了