(教學)使用AutoHotkey確認網頁內容記錄txt檔(範例.腳本.自動化)－懶洋洋的輕鬆隨意寫

範例:

IE開啟google網頁，確認網頁中"google"字樣，然後在txt檔案增加一筆確認資訊。

各功能都可依造自身需求加以修改。

以下為執行成功的txt檔內容。

PS:寫入txt檔採用換行輸入進行累加，會從第二行開始依序累加資訊，若檔案不存在會自動創建檔案。

複製以下程式碼可以直接執行---------------------------------

Web =https://www.google.com.tw/ ;想要尋找的網頁路徑

Log =C:\Check.txt ;記錄txt檔的位置，當找不到此檔會自動建立。

EnvAdd, var2, 0, days ;指令抓自己電腦日期

FormatTime,var2, %var2% ,yyyy/MM/d ;設定格式為yyyy/MM/d

var1 =google ;想要尋找的條件

objIE := ComObjCreate("InternetExplorer.Application")

objIE.Visible := true ;設定objIE.Visible := false為網頁背景作業

ComObjConnect(objIE, "IE_"), loading := true ; Connect IE object & set var "loading" as TRUE

objIE.Navigate(Web)

while, loading

Sleep, 10

IE_DocumentComplete() { ; the "IE_" prefix corresponds to the ComObjConnect() function above

global loading := false ; Break the While-Loop

}

text := objIE.document.documentElement.innerText ;抓取網頁內容與條件做比對

s :=InStr(text,var1) ;網頁內容與條件做比對

file := FileOpen(Log,2) ;txt寫入執行記錄，若路徑沒有此檔案會自動建立一個。
test := file.read()

if s > 0
{
tes = %test%`r`n%var2%-%var1%-OK ;格式為換行輸入進行累加，第一行會空白從第二行開始依序累加。
file.write(tes)
Sleep, 1000
}
else
{
tes = %test%`r`n%var2%-%var1%-Error ;格式為換行輸入進行累加，第一行會空白從第二行開始依序累加。
file.write(tes)
Sleep, 1000
}

Sleep, 10000
objIE.Quit
file.Close()
ExitApp