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 SS Do t1=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 do End If //TracePrint t1 Delay 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 }, }, }