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

.版本 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, 文本型

——————————————————————————————————

黯然网络为你解答