Question

易语言怎么自动输入文字？进来看看

是哪种...
比如；玩侠盗飞车的时候！打命令太慢了！
按下F1的时候，命令自动打好的这种
今天我看视频只学了模拟按键而已！不能自动输入文字
高手帮帮忙啊

Answer 1

.版本 2
.支持库 shellEx
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 _当前窗口句柄
.程序集变量 热键标识1, 整数型, , , 1
.程序集变量 热键标识2, 整数型, , , 2
.程序集变量 热键标识3, 整数型, , , 3
.程序集变量 热键标识4, 整数型, , , 4
.程序集变量 热键标识5, 整数型, , , 5
.程序集变量 热键标识6, 整数型, , , 6
.程序集变量 热键标识7, 整数型, , , 7
.程序集变量 热键标识8, 整数型, , , 8
.程序集变量 热键标识9, 整数型, , , 9
.程序集变量 热键标识0, 整数型, , , 0
.程序集变量 热键标识加速, 整数型, , , +
.程序集变量 热键标识减速, 整数型, , , -
.程序集变量 热键标识钱, 整数型, , , ~

.子程序 _主窗口_创建完毕

热键标识0 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 48) ' 0
热键标识1 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 49) ' 1
热键标识2 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 50) ' 2
热键标识3 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 51) ' 3
热键标识4 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 52) ' 4
热键标识5 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 53) ' 5
热键标识6 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 54) ' 6
热键标识7 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 55) ' 7
热键标识8 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 56) ' 8
热键标识9 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 57) ' 9
热键标识加速 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 187) ' =
热键标识减速 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 189) ' -
热键标识钱 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 192) ' ~

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.局部变量 计次变量, 整数型
.局部变量 随机选汽车, 文本型, , "0"
.局部变量 随机天气, 文本型, , "0"

随机选汽车 ＝ { “TRAVELINSTYLE”, “THELASTRIDE”, “ROCKANDROLLCAR”, “RUBBISHCAR”, “GETTHEREFAST”, “BETTERTHANWALKING”, “GETTHEREQUICKLY”, “GETTHEREVERYFASTINDEED”, “GETTHEREAMAZINGLYFAST” }
随机天气 ＝ { “Apleasantday”, “Aloveyday”, “Abitdrieg”, “Catsanddogs”, “Cantseeathing” }
.如果真 (参数一 ＝ 热键标识0)
输入文本 (“LEAVEMEALONE”)
.如果真结束
.如果真 (参数一 ＝ 热键标识1)
输入文本 (随机选汽车 [取随机数 (1, 取数组成员数 (随机选汽车))])
.如果真结束
.如果真 (参数一 ＝ 热键标识2)
输入文本 (“PANZER”)
.如果真结束
.如果真 (参数一 ＝ 热键标识3)
输入文本 (“STILLLIKEDRESSINGUP”)
.如果真结束
.如果真 (参数一 ＝ 热键标识4)
输入文本 (随机天气 [取随机数 (1, 取数组成员数 (随机天气))])
.如果真结束
.如果真 (参数一 ＝ 热键标识5)
输入文本 (“NUTTERTOOLS”)
.如果真结束
.如果真 (参数一 ＝ 热键标识6)
输入文本 (“SEAWAYS”)
.如果真结束
.如果真 (参数一 ＝ 热键标识7)
输入文本 (“PRECIOUSPROTECTION”)
输入文本 (“ASPIRINE”)
.如果真结束
.如果真 (参数一 ＝ 热键标识8)
输入文本 (“FANNYMAGNET”)
.如果真结束
.如果真 (参数一 ＝ 热键标识9)
输入文本 (“Youwonttakemealive”)
.如果真结束
.如果真 (参数一 ＝ 热键标识加速)
输入文本 (“ONSPEED”)
.如果真结束
.如果真 (参数一 ＝ 热键标识减速)
输入文本 (“BOOOOOORING”)
.如果真结束
.如果真 (参数一 ＝ 热键标识钱)
输入文本 (“IFWEREARCHMAN”)
.如果真结束
返回 (1)

.子程序 输入文本
.参数 参数, 文本型
.局部变量 计次变量, 整数型
.局部变量 文本长度, 整数型

_当前窗口句柄 ＝ 取鼠标所在窗口句柄 ()

文本长度 ＝ 取文本长度 (参数)
.计次循环首 (文本长度, 计次变量)
模拟按键 (取文本中间 (参数, 计次变量, 1), , )
.计次循环尾 ()

________________________________________________________
DLL命令：.版本 2

.DLL命令 打开事件同步对象, 整数型, , "OpenEventA"
.参数 dwDesiredAccess, 整数型
.参数 bInheritHandle, 逻辑型
.参数 lpName, 文本型

.DLL命令 创建事件同步对象, , , "CreateEventA"
.参数 lpEventAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 bInitialState, 逻辑型
.参数 lpName, 文本型
——————————————————————————————————
黯然网络 为你解答