Dim h,m,s,HH,MM,SS,t1
HH=ReadUIConfig("HH","13")
MM=ReadUIConfig("MM","00")
SS = ReadUIConfig("SS","00")
TracePrint HH
TracePrint MM
TracePrint SSDot1=GetNetworkTime()h=mid(t1,12,2)//获取网络小时m=mid(t1,15,2)//获取网络分钟s=mid(t1,18,2)//获取网络秒If h=HH and m=MM and s=SS then//TracePrint "到时间了!" //TracePrint GetNetworkTime()//点击提交订单Tap 530, 950//点击坐标TracePrint "运行结束"Exit doEnd If//TracePrint t1Delay 100
loop
自定义界面设置时间:
界面1:
{文字框:{注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",名称:"文字框1",显示内容:"定时点击A3000版",文字大小:25,高度:0,宽度:0},水平布局:{文字框:{注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",名称:"文字框1",显示内容:"时间(H):",文字大小:18,高度:0,宽度:0}, 输入框:{注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",名称:"HH",提示内容:"--时",仅输入数字:true,文字大小:18,最大输入长度:0,高度:0,宽度:50}, }, 水平布局:{文字框:{注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",名称:"文字框1",显示内容:"时间(分):",文字大小:18,高度:0,宽度:0}, 输入框:{注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",名称:"MM",提示内容:"--分",仅输入数字:true,文字大小:18,最大输入长度:0,高度:0,宽度:50}, }, 水平布局:{文字框:{注释:"文字大小、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",名称:"文字框1",显示内容:"时间(秒):",文字大小:18,高度:0,宽度:0}, 输入框:{注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性",名称:"SS",提示内容:"--秒",仅输入数字:true,文字大小:18,最大输入长度:0,高度:0,宽度:50}, }, }