'Boo2008 RED=wscript "$BASEPATHboo2008.vbs" "$URL$TEXT"
Set re1 = New RegExp
Set re2 = New RegExp
Set re3 = New RegExp
re1.Pattern = "(^http://.+/test/read.cgi/.+/\d{9,10}/\d{1,3})\s.+　投稿日：(\d{4}/\d{2}/\d{2}\(.\)\s\d{2}:\d{2}:\d{2}(?:\.\d{2})?)(.*)"
re2.Pattern = "\s(?:\W+\s)?(\S+)?"
re3.Pattern = "(^ID:\?\?\?$|^ID:|^.$|^\?.+$)"
s = WScript.Arguments.UnNamed(0)
Set matches1 = re1.Execute(s)
For Each match In matches1
res_uri = match.SubMatches(0)
timestamp = match.SubMatches(1)
etc = match.SubMatches(2)
Next
Set matches2 = re2.Execute(etc)
For Each match In matches2
id1 = match.SubMatches(0)
Next
id=re3.Replace(id1, "")
url_1 = "http://boo.2ch.net/boo2008.cgi?type=red&boo2008_uri=" & res_uri & "&boo2008_time=" & timestamp & "&boo2008_id=" & id
url_2 = Replace(url_1, "月) ", "%8C%8E)%20")
url_3 = Replace(url_2, "火) ", "%89%CE)%20")
url_4 = Replace(url_3, "水) ", "%90%85)%20")
url_5 = Replace(url_4, "木) ", "%96%D8)%20")
url_6 = Replace(url_5, "金) ", "%8B%E0)%20")
url_7 = Replace(url_6, "土) ", "%93%79)%20")
url_boo = Replace(url_7, "日) ", "%93%FA)%20")
CreateObject("WScript.Shell").Run url_boo