JaneNida　Part15

規制に巻き込まれたので、公式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 = "http://p2.2ch.net/p2/post_form.php?host=" & match.SubMatches(0) & "&bbs=" & match.SubMatches(1) & "&key=" & match.SubMatches(2)
Next
CreateObject("WScript.Shell").Run url_p2