我想用易语言编一个自动输入的程序 20
先编写个程序,里面有一个输入框,将文字打进去后,按一个快捷键,就可以自动重复复制和回车这两个命令。如在框内输入易语言,按f2后开始运行,一直重复易语言(回车)易语言(回车...
先编写个程序,里面有一个输入框,将文字打进去后,按一个快捷键,就可以自动重复复制和回车这两个命令。如在框内输入易语言,按f2后开始运行,一直重复易语言(回车)易语言(回车)(回车代表自动按一次回车)
各位大侠,能实现吗,应该不难吧,麻烦帮我写出来 展开
各位大侠,能实现吗,应该不难吧,麻烦帮我写出来 展开
5个回答
展开全部
.版本 2
.子程序 输入
.局部变量 对象, 对象
.局部变量 计次, 整数型
.局部变量 数据, 文本型
.局部变量 键名, 文本型
对象.创建 (“WScript.Shell”, )
数据 = 取剪辑板文本 ()
.计次循环首 (取文本长度 (数据), 计次)
键名 = 取文本中间 (数据, 计次, 1)
.如果真 (键名 = “~”)
对象.方法 (“SendKeys”, “+`”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “%”)
对象.方法 (“SendKeys”, “+5”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “^”)
对象.方法 (“SendKeys”, “+6”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “(”)
对象.方法 (“SendKeys”, “+9”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “)”)
对象.方法 (“SendKeys”, “+0”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “+”)
对象.方法 (“SendKeys”, “+=”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “{”)
对象.方法 (“SendKeys”, “+[”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “}”)
对象.方法 (“SendKeys”, “+]”)
到循环尾 ()
.如果真结束
对象.方法 (“SendKeys”, 键名)
.计次循环尾 ()
这个不用复制,写上内容直接发送到窗口
.子程序 输入
.局部变量 对象, 对象
.局部变量 计次, 整数型
.局部变量 数据, 文本型
.局部变量 键名, 文本型
对象.创建 (“WScript.Shell”, )
数据 = 取剪辑板文本 ()
.计次循环首 (取文本长度 (数据), 计次)
键名 = 取文本中间 (数据, 计次, 1)
.如果真 (键名 = “~”)
对象.方法 (“SendKeys”, “+`”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “%”)
对象.方法 (“SendKeys”, “+5”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “^”)
对象.方法 (“SendKeys”, “+6”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “(”)
对象.方法 (“SendKeys”, “+9”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “)”)
对象.方法 (“SendKeys”, “+0”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “+”)
对象.方法 (“SendKeys”, “+=”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “{”)
对象.方法 (“SendKeys”, “+[”)
到循环尾 ()
.如果真结束
.如果真 (键名 = “}”)
对象.方法 (“SendKeys”, “+]”)
到循环尾 ()
.如果真结束
对象.方法 (“SendKeys”, 键名)
.计次循环尾 ()
这个不用复制,写上内容直接发送到窗口
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先注册热键(取启动窗口句柄(),标签1.取句柄(),#F2键)再复制文本编辑框内容
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
时钟周期事件,好多时间后编辑框的内容就等于好多
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-05-24
展开全部
我不行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
等待高人吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询