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

作者&投稿:沙祥 (若有异议请与网页底部的电邮联系)
易语言怎么实现自动输入文字~

.程序集 窗口程序集1
.程序集变量 _当前窗口句柄
.程序集变量 热键标识1, 整数型, , , 1
.程序集变量 热键标识2, 整数型, , , 2
.程序集变量 热键标识3, 整数型, , , 3
.程序集变量 热键标识4, 整数型, , , 4
.程序集变量 热键标识5, 整数型, , , 5
.程序集变量 热键标识6, 整数型, , , 6
.程序集变量 热键标识7, 整数型, , , 7
.程序集变量 热键标识8, 整数型, , , 8

源码,看清注释,有些东西你没说清楚

.版本 2
.支持库 spec
.支持库 eAPI
.支持库 OPenGL

.程序集 窗口程序集_启动窗口
.程序集变量 临时文本, 文本型
.程序集变量 文本框句柄
.程序集变量 位置_局部

.子程序 _按钮1_被单击

' 你要输入的文本框句柄是什么?我使用了取鼠标所在窗口(也可取组件),使用时把鼠标移在文本框上,还有,一些文本框无句柄啊(例如全自绘)
延迟 (3000) ' 等你把鼠标移在文本框上3秒
位置_局部 = 0
文本框句柄 = 取鼠标所在窗口句柄 ()
临时文本 = 编辑框1.内容
时钟1.时钟周期 = 500

.子程序 取文本长度_, 整数型, , 支持Unicode
.参数 文本, 文本型
.局部变量 长度
.局部变量 计次

.判断循环首 (计次 ≤ 取文本长度 (文本))
计次 = 计次 + 1
.如果真 (是否为双字节字符 (文本, 计次 - 1) = 真)
计次 = 计次 + 1 ' 跳过下一个字符
.如果真结束
长度 = 长度 + 1
.判断循环尾 ()
返回 (长度 - 1)

.子程序 取文本中间_, 文本型, , 支持Unicode
.参数 文本, 文本型
.参数 起始位置
.参数 长度
.局部变量 计算中的长度
.局部变量 计次
.局部变量 返回值, 文本型

.判断循环首 (计次 ≤ 取文本长度 (文本))
计次 = 计次 + 1
.如果真 (计算中的长度 ≥ 起始位置)
返回值 = 返回值 + 取文本中间 (文本, 计次, 1)
.如果真结束
.如果真 (是否为双字节字符 (文本, 计次 - 1) = 真)
计次 = 计次 + 1 ' 跳过下一个字符
.如果真 (计算中的长度 ≥ 起始位置)
返回值 = 返回值 + 取文本中间 (文本, 计次, 1)
.如果真结束

.如果真结束
计算中的长度 = 计算中的长度 + 1
.如果真 (计算中的长度 = 长度 + 起始位置)
跳出循环 ()
.如果真结束

.判断循环尾 ()
返回 (返回值)

.子程序 _时钟1_周期事件
.局部变量 字符
.局部变量 临时字节集, 字节集
.局部变量 临时字节集2, 字节集

