• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.6.5
软件大小:29.2M
更新时间:12-01

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已解决] 按键精灵9遍历或多线程问题 [复制链接]

1#
我已经试了几天了,Dim hwnd(1)'数组,这里假设存放着2个窗口的句柄
DimEnv thehwnd '多线程传递变量

For i =0 To 1
thehwnd=hwnd(i)
BeginThread main
Delay 3000
Next

Sub main
set dm = createobject("dm.dmsoft")

thehwnd=nowhwnd

nowhwnd = dm.EnumWindow(0,"无标题 - 记事本","",1+4+8+16)
nowhwnd = split(x,",")

int(nowhwnd(0))
//dm_ret= dm.BindWindow(nowhwnd, "dx", "dx", "dx", 0)
TracePrint nowhwnd
End Sub


我试了多线程绑定或者 遍历,不是这里报错就是另外的 报错。如题,怎么解决绑定多个同标题的记事本,我实在没泽勒。求解

本主题由 超级版主 瑞祥幽冥狼 于 2021/1/14 11:15:18 执行 审核帖子 操作
2#

回复 1楼15123365174的帖子
  1. DimEnv 父句柄
  2. Set dm = createobject("dm.dmsoft")
  3. hwnd = dm.EnumWindow(0,"记事本","",1+4+8+16)
  4. TracePrint "记事本句柄:" & hwnd
  5. hwnds = split(hwnd, ",")
  6. For i=0 to UBound (hwnds)
  7. 父句柄 = hwnds(i)
  8. 线程ID1 = BeginThread(按键)
  9. Delay 100
  10. Next

  11. Sub 按键()
  12. 父句柄1=父句柄
  13. Set dm = createobject("dm.dmsoft")
  14. 记事本子句柄= dm.GetWindow(父句柄1, 1)
  15. TracePrint 记事本子句柄
  16. dm_ret = dm.BindWindow(记事本子句柄, "gdi", "windows", "windows", 0)'如果对txt测试dx改为gdi
  17. Do
  18. Delay 1000
  19. dm.KeyPress 65
  20. Loop
  21. End Sub
  22. Sub OnScriptExit()
  23. dm.UnBindWindow
  24. End Sub
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
3#

怎么分别控制不同操作呢?工程师

4#

回复 3楼15123365174的帖子
  1. DimEnv 父句柄
  2. Set dm = createobject("dm.dmsoft")
  3. hwnd = dm.EnumWindow(0,"记事本","",1+4+8+16)
  4. TracePrint "记事本句柄:" & hwnd
  5. hwnds = split(hwnd, ",")
  6. For i=0 to UBound (hwnds)
  7. 父句柄 = hwnds(i)
  8. Select Case i
  9. Case 0
  10. 线程ID1 = BeginThread(按键1)
  11. Case 1
  12. 线程ID1 = BeginThread(按键2)
  13. Case Else
  14. 线程ID1 = BeginThread(按键3)
  15. End Select
  16. Delay 100
  17. Next
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题