(教學)使用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