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 }, }, }