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 2000
MoveTo 500,500
LeftClick 1
//下面这句是得到鼠标指向的窗口句柄
Plugin hwnd1 = Window.MousePoint()
Delay 3000
//下面这句是最小化窗口
Plugin Window.Min(A)
Delay 1000
//下面这句是最大化窗口
Plugin Window.Max(B)
Delay 2000
MoveTo 378,403
LeftClick 1
//下面这句是得到鼠标指向的窗口句柄
Plugin hwnd2 = Window.MousePoint()
Delay 3000
//下面这句是最小化窗口
Plugin Window.Min(B)
Delay 50
//下面是你上面代码的后台的写法,两个窗口都可以最小化的
Rem start
x=112
While 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 5
EndWhile
Delay 1
Goto start
Rem 结束
你试试,在开始弹出窗口输入“窗口标题”,开始先不要动,等他大小化两个窗口之后就可以随意了
你只需要把 keypress 32,1替换成Plugin Bkgnd.KeyPress(这处填句柄, 32)
就可以实现后台运行了,运行其间受控窗口状态随意,无论前台后台都是向该窗口发送按键命令。
附:检查窗口句柄的脚本,选中活动窗口,然后运行这段代码,弹出对话框内的数据就是该窗口的句柄。
dim hwnd
Delay 1000
Plugin hwnd=Window.GetKeyFocusWnd()
MessageBox hwnd
多后台运行,就是多加几个Plugin Bkgnd.KeyPress语句就可以,只是分别填写对应的句柄就可以了。
按键可以几个脚本同时运行的,所以就简单了。最简单的后台脚本出来了,先知道窗口句柄,因为一个窗口的句柄是可以一直用的,只要不重开这个窗口,就可以一直用这一个窗口句柄,那么就简单了。你的要求做成4个脚本就很简单了。
//第一个脚本,开始键随便啦
For 1000000
Plugin BGKM5.KeyClick(7340892,115)
Delay 100
EndFor
//第二个脚本,开始键1
Plugin BGKM5.KeyClick(7340892,112)
//第三个脚本,开始键2
Plugin BGKM5.KeyClick(7340892,113)
//第四个脚本,开始键3
Plugin BGKM5.KeyClick(7340892,114)
//把7340892改为运行脚本窗口的句柄,就行了,四个脚本,你看起来也简单,用起来也方便,用的是第五版361后台插件,简单吧
晕s
什么热键设置啊
这是个后台按f1f2f3f4的脚本
参数自己改
后面的数字其实也就是按键码
鼠标命令中可以查找
//下面这句是得到当前最前面的窗口句柄
plugin
hwnd
=
window.foreground()
rem
m
plugin
bgkm5.keyclick(hwnd,112)
//112代码f1
delay
10
//防止太快
无效
plugin
bgkm5.keyclick(hwnd,113)
//112代码f2
delay
10
//防止太快
无效
plugin
bgkm5.keyclick(hwnd,114)
//112代码f3
delay
10
//防止太快
无效
plugin
bgkm5.keyclick(hwnd,115)
//112代码f4
delay
10
goto
m
//先把鼠标悬停在你想要的后台游戏窗口,这个语句是获取窗口句柄
hwnd = Plugin.Window.Foreground()
//无限循环语句
While 1
//后台按键“1”的语句
Call Plugin.Bkgnd.KeyPress(hwnd, 49)
//延时1秒,就是间隔一秒,你可以自行修改,1000等于1秒
Delay 1000
//循环结束
Wend