TC官方合作论坛

标题: TC如何实现 键盘 按下 弹起 事件{ 求大神 } [打印本页]
作者: sbnui1989    时间: 2015-12-13 10:00
标题: TC如何实现 键盘 按下 弹起 事件{ 求大神 }
已知 dllcall("user32.dll","long", "GetAsyncKeyState","long",32) 可以实现  按下 弹起操作。。。按下不放的时候 相对来说 比较流畅  但是按1下的时候 有时候 反应 很迟钝

  1. 变量 线程ID,线程ID1,线程ID2
  2. //从这里开始执行
  3. 功能 执行()
  4.    
  5.     //从这里开始你的代码
  6. 结束

  8. //启动_热键操作
  9. 功能 启动_热键()
  10.     线程ID=线程开启("主程序","")
  11.    
  12. 结束

  14. //终止热键操作
  15. 功能 终止_热键()
  16.     线程关闭(线程ID)
  17.    
  18. 结束


  21. 功能 主程序()//线程1函数.
  22.     变量 返回值=0
  23.     循环(真)//循环开始.
  24.         返回值 = dllcall("user32.dll","long", "GetAsyncKeyState","long",32)
  25.         如果(返回值!=0)
  26.             线程ID2=线程开启("按键任务","")//开户线程2,并返回线程句柄.
  27.             等待(3)
  28.         结束
  29.         循环(返回值!=0)//小循环开始.
  30.             返回值 = dllcall("user32.dll","long", "GetAsyncKeyState","long",32)
  31.             等待(3)//一直循环,等待放开空格.
  32.         结束 //小循环结束.
  33.         线程关闭(线程ID2)//关闭线程2.
  34.   
  35.         等待(3)
  36.     结束//循环结束.
  37. 结束


  40. 功能 按键任务()//线程2函数.
  41.     循环(真)
  42.         keypress(70)
  43.         鼠标左键按下()
  44.         鼠标左键弹起()
  45.       
  46.         keypress(71)
  47.         鼠标左键按下()
  48.         鼠标左键弹起()
  49.     结束
  50. 结束
复制代码
求 有没别的办法~~~~~





作者: 剑仙十号    时间: 2015-12-13 10:43
【教程1】键盘命令。[精][顶]

项目二：按住和放开目标键，都实现不同的效果。

变量 线程ID

//从这里开始执行

功能 执行()

//在调试输出中查看。

while(10 > 1)

var 返回值 =  dllcall("user32.dll","long", "GetAsyncKeyState","long",65)

traceprint(返回值)

if(返回值 != 0)

traceprint("a键已按下。")

while(返回值 != 0)

sleep(30)

返回值 =  dllcall("user32.dll","long", "GetAsyncKeyState","long",65)

end

traceprint("a键已经弹起。")

end

sleep(100)

end

结束

//启动_热键操作

功能 启动_热键()

线程ID=线程开启("执行","")

结束

//终止热键操作

功能 终止_热键()

线程关闭(线程ID)

结束

转载自：tc简单开发吧 <  贴吧 <  百度
作者: 言术    时间: 2015-12-13 11:41

。

测试一下.rar

1.25 KB, 下载次数: 128
作者: 言术    时间: 2015-12-13 11:47
又修改了一下


测试一下.rar

1.21 KB, 下载次数: 151
作者: sbnui1989    时间: 2015-12-13 13:43
剑仙十号 发表于 2015-12-13 10:43
【教程1】键盘命令。[精][顶]

项目二：按住和放开目标键，都实现不同的效果。

跟我这个 是一样的啊。。。按1下 反应速度太慢。。。按着不放 还算比较稳定
作者: sbnui1989    时间: 2015-12-13 13:45
言术 发表于 2015-12-13 11:47
又修改了一下

这个是什么呀
作者: somyyy    时间: 2015-12-13 14:54
言术给你的是一个按下弹起空格键的例子，通过消息路或消息过程可以简单实现消息处理的，TC有这个功能，不必拘泥于API；
当然如果你想鼓捣一下API也未尝不可，不过要麻烦点！
作者: sbnui1989    时间: 2015-12-13 16:50
somyyy 发表于 2015-12-13 14:54
言术给你的是一个按下弹起空格键的例子，通过消息路或消息过程可以简单实现消息处理的，TC有这个功能，不必 ...

实现是 实现了。。如果 跳过这个 窗体。。我如何 取到 空格 按下  弹起 的操作呢。。我在窗体外 按 空格 并不能 激活 啊 只能在窗体内 按才有效果
作者: sbnui1989    时间: 2015-12-13 16:54
言术 发表于 2015-12-13 11:47
又修改了一下

大神。。我如何 在窗体外 激活 空格 按下 弹起操作呢 因为我要做的 是 脚本 最小化。。按空格  F G 键来回切换  并且 鼠标左键 点击。。。执行效率 需要高。。准确性 要求高。。。按着不动的时候  需要 一直 F点击鼠标 左键  G点击鼠标 左键。循环···
作者: 剑仙十号    时间: 2015-12-13 18:06
这个方案我倒是有办法实现。
用键盘钩子来做。准确度，精确度非常之高，可以全后台操作。

8楼. 项目4：

做连发的脚本。HOOK的连发教程。

//把代码复制入TC编译器中,覆盖原来的代码即可。X键为连发键，启动F8，终止F9。

//在hookProc子程中,"返回 true" 是函数的返回语句.当执行点遇到"返回 true",表示这个函数已经执行

完成.

//无论"返回 true"到函数结束还有多少代码,一律不管，子函数将返回到主调函数，执行下面一行。

功能 hookProc(code,wPaddr,LP_IPaddr) //HOOK函数的回调函数.

变量 参数2键码状态 = wPaddr

变量 参数3键码 = 地址取值 (LP_IPaddr,"long") //address地址.value,数值.获取地址中的数值.

如果(参数3键码 == 88 && 参 数2键码状态 == 256)//88是检测X的ASCii码,256是按下码.

窗口提交按下(hwndex,88)// 连发码.

等待(3)

窗口提交弹起(hwndex,88)// 连发码.

//api函数"CallNextHookEx"是把 消息传递到下一个子程.如果没有下个子程,则把消息传送到目标窗

口.

//设置"返回 true",执行到这里 马上跳出函数,后面的代码不再执行.

//返回值为0,是把消息传到目 标窗口;返回值为非0,这样按键消息没有传到目标窗口.就是对目标窗口

拦截按键.

返回 真

否则如果(参数3键码 == 88 && 参数2键码状态 == 257)//88是检测X的ascii码,257是弹起码.

窗口发送字符串(hwndex,"X键 已经弹起.")

窗口提交按键(hwndex,13)

//对返回值的理解同上。

返回 真

结束

//函数"CallNextHookEx",是把按 键消息传递到下个子程.

//返回 函数"CallNextHookEx"的 数值,也是把消息传递到下一个子程.如果没有设置下一子程,则把消息

传送到目标窗口.

返回 动态库调用

("user32.dll","long","CallNextHoo kEx","long",h_hook,"long",code,"long",wPaddr,"long",L

(1/3) 下一段  余下全文

【教程1】键盘命令。[精][顶]
转载自：tc简单开发吧 <  贴吧 <  百度
作者: sbnui1989    时间: 2015-12-13 18:27
剑仙十号 发表于 2015-12-13 18:06
这个方案我倒是有办法实现。
用键盘钩子来做。准确度，精确度非常之高，可以全后台操作。

可以 写个 例子 给我吗



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1