|
|
发表于 2013-8-3 17:34:24
|
显示全部楼层
吉林省长春市
在发个全部代码的吧- .版本 2
- .支持库 spec
- .程序集 窗口程序集1
- .程序集变量 句柄, 整数型
- .子程序 _按钮1_被单击
- .局部变量 i, 整数型
- .计次循环首 (8, i)
- 置随机数种子 ()
- 编辑框1.加入文本 (到文本 (取随机数 (0, 9)))
- .计次循环尾 ()
- .子程序 _按钮2_被单击
- .局部变量 投递文本, 文本型, , "0"
- .局部变量 i, 整数型
- .局部变量 文本, 文本型
- 文本 = 编辑框1.内容
- .计次循环首 (8, i)
- 加入成员 (投递文本, 取文本左边 (文本, 1))
- 文本 = 取文本右边 (文本, 取文本长度 (文本) - 1)
- .计次循环尾 ()
- .计次循环首 (8, i)
- ' 外部编辑框_置内容 (198828, 投递文本 [9 - i])
- 文本_投递 (句柄, 投递文本 [i])
- 延迟 (500)
- .计次循环尾 ()
- .子程序 __启动窗口_创建完毕
- .判断开始 (进程_是否存在 (“b.exe”, ) = 真)
- 句柄 = 窗口_取句柄 (, , “WTWindow”, “B”)
- 句柄 = 窗口_取句柄 (句柄, , “Edit”, )
- 输出调试文本 (句柄)
- .默认
- 信息框 (“指定程序没有运行”, 0, “提示”)
- 销毁 ()
- .判断结束
复制代码 |
评分
-
| 参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻 |
查看全部评分
|