.如果 (取文本长度 (取文本中间_ (临时文本, 位置_局部, 1)) = 2)
临时字节集 = 到字节集 (取文本中间_ (临时文本, 位置_局部, 1))
临时字节集2 = 到字节集 (临时字节集 [2]) + 到字节集 (临时字节集 [1])
字符 = 取字节集数据 (临时字节集2, #整数型, )
.否则
字符 = 取字节集数据 (到字节集 (取文本中间_ (临时文本, 位置_局部, 1)), #整数型, )
.如果结束
发送消息_ (文本框句柄, 646, 字符, 0) ' 646为系统常量WM_IME_CHAR
.如果真 (位置_局部 = 取文本长度_ (临时文本) - 1)
时钟1.时钟周期 = 0
.如果真结束
位置_局部 = 位置_局部 + 1

------------------DLL分割线------------------

.版本 2

.DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , , 调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, ; SendMessageByString是该函数的“类型安全”声明形式 由具体的消息决定
.参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
.参数 信息值, 整数型, , 消息的标识符
.参数 参数一, 整数型, , 具体取决于消息
.参数 参数二, 整数型, , 具体取决于消息

.版本 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, 文本型
——————————————————————————————————
黯然网络 为你解答


如何用键盘切换中英文输入法?
可通过以下方法,查询切换快捷键 1、打开“设置”-“时间和语言”-“语言”2、选择“首选语言”-“选项”3、选择“键盘”-“微软拼音”-“选项”,4、选择“按键”,查看“中\/英文模式切换”确认快捷键

电脑如何添加输入语言 怎么给电脑添加输入语言
4、我们点击【更改键盘】按钮,进入文本服务和输入语言设置界面。5、在进入文本服务和输入语言设置界面后,我们在常规选项卡下面,找到【已安装的服务】,并点击【添加】按钮。6、进入天际输入语言界面,此时,我们选择我们要添加的输入语言,并点击【确定】按钮。7、再返回到文本服务和输入语言设置界面后,...

如何切换中英文输入法
以及同时按住“Ctrl”键和“=”键来实现中英文标点符号的快速切换。同时按下“shift”键和“space空格键”可以实现标点符号全角和半角的转换等。如果输入法选项中没有用户所需要的输入法,则可以点击位于屏幕右下角的输入法图标,在自动弹出的窗口中点击“语言首选项”,在打开的语言设置页面中的“首选...

怎么切换输入法的中英文状态啊
1、按下键盘上的【Ctrl】+【Shift】键可以进行输入法的中英文切换;2、输入文字时,按下【Shift】键可以进行中英文切换;3、如果您指的是系统的语言,您需要在【控制面板】,选择【区域和语言】,然后在【格式】选项卡中,在下拉选项中选择语言即可。补充 1.你还可以同时按下ctrl+shift,切换到非...

电脑中英文自己乱跳是怎么回事?
电脑中英文自己乱跳通常是由于软件冲突、键盘设置问题、恶意软件或系统错误导致的。首先,软件冲突是一个常见的原因。电脑上安装的多款软件可能存在不兼容的情况,特别是当这些软件都试图控制输入语言时。例如,某些输入法软件可能与操作系统自带的语言切换功能发生冲突,导致中英文输入状态不稳定,从而出现乱跳...

电脑中英文一直自动切换怎么回事?
在多语言环境下,操作系统通常提供快捷键来方便用户在不同语言之间切换。例如,在Windows系统中,使用“Ctrl+空格键”或“Alt+Shift”等组合键可以快速切换输入法。如果这些快捷键被无意中触发,就会导致中英文输入状态的不断变换。此外,系统的自动更正或预测文本功能也可能误判用户的...

请问智能ai写作怎么使用?人工ai写作如何实现?
写文章,写论文,写周报,写营销文章,爆款文案,自媒体账号定位分析等等,都能一键帮你生成你想要的内容。它主要功能:1.多场景文案生成:App支持各种场景的文案生成,包括自媒体账号定位分析、内容选题、文章创作、周报生成、商品营销推广、短视频拍摄脚本、各种爆款文案。只需输入关键词,即可获得精彩文案。...

win10系统开启多语言文本建议功能的方法
win10中有一个设置是专门为了满足多语种工作需求用户而准备的,这就是多语言文本建议功能,这个功能能够在我们使用不同语言进行输入时,自动为我们匹配相同语言的文本建议,可以说是非常实用的一个功能了。不过有些小伙伴可能第一次听说win10的这个功能,还不知道如何进行设置,接下来就来和大家分享一下win...

关于EXCEL里自动切换"中英文"输入法的"数据-有效性"设置?
2、同理,选中“销售额”列,点选菜单“数据→有效性”,打开“数据有效性”,对话框,切换至“输入法模式”,在“模式”下选择“关闭(英文模式)”,确定即可。3、经过以上设置后,当活动单元格在不同位置时,系统将根据上述设置,自动切换中英文输入法,再也不用手动切换了。类似地,在word和...

电脑中英文总自动转换怎么办?
4. **卸载或禁用第三方输入法或翻译插件**:有时,第三方输入法或翻译插件可能会与系统内置的语言机制产生冲突,导致中英文自动转换。此时,可以尝试卸载这些第三方软件或插件,或者禁用其相关功能,以查看问题是否得到解决。通过以上步骤,通常可以解决电脑中英文自动转换的问题。如果问题依旧存在,可能需要...

桐乡市15326243517: 易语言实现编辑框内自动打字效果 -
止季通心: .版本 2.程序集 窗口程序集1 .程序集变量 文本组, 文本型, , "0" .程序集变量 i, 整数型 .程序集变量 当前文本, 文本型 .程序集变量 类型, 文本型 .程序集变量 字数, 整数型.子程序 __启动窗口_创建完毕文本组 = { “易语言实现编辑框...

桐乡市15326243517: 易语言实现编辑框内自动打字效果
止季通心: 缺少1个超级模块. 楼主去百·度搜索“超级模块3.9下载” 然后在易语言里面载入那个模块,你就有那个编辑框打字效果了 希望采纳!

桐乡市15326243517: 易语言如何写一个我按个快捷键,就会自动输入的 -
止季通心: 模拟按键中间 加上 延迟() 这个命令即可

桐乡市15326243517: 易语言如何设置自动输入字母 -
止季通心: 模拟按键(#F键) 模拟按键(#P键) 复制上面的代码进去 希望采纳!

桐乡市15326243517: 易语言自动输入txt文本内容 -
止季通心: 本来想利用数组的,通过计次循环选出数组,再数组成员去一字一字读出来,结果测试了中文出了点问题,算了,换成这种,不用换成数组,,,看图中那个绿色的换成你自己要的TXT位置,或者你改成通用对话框方式,,延迟的是控制打字速度 不知这个是否你想得到的效果呢?

桐乡市15326243517: 易语言按按钮后自动点击指定地方,自动输入指定内容 -
止季通心: 变量:a 逻辑型 按按钮设置:A=真 XX_获得焦点设置:如果真(a=真) 编辑框XXX.插入文本(“123”) 编辑框XXX.获得焦点() 模拟按键(,#回车键)

桐乡市15326243517: 易语言自动打字问题 -
止季通心: 在模块的特效里面 编辑框打字效果 的下面 有一个编辑框打字效果控制 具体内容如下.版本 2.子程序 编辑框打字效果控制, , 公开, 控制正在使用的打字效果.参数 打字状态, 整数型, 可空, 0 继续打字 1 暂停打字 2:结束打字 .参数 间隔, 整数型, 可空, 单个文字的等待时间(单位:毫秒) 可空:保持原速度不变也可以自己做一个

桐乡市15326243517: 易语言文本投递问题 假设编辑框输入内容,在游戏按F1键自动按 P键自动输入字 怎么弄? 模拟按键( -
止季通心: 置剪辑版文本(编辑框1.内容) 模拟按键(#Ctrl键,#V键)

桐乡市15326243517: 易语言制作出的EXE软件,打开会自动在文本框里面闪烁打字的“ |”是怎么弄的? -
止季通心: .版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕编辑框1.获取焦点 ()

桐乡市15326243517: 用易语言:编辑框内自动打字效果,并且换行、换段:.? -
止季通心: 这个效果我还真写过 源码如下:.版本 2.程序集 窗口程序集1.程序集变量 文本, 文本型.程序集变量 x, 整数型.程序集变量 y, 整数型.子程序 _按钮1_被单击 文本 = “易语言自动打字效果” x = 取文本长度 (文本) y = 0 时钟1.时钟周期 = 300.子程序 _时钟1_周期事件 y = y + 1.判断开始 (y ≤ x) ' 编辑框1.内容 = 编辑框1.内容 + 取文本中间 (文本, y, 1) 编辑框1.内容 = 取文本左边 (文本, y).默认 ' 时钟1.时钟周期 = 0.判断结束换行的代码相信你会写的... 望您采纳!

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网