求助在线大神

cdd2286559

按键精灵这个命令效果在TC怎么实现，就是在界面编辑框自定义跳出循环时间(分钟)
        sj = now
        Do
        循环脚本//
        Loop While DateDiff("n", sj, now) < Int(Form1.InputBox1.Text)

        Form1.ListBox1.AddItem now & "：自定义挂机时间已到.准备换号

在线等高手解答

千叶de悠一

功能 倒计时(秒)
    变量 时间
    遍历(变量 i = 秒; i >=0 ; i--)
        时间 = 指定时间("s",i,"2000/01/01 00:00:00")
        字符串分割(时间," ",时间)
        调试输出(时间[1])
        标签设置文本("标签10","倒计时信息:" & 时间[1])
        等待(1000)
    结束
调试输出("改换号了")
结束