実況向き２ちゃんビューア 「Live2ch」 part6

番組ch（http://live3.2ch.net/weekly/）などでは、
時間帯によっては１時間も経たぬ内に次スレに行っちゃうワケで、
お気に入りに入れても意味が無いわけですよ。
だから、起動するたびに探さなきゃならない。
そこで、最新の「テレビ東京」スレを探してからLive2chを起動するスクリプトを作ってみたわけだ。
'---------------------------------------------------
sTeleEast="テレビ東京" : sMackerel="http://live3.2ch.net/" : sBoard="weekly"
set IE=Wscript.CreateObject("InternetExplorer.Application","IE_")
IE.Navigate(sMackerel&sBoard&"/subject.txt")
do : WScript.Sleep 6320 : loop
sub IE_DocumentComplete(ByVal pDisp, URL)
str = IE.document.body.innerText : IE.Quit
send = -1 : ic = 0 : surl = ""
do
sstart = send+2
send = InStr(sstart,str,vbNewLine,1)
if 0=send then exit do
line = Mid(str,sstart,send-sstart)
ic = InStr(1,line,sTeleEast,1)
if 0<>ic then exit do
loop
if 0<>ic then surl = sMackerel&"test/read.cgi/"&sBoard&"/"&Left(line,10)&"/"
set WSHShell = WScript.CreateObject("WScript.Shell")
sLive2chPath = WshShell.RegRead("HKCU\Software\VB and VBA Program Settings\Live2ch\Path\Path")
WSHShell.Run """" & sLive2chPath & """" & surl
WScript.Quit
end sub
'---------------------------------------------------
無意味ループを無くそうと色々やってみたが無理だったのでこのまま出しちゃう。動くからOK。
スレタイが「テレ東」だと見つけられない・旧/重複スレが上がってたらそっちが表示されちゃう のは　仕 様　です。