易語言時間校準源碼

㈠ 求易語言獲取網路時間源碼8位整數型

.版本 2
.支持庫 spec

.局部變數 局_臨時時間1, 日期時間型
.局部變數 局_臨時文本1, 文本型
.局部變數 局_臨時文本2, 文本型
.局部變數 局_臨時文本3, 文本型

局_臨時時間1 ＝ 取現行時間 ()

局_臨時文本1 ＝ 到文本 (取年份 (局_臨時時間1))
局_臨時文本2 ＝ 到文本 (取月份 (局_臨時時間1))
.判斷開始 (取文本長度 (局_臨時文本2) ＝ 1)
局_臨時文本2 ＝ 「0」 ＋ 局_臨時文本2
.默認

.判斷結束
局_臨時文本3 ＝ 到文本 (取日 (局_臨時時間1))
.判斷開始 (取文本長度 (局_臨時文本3) ＝ 1)
局_臨時文本3 ＝ 「0」 ＋ 局_臨時文本3
.默認

.判斷結束

調試輸出 (局_臨時文本1 ＋ 局_臨時文本2 ＋ 局_臨時文本3)

㈡ 北京時間校準，E語言源碼怎麼寫獲取的網路時間是動態的！

.版本 2
.支持庫 internet
.子程序 取北京時間, 日期時間型
.局部變數 局_返回數據, 文本型
.局部變數 局_起始位置, 整數型
.局部變數 局_結束位置, 整數型
.局部變數 局_取出字元, 文本型
.局部變數 局_字元長度, 整數型
局_返回數據 ＝ 到文本 (HTTP讀文件 (「http://open..com/special/time/」))
局_起始位置 ＝ 尋找文本 (局_返回數據, 「window._time(」, , 假) ＋ 取文本長度 (「window._time(」)
局_結束位置 ＝ 尋找文本 (局_返回數據, 「)」, 局_起始位置, 假)
局_字元長度 ＝ 局_結束位置 － 局_起始位置
局_取出字元 ＝ 取文本中間 (局_返回數據, 局_起始位置, 局_字元長度)
標簽1.標題 ＝ 到文本 (增減時間 ([1970年1月1日8時], #秒, 到數值 (局_取出字元) ÷ 1000))
返回 (增減時間 ([1970年1月1日8時], #秒, 到數值 (局_取出字元) ÷ 1000))

㈢ 易語言 如何實現自動校對北京時間

.版本 2
.支持庫 internet

.子程序 取網路時間, 文本型, 公開, 成功返回一個時間文本 失敗反回 「」
.局部變數 網頁文本, 文本型
.局部變數 文本數組, 文本型, , "0"
.局部變數 日期臨時, 文本型, , "0"
.局部變數 時間臨時, 文本型, , "0"
.局部變數 時間, 文本型

處理事件 ()
網頁文本 ＝ 到文本 (HTTP讀文件 (「http://www.time.ac.cn/stime.asp」))
文本數組 ＝ 分割文本 (網頁文本, 「伺服器時間:」, )
.如果真 (取數組成員數 (文本數組) ＜ 2)
返回 (「」)
.如果真結束
網頁文本 ＝ 文本數組 [2]
文本數組 ＝ 分割文本 (網頁文本, 「document.write('」, )
.如果真 (取數組成員數 (文本數組) ＜ 2)
返回 (「」)
.如果真結束
日期臨時 ＝ 分割文本 (文本數組 [3], 「')」, )
時間 ＝ 日期臨時 [1]
日期臨時 ＝ 分割文本 (文本數組 [6], 「var hrs = 」, )
時間臨時 ＝ 分割文本 (日期臨時 [2], 「;」, )
時間 ＝ 時間 ＋ 時間臨時 [1] ＋ 「時」
日期臨時 ＝ 分割文本 (文本數組 [6], 「var min = 」, )
時間臨時 ＝ 分割文本 (日期臨時 [2], 「;」, )
時間 ＝ 時間 ＋ 時間臨時 [1] ＋ 「分」
日期臨時 ＝ 分割文本 (文本數組 [6], 「var sec = 」, )
時間臨時 ＝ 分割文本 (日期臨時 [2], 「;」, )
時間 ＝ 時間 ＋ 時間臨時 [1] ＋ 「秒」
返回 (時間)

㈣ 易語言時間校正源碼

網路時間校準程序：------------------------------------------------------------------.版本 2
.支持庫 INTERNET.子程序 _按鈕1_被單擊
.局部變數 網頁文本, 文本型
.局部變數 文本數組, 文本型, , "0"
.局部變數 日期臨時, 文本型, , "0"
.局部變數 時間臨時, 文本型, , "0"
.局部變數 時間, 文本型標簽1.標題 ＝ 「取網路時間進行中...」
處理事件 ()
網頁文本 ＝ 到文本 (HTTP讀文件 (「 http://www.time.ac.cn/stime.asp」))
文本數組 ＝ 分割文本 (網頁文本, 「伺服器時間:」, )
.如果真 (取數組成員數 (文本數組) ＜ 2)
信息框 (「取網路時間失敗！鏈接網路不成功！」, 0 ＋ #信息圖標, 「網路校時：」)
標簽1.標題 ＝ 「取網路時間失敗！」
返回 ()
.如果真結束
網頁文本 ＝ 文本數組 [2]
文本數組 ＝ 分割文本 (網頁文本, 「document.write('」, )
.如果真 (取數組成員數 (文本數組) ＜ 2)
信息框 (「取網路時間失敗！鏈接網路不成功！」, 0 ＋ #信息圖標, 「網路校時：」)
標簽1.標題 ＝ 「取網路時間失敗！」
返回 ()
.如果真結束
日期臨時 ＝ 分割文本 (文本數組 [3], 「')」, )
時間 ＝ 日期臨時 [1]
日期臨時 ＝ 分割文本 (文本數組 [6], 「var hrs = 」, )
時間臨時 ＝ 分割文本 (日期臨時 [2], 「;」, )
時間 ＝ 時間 ＋ 時間臨時 [1] ＋ 「時」
日期臨時 ＝ 分割文本 (文本數組 [6], 「var min = 」, )
時間臨時 ＝ 分割文本 (日期臨時 [2], 「;」, )
時間 ＝ 時間 ＋ 時間臨時 [1] ＋ 「分」
日期臨時 ＝ 分割文本 (文本數組 [6], 「var szec = 」, )
時間臨時 ＝ 分割文本 (日期臨時 [2], 「;」, )
時間 ＝ 時間 ＋ 時間臨時 [1] ＋ 「秒」
標簽1.標題 ＝ 「現在的網路時間是：」 ＋ 時間
.如果真 (選擇框1.選中 ＝ 真)
置現行時間 (到時間 (時間))
.如果真結束-----------------------------------------------------------------------------源碼下載地址：http://dl.dbank.com/c0k4cbbbzf

㈤ 求易語言北京時間源碼

.版本 2
.支持庫 RegEx
.支持庫 internet
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
取北京時間 ()
.子程序 取北京時間
.局部變數 返回數據, 文本型
.局部變數 正則表達式, 正則表達式
.局部變數 搜索結果, 搜索結果, , "0"
.局部變數 臨時文本, 文本型
.局部變數 分割文本, 文本型, , "0"
.局部變數 計次, 整數型
返回數據 ＝ 到文本 (HTTP讀文件 (「 http://www.beijing-time.org/time.asp」))
正則表達式.創建 (「[0-9;]」, )
搜索結果 ＝ 正則表達式.搜索全部 (返回數據)
.計次循環首 (取數組成員數 (搜索結果), 計次)
臨時文本 ＝ 臨時文本 ＋ 搜索結果 [計次].取匹配文本 (返回數據, )
.計次循環尾 ()
分割文本 ＝ 分割文本 (臨時文本, 「;」, )
信息框 (分割文本 [2] ＋ 「年」 ＋ 分割文本 [3] ＋ 「月」 ＋ 分割文本 [4] ＋ 「日」 ＋ 分割文本 [6] ＋ 「時」 ＋ 分割文本 [7] ＋ 「分」 ＋

㈥ 求易語言取系統時間的源碼

輸出調試文本 (取現行時間 ()) ======================可以直接在E語言寫使用方法如：_啟動窗口.標題 ＝ 到文本 (取現行時間 ())

㈦ 易語言取北京時間源碼，求大神指點

從網路返回不就行了 抓取時間校準網站的POST數據即可

㈧ 易語言按系統時間修改文件名源碼。

.版本
2
採納吧
.程序集
窗口程序集1
.子程序
_按鈕1_被單擊
.局部變數
文件名稱,
文本型
.局部變數
數組,
文本型,
,
"0"
文件名稱
＝
尋找文件
(「d:\目錄\*.*」,
)
.判斷循環首
(文件名稱
≠
「」)
數組
＝
分割文本
(文件名稱,
「.」,
)
文件更名
(「d:\目錄\」
＋
文件名稱,
「d:\目錄\」
＋
數組
[1]
＋
「.txt」)
文件名稱
＝
尋找文件
(,
)
.判斷循環尾
()

㈨ 易語言判斷時間

文字 是 不能進行比較的 時間是可以直接進行比較的
判斷 （取現行時間（）＞到時間（2011年8月5日0時0分0秒））
信息框（「您的版本已過期」）

㈩ 易語言限制時間源碼，使用時間24小時，到期後自動關閉軟體

這個很容易實現的啊，先讀網路或者是北京時間，再讀取本地時間，分別轉換成數字，再進行對比，如果網路時間減去本地時間大於或等於1就執行關鍵代碼就行了。