09/01/13 01:44:13 kqB6nrSU0
Dim oHttp // 通信オブジェクト
conturl = "URLﾘﾝｸ(mamono.2ch.net)" // スレッド保存場所
url=板アドレス + "subject.txt" // 新着監視ページ
PUBLIC errortitles[]="サーバーが見つかりません", _
"ＥＲＲＯＲ", _
"ERROR", _
"error", _
""
DIM LastThreadNo=0 // スレ番を保存し、２重の書き込み、過去スレへの書き込みを回避する。
/////////
// 処理
// 通信オブジェクト接続
oHttp = CreateOLEObj("MSXML2.XMLHTTP")
// 投稿用ブラウザを起動
IE = CreateOLEObj("InternetExplorer.Application")
IE.visible = True
ID = HNDToID(IE.HWND)
SendSTR( メモ帳, TitleWord + "を処理します。<#CR>", 1, false, false )
LastModified = "Thu, 01 Jun 1970 00:00:00 GMT"
LastThreadNo = 0
sleeptime = 9
Gettime()
StartDay = G_TIME_DD
while 1
sleep(sleeptime)
Gettime()
SendSTR( メモ帳, G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_SS2 + "." + G_TIME_ZZ2 , 1, false, false )
ifb StartDay <> G_TIME_DD then
SendSTR( メモ帳, "<#BR>日付変更により終了", 1, false, false )
exit
endif