実況向き２ちゃんビューア 「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。
スレタイが「テレ東」だと見つけられない・旧/重複スレが上がってたらそっちが表示されちゃう のは　仕 様　です。

勝手に改造して、全ch対応&テレビ東京、テレ東どっちでもOK版作っちゃいました。
'---------------------------------------------------
sch = InputBox("チャンネルを入力してください" & vbCrLf & "1=NHK 3=NHK教育 4=日本テレビ" & vbCrLf & "6=TBS 8=フジテレビ 10=テレビ朝日" & vbCrLf & "12=テレビ東京")
Select Case sch
Case "1"
sch1 = "NHK総合"
sch2 = "ＮＨＫ総合"
Case "3"
sch1 = "NHK教育"
sch2 = "ＮＨＫ教育"
Case "4"
sch1 = "日本テレビ"
sch2 = "日テレ"
Case "6"
sch1 = "TBS"
sch2 = "ＴＢＳ"
Case "8"
sch1 = "フジテレビ"
sch2 = "不治"
Case "10"
sch1 = "テレビ朝日"
sch2 = "テレ朝"
Case "12"
sch1 = "テレビ東京"
sch2 = "テレ東"
End Select
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: ic2 = 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, sch1, 1)
ic2 = InStr(1, Line, sch2, 1)
If 0 <> ic or 0<>ic2 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
'---------------------------------------------------
実行してchを入力すると、そのchのスレを表示。
勝手に改造スマソ。
2レス間の「'--------------------------------------------------- 」の範囲内をくりぬいて拡張子vbsで保存ね。