Question

易语言模拟按键时间

请各位将易语言模拟按键时间的源码写一下
效果：例如当前时间为2012年12月14日21:05
则要模拟按键输出 201212142105
谢谢各位了速度快的话我拿100分

Answer 1

.版本 2.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

.局部变量 年, 文本型

.局部变量 月, 文本型

.局部变量 日, 文本型

 

年 ＝ 到文本 (取年份 (取现行时间 ()))

月 ＝ 到文本 (取月份 (取现行时间 ()))

日 ＝ 到文本 (取日期 (取现行时间 ()))

 

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

.局部变量 年, 文本型

.局部变量 月, 文本型

.局部变量 日, 文本型

.局部变量 小时, 文本型

.局部变量 分钟, 文本型

 

年 ＝ 到文本 (取年份 (取现行时间 ()))

月 ＝ 到文本 (取月份 (取现行时间 ()))

日 ＝ 到文本 (取日 (取现行时间 ()))

小时 ＝ 到文本 (取小时 (取现行时间 ()))

分钟 ＝ 到文本 (取分钟 (取现行时间 ()))

输入文本 (年 ＋ 月 ＋ 日 ＋ 小时 ＋ 分钟)

 

.子程序 输入文本

.参数 文本, 文本型

.局部变量 i, 整数型

 

.计次循环首 (取文本长度 (文本), i)

    模拟按键 (取文本中间 (文本, i, 1), , )

.计次循环尾 ()

 

 

Answer 2

.版本 2
.支持库 eAPI
.局部变量 文本, 文本型
.局部变量 lng, 整数型
.局部变量 tmp, 整数型
文本 ＝ 到文本 (取现行时间 ())
文本 ＝ 子文本替换 (文本, “年”, , , 1, 真)
文本 ＝ 子文本替换 (文本, “月”, , , 1, 真)
文本 ＝ 子文本替换 (文本, “日”, , , 1, 真)
文本 ＝ 子文本替换 (文本, “时”, , , 1, 真)
文本 ＝ 子文本替换 (文本, “分”, , , 1, 真)
文本 ＝ 子文本替换 (文本, “秒”, , , 1, 真)
lng ＝ 取文本长度 (文本)
.计次循环首 (lng, tmp)
模拟按键 (取代码 (文本, tmp), , )
处理事件 ()
.计次循环尾 ()

Answer 3

邮箱