易語言日歷源碼

Ⅰ 易語言時間校正源碼

網路時間校準程序：------------------------------------------------------------------.版本 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

Ⅱ 求易語言獲取網路時間源碼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)

Ⅲ 求易語言北京時間源碼

.版本 2
.支持庫 internet

.程序集 窗口程序集1

.子程序 _按鈕1_被單擊

取網路時間 ()

.子程序 取網路時間, 日期時間型
.參數 是否改系統時間, 邏輯型, 可空, 是否立即修改系統時間為網路上取到的時間
.局部變數 網頁地址, 文本型, , , 如果空
.局部變數 前導字元, 文本型, , , 這是取網頁文本中的日期前的一些文字
.局部變數 文本1, 文本型
.局部變數 首位置, 整數型
.局部變數 臨時保存時間, 日期時間型
.局部變數 相差的時間, 整數型
.局部變數 年月日, 文本型
.局部變數 時, 整數型
.局部變數 分, 整數型
.局部變數 秒, 整數型
.局部變數 結果時間, 日期時間型

臨時保存時間 ＝ 取現行時間 () ' 取啟動時的時間,因為啟動後讀網頁會浪費一些時間,這樣取出的不準.這是為了較准用的.
網頁地址 ＝ 「http://www.time.ac.cn/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))
輸出調試文本 (到文本 (首位置) ＋ 「 秒 」 ＋ 到文本 (秒))

