|
楼主 |
发表于 2012-3-24 18:11:51
|
显示全部楼层
海南省儋州市
mokeyjay 发表于 2012-3-24 17:34
源码发出来看看
.版本 2
.支持库 spec
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 延迟
.子程序 __启动窗口_创建完毕
_启动窗口.置外形图片 (_启动窗口.底图, #品红)
_启动窗口.左边 = 取屏幕宽度 () - 270
_启动窗口.顶边 = 取屏幕高度 ()
时钟1.时钟周期 = 70
延迟 = 到整数 (“1000000”)
.子程序 _时钟1_周期事件
.如果 (_启动窗口.顶边 ≠ 取屏幕高度 () - 200 且 _启动窗口.左边 = 取屏幕宽度 () - 270)
_启动窗口.可视 = 真
_启动窗口.顶边 = _启动窗口.顶边 - 10
.否则
时钟1.时钟周期 = 0
延迟 (延迟)
时钟2.时钟周期 = 70
.如果结束
.子程序 _时钟2_周期事件
.如果真 (_启动窗口.左边 ≠ 取屏幕宽度 () - 270)
时钟2.时钟周期 = 0
返回 ()
.如果真结束
.如果 (_启动窗口.顶边 ≠ 取屏幕高度 ())
_启动窗口.顶边 = _启动窗口.顶边 + 10
.否则
时钟2.时钟周期 = 0
延迟 (到整数 (“100000000”))
时钟1.时钟周期 = 70
.如果结束
.子程序 _图形按钮1_被单击
结束 ()
.子程序 _透明标签2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“http://qdrsign”)
|
|