' 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 = "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
