.支持庫 internet
.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
取網絡時間 ()
.子程序 取網絡時間, 日期時間型
.參數 是否改系統時間, 邏輯型, 可空, 是否立即修改系統時間為網絡上取到的時間
.局部變量 網頁地址, 文本型, , , 如果空
.局部變量 前導字符, 文本型, , , 這是取網頁文本中的日期前的壹些文字
.局部變量 文本1, 文本型
.局部變量 首位置, 整數型
.局部變量 臨時保存時間, 日期時間型
.局部變量 相差的時間, 整數型
.局部變量 年月日, 文本型
.局部變量 時, 整數型
.局部變量 分, 整數型
.局部變量 秒, 整數型
.局部變量 結果時間, 日期時間型
臨時保存時間 = 取現行時間 () ' 取啟動時的時間,因為啟動後讀網頁會浪費壹些時間,這樣取出的不準.這是為了較準用的.
網頁地址 = “/stime.asp”
輸出調試文本 (網頁地址)
' 處理事件 () '這裏網絡不通時可能會死掉!!!
文本1 = 到文本 (HTTP讀文件 (網頁地址))
' ===================================================
前導字符 = “document.write('20” ' 因為是21世紀,所以取到20,這樣壹百年夠用了,而且是唯壹的字串.
首位置 = 尋找文本 (文本1, 前導字符, 1, 假)
.如果真 (首位置 ≥ 1)
首位置 = 首位置 + 取文本長度 (前導字符)
.如果真結束
年月日 = 取文本中間 (文本1, 首位置 - 2, 14) ' 這裏的是連在壹起的,就壹起取吧.
年月日 = 子文本替換 (年月日, “'”, “”, , , 真) ' 去昝最後尾的壹個'符號
輸出調試文本 (到文本 (首位置) + “ 年月日 ” + 年月日)
結果時間 = 到時間 (年月日)
輸出調試文本 (到文本 (首位置) + “ 年月日 ” + 到文本 (結果時間))
' ===================================================
前導字符 = “var hrs = ”
首位置 = 尋找文本 (文本1, 前導字符, 1, 假)
.如果真 (首位置 ≥ 1)
首位置 = 首位置 + 取文本長度 (前導字符)
.如果真結束
時 = 到數值 (取文本中間 (文本1, 首位置, 2))
輸出調試文本 (到文本 (首位置) + “ 時 ” + 到文本 (時))
前導字符 = “var min = ”
首位置 = 尋找文本 (文本1, 前導字符, 1, 假)
.如果真 (首位置 ≥ 1)
首位置 = 首位置 + 取文本長度 (前導字符)
.如果真結束
分 = 到數值 (取文本中間 (文本1, 首位置, 2))
輸出調試文本 (到文本 (首位置) + “ 分 ” + 到文本 (分))
前導字符 = “var sec = ”
首位置 = 尋找文本 (文本1, 前導字符, 1, 假)
.如果真 (首位置 ≥ 1)
首位置 = 首位置 + 取文本長度 (前導字符)
.如果真結束
秒 = 到數值 (取文本中間 (文本1, 首位置, 2))
輸出調試文本 (到文本 (首位置) + “ 秒 ” + 到文本 (秒))
' ===================================================
相差的時間 = 取時間間隔 (取現行時間 (), 臨時保存時間, #秒) ' 因為啟動後讀網頁會浪費壹些時間,這樣取出的不準.這是為了較準用的.
輸出調試文本 (取時間間隔 (取現行時間 (), 臨時保存時間, #秒)) ' 讀網頁使用了幾秒鐘,這個時間要扣回來
結果時間 = 增減時間 (到時間 (年月日 + 到文本 (時) + “時” + 到文本 (分) + “分” + 到文本 (秒) + “秒”), #秒, 相差的時間)
.如果真 (是否改系統時間 = 真)
置現行時間 (結果時間)
.如果真結束
返回 (結果時間)