|
发表于 2010-7-7 17:12:45
|
显示全部楼层
贵州省贵阳市
[e] .版本 2
.支持库 shellEx
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 选中项索引, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 文件号, 整数型
.局部变量 临时文本, 文本型
.局部变量 文件名称, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 插入位置, 整数型
文件名称 = 取运行目录 () + “\骂人的话.txt”
文件号 = 打开文件 (文件名称, 1, 1)
临时文本 = 读入文本 (文件号, )
文本数组 = 分割文本 (临时文本, #换行符, )
.计次循环首 (取数组成员数 (文本数组), 计次)
列表框1.插入项目 (插入位置, 文本数组 [计次], )
插入位置 = 插入位置 + 1
.计次循环尾 ()
注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Home键)
.子程序 _发送按钮_被单击
时钟1.时钟周期 = 到数值 (编辑框2.内容) × 1000
列表框1.现行选中项 = 选中项索引
发送按钮.禁止 = 真
停止按钮.禁止 = 假
' 置剪辑板文本 (编辑框1.内容 + “ ” + 列表框1.取项目文本 (选中项索引))
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
_发送按钮_被单击 ()
.子程序 _时钟1_周期事件
.判断开始 (单选框1.选中 = 真)
选中项索引 = 选中项索引 + 1
置剪辑板文本 (编辑框1.内容 + “ ” + 列表框1.取项目文本 (选中项索引))
模拟按键 (#Ctrl键, #V键, )
模拟按键 (#回车键, , )
.如果真 (列表框1.取项目文本 (选中项索引) = “”)
置剪辑板文本 (“要骂人的话已经发送完毕!!”)
_停止按钮_被单击 ()
时钟1.时钟周期 = 0
.如果真结束
.判断 (单选框2.选中 = 真)
选中项索引 = 选中项索引 + 1
置剪辑板文本 (编辑框1.内容 + “ ” + 列表框1.取项目文本 (选中项索引))
模拟按键 (#Ctrl键, #V键, )
模拟按键 (#Ctrl键, #回车键, )
.如果真 (列表框1.取项目文本 (选中项索引) = “”)
置剪辑板文本 (“要骂人的话已经发送完毕!!”)
_停止按钮_被单击 ()
时钟1.时钟周期 = 0
.如果真结束
.默认
.判断结束
.子程序 _停止按钮_被单击
时钟1.时钟周期 = 0
发送按钮.禁止 = 假
停止按钮.禁止 = 真[/e] |
|