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