1. 易语言锁键盘源码
.版本 2
.支持库 EdirectX
.子程序 _窗口1_创建完毕
输入设备1.初始化 (取窗口句柄 ())
.子程序 _按钮1_被单击
输入设备1.置键盘独占 (真)
.子程序 _按钮2_被单击
输入设备1.置键盘独占 (假)
自己创个输入设备 望采纳!!!!!
2. 怎么用易语言写一个自动按键的源码
.版本 2
.支持库 shellEx
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 F10键热键标识, 整数型
.程序集变量 F11键热键标识, 整数型
.子程序 __启动窗口_创建完毕
F10键热键标识 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键)
F11键热键标识 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F11键) ' 注册热键供标签使用
.子程序 _标签1_反馈事件, 整数型, , 按下热键后就会有此反馈事件
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 = F10键热键标识) ' 按下F10开始执行时钟
时钟1.时钟周期 = 100
.如果真结束
.如果真 (参数一 = F11键热键标识) ' 按下F10终止执行时钟
时钟1.时钟周期 = 0
.如果真结束
.子程序 _时钟1_周期事件
模拟按键 (#上光标键, , )
模拟按键 (#下光标键, , )
模拟按键 (#左光标键, , )
模拟按键 (#右光标键, , )
模拟按键 (#空格键, , )
这些代码可以直接复制进易语言里,只要在启动窗口建一个标签和一个时钟即可。
求采纳
3. 请问易语言的键盘控制源码如何制作的 我拿来参考的 不复制原创 学习易语言中...
是记录键盘按下的键吗??很简单的。。不管在哪按都有效 利用hook
.版本 2
.支持库 xplib
.支持库 spec
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 hook, 整数型
.子程序 __启动窗口_创建完毕
XP风格 (1)
编辑框1.输入方式 = 1
hook = SetWindowsHookEx (13, &钩子函数, GetMoleHandle (0), 0)
调试输出 (GetMoleHandle (0))
调试输出 (hook)
fz ()
.子程序 钩子函数, 整数型, , 钩子函数
.参数 参数一, 整数型
.参数 参数二, 整数型, , 类型、状态
.参数 参数三, 整数型, , 键代码指针
.局部变量 键值, 整数型
键值 = 取字节集数据 (指针到字节集 (参数三, 1), 3, )
.判断开始 (参数二 = 256)
.判断开始 (取键盘指示灯状态 (#接口常量.大小写锁定键盘灯))
编辑框1.加入文本 (字符 (键值))
.判断 (键值 ≥ 65 且 键值 ≤ 90)
编辑框1.加入文本 (字符 (键值 + 32))
.默认
编辑框1.加入文本 (字符 (键值))
.判断结束
.判断开始 (键值 = #回车键)
调试输出 (“钩子检测到你按下了回车键!!!!”)
.默认
.判断结束
.默认
.判断结束
返回 (CallNextHookEx (hook, 参数一, 参数二, 参数三))
.子程序 __启动窗口_将被销毁
UnHookWindowsHookEx (hook)
DLL定义
.版本 2
.DLL命令 GetMoleHandle, 整数型, , "GetMoleHandleA"
.参数 lpMoleName, 整数型
.DLL命令 CallNextHookEx, 整数型, , "CallNextHookEx"
.参数 hhk, 整数型
.参数 nCode, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.DLL命令 SetWindowsHookEx, 整数型, , "SetWindowsHookExA"
.参数 idHook, 整数型
.参数 lpfn, 子程序指针
.参数 hmod, 整数型
.参数 dwThreadId, 整数型
.DLL命令 UnHookWindowsHookEx, 逻辑型, , "UnhookWindowsHookEx"
.参数 hhk, 整数型
自定义数据类型
.版本 2
.数据类型 MSG
.成员 message, 整数型
.成员 paramL, 整数型
.成员 paramH, 整数型
.成员 time, 整数型
.成员 hwnd, 整数型
控制键盘的话。。。模拟按键应该可以。...我的理解大概就是这样。。如果理解错的话,说一声。。
4. 易语言后台模拟鼠标、键盘的模块或者源码
不能用是因为人家游戏用API把你的模拟按键功能和谐了...解决方法:网络 易语言 驱动键盘模拟(其实驱动级的模拟就是直接模拟你鼠标和键盘的操作,自然也无法和谐....超级模块里有不同的模拟按键方式,你也可以一个个的试过去-_-!)
5. 易语言做键盘记录器的源码
易语言做键盘记录器的源码如下:
程序集
窗口程序集1
子程序
__启动窗口_创建完毕
SkinH_Attach
()
编辑框1禁止
=
真
停止按钮禁止
=
真
信息框
(“欢迎使用小天键盘记录系统,在关闭此记录系统后,会自动保存记录的内容到运行目录!”,
#信息图标,
“欢迎使用!”)
子程序
_停止按钮_被单击
开始按钮禁止
=
假
编辑框1禁止
=
真
时钟1时钟周期
=
0
停止按钮禁止
=
真
子程序
_开始按钮_被单击
开始按钮禁止
=
真
编辑框1禁止
=
假
时钟1时钟周期
=
50
停止按钮禁止
=
假
子程序
_时钟1_周期事件
编辑框1加入文本
(看看按键
())
子程序
_按钮1_被单击
编辑框1内容
=
“
”
子程序
__启动窗口_可否被关闭,
逻辑型
写到文件
(取运行目录
()
+
“\记录内容txt”,
到字节集
(编辑框1内容))
销毁
()
子程序
_按钮2_被单击
删除文件
(取运行目录
()
+
“\记录内容txt”)
6. 易语言键盘记录源码问题。
用模块搞这些东西简单多了, FindWindowA是查找窗口句柄,返回0说明进程结束, IsWindow判断窗口句柄是否有效, GetAsyncKeyState(键代码)返回-32767表示测试键按下,可用循环监视键盘按下,做记录用。键盘记录方法很多,但是一般放到号软件会加密
7. 怎么用易语言写一个自动按键的源码
用到的组件:一个标签 一个时钟
说明:这个是每隔0.1秒随机上下左右按下其中一个 如果要0.1秒上下左右全部按下 把时钟周期事件下的判断去掉即可
----------------------------------
.版本 2
.支持库 shellEx
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 F10, 整数型
.程序集变量 F11, 整数型
.子程序 __启动窗口_创建完毕
F10 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键)
F11 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F11键)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.判断开始 (参数一 = F10)
时钟1.时钟周期 = 100
.判断 (参数一 = F11)
时钟1.时钟周期 = 0
.默认
.判断结束
.子程序 _时钟1_周期事件
.局部变量 a, 整数型
a = 取随机数 (1, 5)
.判断开始 (a = 1)
模拟按键 (#上光标键, , )
.判断 (a = 2)
模拟按键 (#下光标键, , )
.判断 (a = 3)
模拟按键 (#左光标键, , )
.判断 (a = 4)
模拟按键 (#右光标键, , )
.判断 (a = 5)
模拟按键 (#空格键, , )
.默认
----------------------------------------------
8. 易语言做键盘记录器的源码
易语言做键盘记录器的源码如下:
程序集 窗口程序集1
子程序 __启动窗口_创建完毕
SkinH_Attach ()
编辑框1禁止 = 真
停止按钮禁止 = 真
信息框 (“欢迎使用小天键盘记录系统,在关闭此记录系统后,会自动保存记录的内容到运行目录!”, #信息图标, “欢迎使用!”)
子程序 _停止按钮_被单击
开始按钮禁止 = 假
编辑框1禁止 = 真
时钟1时钟周期 = 0
停止按钮禁止 = 真
子程序 _开始按钮_被单击
开始按钮禁止 = 真
编辑框1禁止 = 假
时钟1时钟周期 = 50
停止按钮禁止 = 假
子程序 _时钟1_周期事件
编辑框1加入文本 (看看按键 ())
子程序 _按钮1_被单击
编辑框1内容 = “ ”
子程序 __启动窗口_可否被关闭, 逻辑型
写到文件 (取运行目录 () + “\记录内容txt”, 到字节集 (编辑框1内容))
销毁 ()
子程序 _按钮2_被单击
删除文件 (取运行目录 () + “\记录内容txt”)
9. 易语言求助,在指定窗口双击键盘指定按键之后触发指定事件源码怎么写,比如我在浏览器按下键盘z键两次弹
用SetWindowLong函数重新给窗口指定一个消息处理函数,然后在消息处理函数中一直记录z键的消息,如果有连续两次被按下就弹出信息框
10. 求易语言键盘按键单按完整代码
我写了一个简单的例程,你可以看一下,希望对你有用:
.版本
2
.子程序
_按钮1_按下某键,
逻辑型
.参数
键代码,
整数型
.参数
功能键状态,
整数型
.如果
(键代码
=
#Alt键)
返回
(假)
.否则
信息框
(“你按下了某键!”,
0,
)
.如果结束
你把上面的这段代码复制到易语言里就看到代码了