监视热键、超级延时用TC怎么写？

a145356

1. .版本 2
   
2. .支持库 EThread
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. 启动线程 (&监视热键线程, , )
   
9. 
   
10. .子程序 响应子程序
    
11. 
    
12. 信息框 (“111”, 0, , )
    
13. 
    
14. .子程序 监视热键线程
    
15. 
    
16. 热键监视 (#回车键, &响应子程序)
    
17. 
    
18. .子程序 热键监视, , 公开
    
19. .参数 欲监视热键的键代码, 整数型, , 欲监视热键的键代码
    
20. .参数 反应子程序, 子程序指针, , 反应子程序
    
21. .局部变量 A
    
22. 
    
23. .循环判断首 ()
    
24.     A ＝ GetAsyncKeyState (欲监视热键的键代码)
    
25.     .如果真 (A ＝ -32767)
    
26.         启动线程 (反应子程序, , )
    
27.     .如果真结束
    
28.     超级延时 (1)
    
29. .循环判断尾 (欲监视热键的键代码 ≠ -9999999)
    
30. 
    
31. .子程序 超级延时, , 公开, 高精度延时,cpu占用低,窗口不卡死,一次最大可延时几年 (无返回值)
    
32. .参数 延时间隔, 整数型, , 1000微秒 = 1毫秒 ； 1000毫秒 = 1秒
    
33. .参数 延时单位, 整数型, 可空, 可空:毫秒  0 毫秒  1 微秒  2 秒  3 分  4 小时  5 天
    
34. .局部变量 hTimer, 整数型
    
35. .局部变量 int64, LARGE_INTEGER
    
36. .局部变量 计次, 整数型
    
37. 
    
38. .判断开始 (延时单位 ＝ 1)
    
39.     int64.QuadPart ＝ -10 × 延时间隔
    
40.     hTimer ＝ CreateWaitableTimerA (0, 假, 0)
    
41.     SetWaitableTimer (hTimer, int64, 0, 0, 0, 假)
    
42.     .判断循环首 (MsgWaitForMultipleObjects (1, hTimer, 假, #INFINITE, #QS_ALLINPUT) ≠ #WAIT_OBJECT_0)
    
43.         处理事件 ()
    
44.     .判断循环尾 ()
    
45.     CloseHandle (hTimer)
    
46.     返回 ()
    
47. .判断 (延时单位 ＝ 0)
    
48.     延时单位 ＝ 1
    
49. .判断 (延时单位 ＝ 2)
    
50.     延时单位 ＝ 1000
    
51. .判断 (延时单位 ＝ 3)
    
52.     延时单位 ＝ 1000 × 60
    
53. .判断 (延时单位 ＝ 4)
    
54.     延时单位 ＝ 1000 × 60 × 60
    
55. .判断 (延时单位 ＝ 5)
    
56.     延时单位 ＝ 1000 × 60 × 60 × 24
    
57. .默认
    
58. 
    
59. .判断结束
    
60. .计次循环首 (延时单位, 计次)
    
61.     int64.QuadPart ＝ -10 × 延时间隔 × 1000
    
62.     hTimer ＝ CreateWaitableTimerA (0, 假, 0)
    
63.     SetWaitableTimer (hTimer, int64, 0, 0, 0, 假)
    
64.     .判断循环首 (MsgWaitForMultipleObjects (1, hTimer, 假, #INFINITE, #QS_ALLINPUT) ≠ #WAIT_OBJECT_0)
    
65.         处理事件 ()
    
66.     .判断循环尾 ()
    
67.     CloseHandle (hTimer)
    
68. .计次循环尾 ()
    

复制代码

监视热键

超级延时

这两个功能怎么用TC语言写出来？
就是纯粹用TC和系统的API。
监视热键&超级延时.e (5.82 KB, 下载次数: 375)

2016-12-26 00:50 上传

点击文件名下载附件
监视热键、超级延时

剑仙十号

tc怎样检测 某键位的状态。

tc怎样检测 一个按键的状态。

tc怎样检测 多个按键的状态。

//
while(true)

var retctrl = dllcall("user32.dll","long", "GetAsyncKeyState","long",17)

var retx = dllcall("user32.dll","long", "GetAsyncKeyState","long",88)

if(retctrl != 0 && retx != 0 )

traceprint("双键都已经按下。")

sleep(30)

end

sleep(100)

end

剑仙十号

dllcall()

a145356

剑仙十号 发表于 2016-12-26 10:50
tc怎样检测 某键位的状态。

tc怎样检测 一个按键的状态。

还有超级延时怎么写？