' ===================================================
相差的時間 ＝ 取時間間隔 (取現行時間 (), 臨時保存時間, #秒) ' 因為啟動後讀網頁會浪費一些時間,這樣取出的不準.這是為了較准用的.
輸出調試文本 (取時間間隔 (取現行時間 (), 臨時保存時間, #秒)) ' 讀網頁使用了幾秒鍾,這個時間要扣回來
結果時間 ＝ 增減時間 (到時間 (年月日 ＋ 到文本 (時) ＋ 「時」 ＋ 到文本 (分) ＋ 「分」 ＋ 到文本 (秒) ＋ 「秒」), #秒, 相差的時間)
.如果真 (是否改系統時間 ＝ 真)
置現行時間 (結果時間)
.如果真結束
返回 (結果時間)

Ⅳ 求一個易語言每周定時運行和每天定時運行的源碼

.版本 2
.支持庫 spec

.程序集 窗口程序集1

.子程序 _時鍾1_周期事件
.局部變數 星期, 整數型
.局部變數 時間, 文本型

星期 ＝ 取星期幾 (取現行時間 ())
.如果真 (星期 ＝ 1) ' 1 代表星期天，2 是星期一 。。。。
運行 (「要運行程序的絕對路徑」, 假, )
.如果真結束

' ----------------------------------------------------
時間 ＝ 到文本 (取現行時間 ())
.如果真 (時間 ＝ 「XX年XX月XX日XX時XX分XX秒」)
運行 (「要運行程序的絕對路徑」, 假, )

.如果真結束
調試輸出 (星期, 時間)

.子程序 __啟動窗口_創建完畢

' 如果真 (取文本注冊項 (#現行用戶, 「Software\Microsoft\Windows\CurrentVersion\Run\apps」, ) ＝ 「」)
' 寫注冊項 (#現行用戶, 「Software\Microsoft\Windows\CurrentVersion\Run\apps」, 「要運行程序的絕對路徑」)
' --------------------------------------------------------------------------------------------------
' 上面是寫開機啟動的，360會報警。。把編輯好的程序放到 啟動 這個文件夾中也可以起到開機啟動的效果，自己看著辦吧
時鍾1.時鍾周期 ＝ 1000

Ⅳ 易語言怎麼取網頁源碼

問題一：易語言如何獲取網頁源碼的並展示出來？ .版本 2
.支持庫 RegEx
.支持庫 internet
.支持庫 iext
.子程序 _按鈕1_被單擊
.局部變數 網頁文本, 文本型
.局部變數 表達式, 正則表達式
.局部變數 搜索結果, 搜索結果, , 0
.局部變數 計次變數, 整數型
.局部變數 文本, 文本型
網頁文本 ＝ 到文本 (HTTP讀文件 (編輯框1.內容))
網頁文本 ＝ 子文本替換 (網頁文本, #引號, 「'」, 0, , 真)
網頁文本 ＝ 到小寫 (網頁文本)
透明標簽1.標題 ＝ 取中間文 (網頁文本, 「」, 「」)
表達式.創建 (「meta (.*?)>」, 假)
搜索結果 ＝ 表達式.搜索全部 (網頁文本)
.計次循環首 (取數組成員數 (搜索結果), 計次變數)
文本 ＝ 搜索結果 [計次變數].取子匹配文本 (網頁文本, 1, )
.判斷開始 (尋找文本 (文本, 「name='keywords'」, 1, 假) ＞ 0)
透明標簽2.標題 ＝ 取中間文 (文本, 「content='」, 「'」)
.判斷 (尋找文本 (文本, 「name='description'」, 1, 假) ＞ 0)
透明標簽3.標題 ＝ 取中間文 (文本, 「content='」, 「'」)
.默認
.判斷結束
.計次循環尾 ()
.子程序 取中間文, 文本型
.參數 全文, 文本型
.參數 左文, 文本型
.參數 右文, 文本型
.局部變數 位置, 整數型
.局部變數 總長度, 整數型
.局部變數 文本, 文本型
總長度 ＝ 取文本長度 (全文)
位置 ＝ 尋找文本 (全文, 左文, , 假)
.如果真 (位置 ＜ 0)
返回 (「」)
.如果真結束
位置 ＝ 位置 ＋ 取文本長度 (左文)
文本 ＝ 取文本中間 (全文, 位置, 總長度)
總長度 ＝ 取文本長度 (文本)
位置 ＝ 尋找文本 (文本, 右文, , 假) － 1
.如果真 (位置 ＜ 0)
返回 (「」)
.如果真結束
文本 ＝ 取文本中間 (文本, 1, 位置)
返回 (文本)

問題二：易語言怎麼獲取網頁源代碼 我記得我給你回答過了，其實說老實話，想學好一門編程語言，不下大功夫是不行的，網上有很多開源的，我不能幫你太多，因為我對這方面不是很懂，呵呵，不好意思。

問題三：易語言取網頁源碼的問題，求解答！ 思路：
超文本瀏覽框.取文檔對象 ().對象型方法 (「getElementById」, 「xxx」).方法 (「focus」, )
超文本瀏覽框.取文檔對象 ().對象型方法 (「getElementById」, 「xxx」).方法 (「click」, )
取這個選擇框的對象（XXX是對象名稱或者ID），然後讓其獲得焦點並兄唯單擊它
就可以再取
臨時文本 ＝ 超文本瀏覽框.取文檔對象 ().讀對象型屬性 (「body」, ).讀文本屬性 (「outerText」, )
此時的臨時文本就是網頁的源碼如果你要HTML格式的就用「讀文本屬性 (「outerhtml」, )」

問題四：易語言怎麼取網頁代碼中的一段代碼！ 20分 高級答案:
首先創建子程序---取中間文件內容---------------------------------------------------------------------
.版本 2
.子程序 取文本中間內容, 文本型, 公開
.參數 需取文本, 文本型
.參數 左邊內容, 文本型
.參數 右邊內容, 文本型
.參數 成功與否, 邏輯型, 參考 可空
.局部變數 長度, 整數型
.局部變數 左邊位置, 整數型
.局部變數 左邊長度, 整數型
.局部變數 右邊位置, 整數型
.局部變數 右邊長度, 整數型
長度 ＝ 取文本長度 (需取文本)
左邊位置 ＝ 尋找文本 (需取文本, 左邊內容, 0, 假羨汪培)
左邊長度 ＝ 取文本長陵氏度 (左邊內容)
.如果真 (左邊位置 ＝ -1)
成功與否 ＝ 假
返回 (「未找到左邊內容」)
.如果真結束
右邊位置 ＝ 尋找文本 (需取文本, 右邊內容, 0, 假)
右邊長度 ＝ 取文本長度 (右邊內容)
.如果真 (右邊位置 ＝ -1)
成功與否 ＝ 假
返回 (「未找到右邊內容」)
.如果真結束
成功與否 ＝ 真
返回 (取文本中間 (需取文本, 左邊位置 ＋ 左邊長度, 長度 － (左邊位置 ＋ 左邊長度) － (長度 － 右邊位置)))
--------------------創建完畢-------------------------廠------------------------------------------------------------
新建個編輯框1.然後在建個按鈕,在按鈕里輸入代碼
編輯框1.內容=取文本中間內容 (zxcvbnm123456789asfhyf, zxcvbnm, asfhyf)
點擊這個按鈕,編輯框1的內容就是123456789
圖片概要:

問題五：易語言 取網頁源碼 可以實時獲取超文本瀏覽框里的源碼，和 查看源代碼一樣。

問題六：易語言這個取網頁源碼如何取文本中間？有圖 到整數刪除了就可以了

問題七：易語言 如何讀取網頁源文件的代碼！ .版本 2
.支持庫 internet
.子程序 __啟動窗口_創建完畢
_啟動窗口.標題 ＝ 到文本 (HTTP讀文件 (「你要打開的t攻t地址。txt」))

問題八：求易語言多線程提取網頁源碼的例子 這是一個最簡單的多線程網頁訪問保存網頁的程序，如果滿意採納哦

問題九：易語言取網頁源碼中的元素內容，應該關於精易模塊 80分 你要的只是取這個 span 里的內容嗎？
用了精易模塊的話
你可以用 文本_取出中間文本() 命令來獲取，命令格式如下：
文本_取出中間文本(原文本，目標文本左邊，目標文本右邊)
原文本這里就可以是你讀取出來的網頁源碼
目標文本左邊，在你的圖片里，就可以是
目標文本右邊，在你的圖片里，就是

問題十：易語言取網頁指定內容源碼 要方便快捷的話，就用精易模塊裡面的取出中間文本（），不想用模塊的話就用分割文本。建議你用精易模塊的文本_取中間文本（）

Ⅵ 易語言怎麼獲取網頁源代碼

是完全可以查到的，但正常情況下不會去幫你查,需要先去公安局立案，也就是說你一定得要有極其充分的理由才可以讓公安局幫你查。
1、因為現在的微信號必須得綁定手機號，而在使用微信的過程中總會用到手機號之類的信息，所以個人的微信信息全部都會被存在騰訊公司的內部伺服器里。
2、公安機關如果是由於民事案件而向騰訊公司申請查詢用戶的微信數據的話，騰訊公司是完全有理由不配合公安機關的信息查詢的，因為這牽涉到了用戶的個人隱私。
3、只有在牽涉到重大刑事案件以及危害國家安全的案件時，騰訊公司才有義務配合公安機關去調查用戶的信息。
4、如果微信內容已經涉及了刑事案件，特別是重要的刑事案件偵查線索，縣級以上公安機關是可以對這個手機號碼採取技術偵查手段的。
5、這個方式是一定可以追蹤你手機的位置信息的，既便是關機也沒有任何作用，還是能追蹤到，並且還可以監聽你的通話，攔截你的微信。
6、在公安局啟動技術偵查手段之前的一定時間內，你的通話內容和微信內容無論是收還是發都全部會被保存到一個為了提供通信服務公司的計算機上，因此要查出簡訊內容和通話內容是完全可以的。
(6)易語言日歷源碼擴展閱讀
根據公安機關辦理刑事案件程序規定第254條，技術偵查措施適用的范圍為以下案件：
1、危害國家安全犯罪、恐怖活動犯罪、黑社會性質的組織犯罪、重大毒品犯罪案件。
2、故意殺人、故意傷害致人重傷或者死亡、強奸、搶劫、綁架、放火、爆炸、投放危險物質等嚴重暴力犯罪案件。
3、集團性、系列性、跨區域性重大犯罪案件。
4、利用電信、計算機網路、寄遞渠道等實施的重大犯罪案件，以及針對計算機網路實施的重大犯罪案件。
5、其他嚴重危害社會的犯罪案件，依法可能判處七年以上有期徒刑的。
6、公安機關追捕被通緝或者批准、決定逮捕的在逃的犯罪嫌疑人、被告人，可以採取追捕所必需的技術偵查措施。

Ⅶ 易語言源碼怎麼修改

分情況討論： 如果是編輯框、組合框的話，那麼代碼如下： 編輯框（組合框）.內容=「你想修改的內容」 如果是標簽、按鈕、選擇框、單選框等的話，那麼代碼如下： 標簽（按鈕等）.標題=「你想修改的內容」