• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 5002|回复: 6

界面启用死循环线程 [复制链接]

瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 26975
  • 25
  • 8050 朵
  • 36129 个
  • 4746 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
1#
t T
发表于 2012-12-25 17:33 | |只看楼主
本帖最后由 n15976906190 于 2012-12-25 17:35 编辑

例子1：
  1. DimEnv 线程ID1,线程ID2,线程ID3
  2. Event Form1.Button1.Click
  3. a=1
  4. Select Case a
  5. Case 0
  6. 线程ID1=BeginThread (脚本1)
  7. Case 1
  8. 线程ID2=BeginThread (脚本2)
  9. Case 2
  10. 线程ID3=BeginThread (脚本3)
  11. End Select
  12. End Event
  13. Sub 脚本1()
  14. Do
  15. MessageBox "1"
  16. Delay 1000
  17. Loop
  18. End Sub
  19. Sub 脚本2()
  20. Do
  21. MessageBox "2"
  22. Delay 1000
  23. Loop
  24. End Sub
  25. Sub 脚本3()
  26. Do
  27. MessageBox "3"
  28. Delay 1000
  29. Loop
  30. End Sub
复制代码
例子2：例子1结尾加
  1. Sub OnScriptExit()
  2. StopThread 线程ID1
  3. StopThread 线程ID2
  4. StopThread 线程ID3
  5. End Sub
复制代码
第三例子：
  1. Event Form1.Button1.Click
  2. a=1
  3. Select Case a
  4. Case 0
  5. 线程ID1=BeginThread (脚本1)
  6. Case 1
  7. 线程ID2=BeginThread (脚本2)
  8. Case 2
  9. 线程ID3=BeginThread (脚本3)
  10. End Select
  11. 线程ID4=BeginThread (检测)
  12. End Event
  13. Sub 脚本1()
  14. Do
  15. MessageBox "1"
  16. Delay 1000
  17. Loop
  18. End Sub
  19. Sub 脚本2()
  20. Do
  21. MessageBox "2"
  22. Delay 1000
  23. Loop
  24. End Sub
  25. Sub 脚本3()
  26. Do
  27. MessageBox "3"
  28. Delay 1000
  29. Loop
  30. End Sub
  31. Sub 检测()
  32. Do
  33. key = WaitKey()
  34. If key = 65 Then
  35. ExitScript
  36. End If
  37. Delay 1000
  38. Loop
  39. End Sub
复制代码
问题描述，第一种第二种狂按F12（或按住不放方可停下，延时1-2秒），第三种通过多一个线程来代替停止热键（不能和停止热键重复，可立刻停止），除了第三种不是办法办法，请教有何解

    已有15评分我要评分查看所有评分
    点赞
    收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

    个 人 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［可加］
    回顶部
    上一主题| 下一主题
    返回列表
    发新话题 回复该主题
    高级编辑器高级编辑器