我听说按键精灵有个多线程的功能,但不懂,也不会写代码,求高手给写一个
我想在任务栏中打开8个记事本,然后启动按键精灵的热键后,实现同时在这些记事本中每隔10毫秒俺一次空格键,求高手
按键精灵如何实现同时按空格键?
答案:1 悬赏:20 手机版
解决时间 2021-01-28 17:18
- 提问者网友:愿为果
- 2021-01-27 18:20
最佳答案
- 五星知识达人网友:玩家
- 2021-01-27 19:30
Dimenv Hwnd1 //定义环境变量(多线程需要)
RunApp "notepad.exe" //启动3个记事本测试用
RunApp "notepad.exe"
RunApp "notepad.exe"
Delay 2000 //等待3个记事本工具打开
Hwnd = Plugin.Window.Search("无标题 - 记事本") //搜索所有记事本窗口句柄
MyArray = Split(Hwnd, "|") //分解句柄
If UBound(MyArray) >= 0 Then //判断是否搜到句柄?
For i = 0 To UBound(MyArray) - 1
hwndEx = Clng(MyArray(i)) //类型转换
Call Plugin.Window.Move(hwndEx, i * 100 + 100, i * 100 + 100) //调整窗口位置
//Call Plugin.Window.Active(hwndEx) //激活前面
Hwnd1 = Plugin.Window.FindEx(hwndEx, 0, "Edit", 0) //获取可打字的窗口句柄
BeginThread 打字 //启动线程
Delay 100 //启动线程需要点时间
Next
End If
//以下是【无限循环】防止全部脚本停止。
Do
Delay 1000
Loop
//以下是子程序
Sub 打字()
//首先获取环境变量句柄
Hwnd = Hwnd1
//然后开始循环或者无限循环需要执行的脚本内容
Do
//向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:32)按键
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 1000
Loop
End Sub
RunApp "notepad.exe" //启动3个记事本测试用
RunApp "notepad.exe"
RunApp "notepad.exe"
Delay 2000 //等待3个记事本工具打开
Hwnd = Plugin.Window.Search("无标题 - 记事本") //搜索所有记事本窗口句柄
MyArray = Split(Hwnd, "|") //分解句柄
If UBound(MyArray) >= 0 Then //判断是否搜到句柄?
For i = 0 To UBound(MyArray) - 1
hwndEx = Clng(MyArray(i)) //类型转换
Call Plugin.Window.Move(hwndEx, i * 100 + 100, i * 100 + 100) //调整窗口位置
//Call Plugin.Window.Active(hwndEx) //激活前面
Hwnd1 = Plugin.Window.FindEx(hwndEx, 0, "Edit", 0) //获取可打字的窗口句柄
BeginThread 打字 //启动线程
Delay 100 //启动线程需要点时间
Next
End If
//以下是【无限循环】防止全部脚本停止。
Do
Delay 1000
Loop
//以下是子程序
Sub 打字()
//首先获取环境变量句柄
Hwnd = Hwnd1
//然后开始循环或者无限循环需要执行的脚本内容
Do
//向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:32)按键
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 1000
Loop
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