“按键精灵”怎么对指定窗口使用?
4个回答
展开全部
一般后台找句柄就是 hwnd = Plugin.Window.Find(0,"窗口标题名字")hwnd就是存储这要找的窗口句柄 这是找一个的。
如果要多开用以下代码hwnd = Plugin.Window.Search("窗口标题字")Dimhwnd_aDimhwnd_bhwnd_a = split(hwnd, "|")hwnd_b = UBound(hwnd_a)这样hwnd_a()数组里面就存储了所有标题含有你要的字符的窗口的句柄hwnd_b是数组数量。
展开全部
HI号,我白天都在线.
由于你的说明不是很清楚,所以只能通过交流才能更清晰的明白要所要的效果.
我会根据你的要求帮你把代码完善.
以下代码直接复制可用
Dim t1 t2
//下面这句是得到当前最前面的窗口句柄
Plugin hwnd = Window.GetKeyFocusWnd()
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 112)
Delay 200
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 113)
Delay 200
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:114)按键
Plugin Bkgnd.KeyPress(Hwnd, 114)
Delay 1600
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:115)按键
Plugin Bkgnd.KeyPress(Hwnd, 115)
Delay 200
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:116)按键
Plugin Bkgnd.KeyPress(Hwnd, 116)
t2=now
t1=now
While 1=1
While 1=1
While 1=1
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 113)
Delay 200
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:114)按键
Plugin Bkgnd.KeyPress(Hwnd, 114)
Delay 1600
If DateDiff("s",t1,now)>=61
Goto 按F1循环
EndIf
If DateDiff("s",t2,now)>=181
Goto 按F4F5循环
EndIf
EndWhile
Rem 按F1循环
Delay 500
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:112)按键
Plugin Bkgnd.KeyPress(Hwnd, 112)
Delay 500
t1=now
If DateDiff("s",t2,now)>=181
Goto 按F4F5循环
EndIf
EndWhile
Rem 按F4F5循环
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:115)按键
Plugin Bkgnd.KeyPress(Hwnd, 115)
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:116)按键
Plugin Bkgnd.KeyPress(Hwnd, 116)
Delay 200
t2=now
If DateDiff("s",t1,now)>=61
Goto 按F1循环
EndIf
t2=now
EndWhile
由于你的说明不是很清楚,所以只能通过交流才能更清晰的明白要所要的效果.
我会根据你的要求帮你把代码完善.
以下代码直接复制可用
Dim t1 t2
//下面这句是得到当前最前面的窗口句柄
Plugin hwnd = Window.GetKeyFocusWnd()
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 112)
Delay 200
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 113)
Delay 200
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:114)按键
Plugin Bkgnd.KeyPress(Hwnd, 114)
Delay 1600
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:115)按键
Plugin Bkgnd.KeyPress(Hwnd, 115)
Delay 200
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:116)按键
Plugin Bkgnd.KeyPress(Hwnd, 116)
t2=now
t1=now
While 1=1
While 1=1
While 1=1
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 113)
Delay 200
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:114)按键
Plugin Bkgnd.KeyPress(Hwnd, 114)
Delay 1600
If DateDiff("s",t1,now)>=61
Goto 按F1循环
EndIf
If DateDiff("s",t2,now)>=181
Goto 按F4F5循环
EndIf
EndWhile
Rem 按F1循环
Delay 500
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:112)按键
Plugin Bkgnd.KeyPress(Hwnd, 112)
Delay 500
t1=now
If DateDiff("s",t2,now)>=181
Goto 按F4F5循环
EndIf
EndWhile
Rem 按F4F5循环
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:115)按键
Plugin Bkgnd.KeyPress(Hwnd, 115)
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:116)按键
Plugin Bkgnd.KeyPress(Hwnd, 116)
Delay 200
t2=now
If DateDiff("s",t1,now)>=61
Goto 按F1循环
EndIf
t2=now
EndWhile
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
原版的就很好 一直没啥问题
一般后台找句柄就是 hwnd = Plugin.Window.Find(0,"窗口标题名字")
hwnd就是存储这要找的窗口句柄 这是找一个的,如果要多开用以下代码
hwnd = Plugin.Window.Search("窗口标题名字")
Dim hwnd_a
Dim hwnd_b
hwnd_a = split(hwnd, "|")
hwnd_b = UBound(hwnd_a)
这样hwnd_a()数组里面就存储了所有标题含有你要的字符的窗口的句柄
hwnd_b是数组数量
一般后台找句柄就是 hwnd = Plugin.Window.Find(0,"窗口标题名字")
hwnd就是存储这要找的窗口句柄 这是找一个的,如果要多开用以下代码
hwnd = Plugin.Window.Search("窗口标题名字")
Dim hwnd_a
Dim hwnd_b
hwnd_a = split(hwnd, "|")
hwnd_b = UBound(hwnd_a)
这样hwnd_a()数组里面就存储了所有标题含有你要的字符的窗口的句柄
hwnd_b是数组数量
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
例子:
Hwnd = Plugin.Window.GetKeyFocusWnd()
//获取当前可发送信息的窗口句柄赋值给Hwnd
Call Plugin.Bkgnd.KeyPress(Hwnd, 70)
//按F键
比如一个窗口模式的游戏,你点中标题栏最为当前窗口,这个程序只对标题栏起作用,应该是选中内容栏,比如说记事本的编辑模式(虽然说记事本一直处于编辑模式下),我前几天搞一个网页游戏,我用360浏览器选择窗口模式,选中标题栏不行,必须点内容,就是人物能跑能跳的情况下,运行脚本才行,上面这个程序刚刚测试过的,希望能帮到你。
ps:关于楼上的多开的情况,我也是学的不咋地,命令还没学全。这是按键精灵8.0的命令,那个回答的最多的人,发的命令是老版本的,也不知道楼主用的哪个版本的按键精灵
Hwnd = Plugin.Window.GetKeyFocusWnd()
//获取当前可发送信息的窗口句柄赋值给Hwnd
Call Plugin.Bkgnd.KeyPress(Hwnd, 70)
//按F键
比如一个窗口模式的游戏,你点中标题栏最为当前窗口,这个程序只对标题栏起作用,应该是选中内容栏,比如说记事本的编辑模式(虽然说记事本一直处于编辑模式下),我前几天搞一个网页游戏,我用360浏览器选择窗口模式,选中标题栏不行,必须点内容,就是人物能跑能跳的情况下,运行脚本才行,上面这个程序刚刚测试过的,希望能帮到你。
ps:关于楼上的多开的情况,我也是学的不咋地,命令还没学全。这是按键精灵8.0的命令,那个回答的最多的人,发的命令是老版本的,也不知道楼主用的哪个版本的按键精灵
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |