TC官方合作论坛

标题: 自动关机滚动条是偷“rainshine”的 [打印本页]

作者: 神圣的恶魔 时间: 2014-5-7 20:13
标题: 自动关机滚动条是偷“rainshine”的
空间关机

线程句柄=0

功能按钮0_点击()
//这里添加你要执行的代码
时间=编辑框.获得文本("编辑框0")
如果(时间!="")
      倒计时句柄=线程.开启("关机.倒计时",时间)
      线程.开启("关机.是否有效","")
      如果(线程句柄==0)//线程未开启就开启线程
         线程句柄 = 线程.开启("关机.滚动标签","标签2")
      否则
         //如果线程已经开启则提示已经开启
         //辅助.消息框("线程已经开启")
      如果结束

否则
      辅助.消息框("请输入倒计时时间!")
如果结束
功能结束
功能是否有效()
控件.有效("按钮0",假)
功能结束
功能倒计时(时间)
分钟=编辑框.获得文本("编辑框0")
秒=分钟*1000 //这样写直接在编辑框里写几秒就可以了
时间=秒*60
遍历(i=时间/1000;i>0;i--)
      //列表框.增加文本("列表框0",i)
      标签.设置文本("标签1",i)
      辅助.等待(1000)
遍历结束
线程.开启("关机.关机程序","")
功能结束
功能编辑框0_内容改变()
//这里添加你要执行的代码
剩余时间=编辑框.获得文本("编辑框0")
标签.设置文本("标签1",剩余时间)
功能结束
功能滚动标签(标签名,移动间隔=10)
标签.设置文本("标签2","正在关机请勿关闭窗口")
控件句柄=控件.获得句柄(标签名)
如果(控件句柄==0)
      返回假
如果结束
窗口句柄=窗口.自身句柄()
x=0,y=0
窗口.获取位置(控件句柄,0,y)
窗口.屏幕转窗口(窗口句柄,0,y,0,y)
标签宽度=0,窗口宽度=0
窗口.获取大小(控件句柄,标签宽度,0)
窗口.获取大小(窗口句柄,窗口宽度,0)
x=窗口宽度
循环(真)
      x--
      控件.设置位置(标签名,x,y,0,0,1)
      如果(x==-标签宽度)
         x=窗口宽度
      如果结束
      辅助.等待(移动间隔)
循环结束
功能结束
功能关机程序()
系统.关机(0)
功能结束

功能开始_点击()
//这里添加你要执行的代码
控件.有效("按钮0",真)
功能结束

空间结束

作者: 645036285 时间: 2014-5-9 10:13
老大劲,老大醒,老大俾人柄!!

作者: rainshine 时间: 2014-5-11 19:40
啊哈。。。感动ing......终于有人拿了源码能说一下了

作者: 神圣的恶魔 时间: 2014-5-12 19:15

rainshine 发表于 2014-5-11 19:40
啊哈。。。感动ing......终于有人拿了源码能说一下了

我只能复制具体代码的意思还是看不懂

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)