07/12/08 16:15:15 nxsA0pGEP
規制に巻き込まれたので、公式p2でレスする p2res.vbs を作ってみた
' p2でレス=wscript "$BASEPATHp2res.vbs" $URL
Set re = New RegExp
re.IgnoreCase = True
re.Pattern = "http://(.+)/test/read.cgi/(.+)/(\d{9,10})/"
url = WScript.Arguments.UnNamed(0)
Set matches = re.Execute(url)
For Each match In matches
url_p2 = "URLﾘﾝｸ(p2.2ch.net) & match.SubMatches(0) & "&bbs=" & match.SubMatches(1) & "&key=" & match.SubMatches(2)
Next
CreateObject("WScript.Shell").Run url_p2