无聊写一下,不足之处多多包涵。 不设隐藏了,希望大家多给点意见。
说明:由于时间仓促,此脚本只适合F1-F12互转;我想大家应该有点帮助。
不说看代码:
- 空间 我的程序
- 整型 键码,测试,线程句柄
- 字符型 按键,a,b,c,d
- 功能 整型 按键转换()
- //以下是用按键码来获取有字符输入要与键盘一致
- 按键=编辑框.获得文本("编辑框0")
- 如果(单选框.获得状态("单选框1"))
- 如果(字符串.长度(按键)==0)
- 辅助.消息框("请输入按键或按键码")
- 线程.关闭(线程句柄)
- 否则
- c=字符串.移除(按键,1)
- 键码=转换.字符型转整型(c)+111
- 如果(键码>=112&&键码<=123)
- a=字符串.连接(" ",转换.整型转字符型(键码))
- b=字符串.连接(按键,a)
- 辅助.消息框(b)
- 否则
- 辅助.消息框("请输入F1-F12按键")
- 线程.关闭(线程句柄)
- 如果结束
- 如果结束
- 否则
- 如果(单选框.获得状态("单选框0"))
- //以下是用按键码来获取F1-F12按键
- 如果(字符串.长度(按键)==0)
- 辅助.消息框("请输入按键或按键码")
- 线程.关闭(线程句柄)
- 否则
- 键码=转换.字符型转整型(按键)
- 如果(键码>=112&&键码<=123)
- 测试=键码-111
- a=字符串.连接("F",转换.整型转字符型(测试))
- b=字符串.连接(a," ")
- d=字符串.连接(b,按键)
- 辅助.消息框(d)
- 否则
- 辅助.消息框("请输入F1-F12按键码")
- 线程.关闭(线程句柄)
- 如果结束
- 如果结束
- 否则
- 辅助.消息框("请选择转换方式")
- 线程.关闭(线程句柄)
- 如果结束
- 如果结束
- 返回 0
- 功能结束
- 功能 逻辑型 开始_点击()
- 线程句柄=线程.开启("我的程序.按键转换")
- 返回 真
- 功能结束
- 功能 逻辑型 退出_点击()
- 线程.关闭(线程句柄)
- 辅助.退出()
- 返回 真
- 功能结束
- 空间结束
复制代码
更新地址:【源码】键盘按键码查询
|