- 662 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/01/03(木) 08:04:53 ID:VhE9EYvH0 BE:857547296-2BP(2550)]
- Boo2008 REDの外部コマンド
domo2.netが対応するまでのつなぎです
レスの1行目（レス番号〜ID）を選択して実行してください
----
'Boo2008 RED=wscript "$BASEPATHboo2008.vbs" "$URL$NUMBER$TEXT"
Set re1 = New RegExp
Set re2 = New RegExp
re1.Pattern = "(^.+/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})?)\s(?:.+\s)?ID:(\S+)"
re2.Pattern = "\?\?\?$"
s = WScript.Arguments.UnNamed(0)
Set matches = re1.Execute(s)
For Each match In matches
url1 = "boo.2ch.net/boo2008.cgi?type=red&boo2008_uri=" & match.SubMatches(0) & "&boo2008_time=" & match.SubMatches(1) & "&boo2008_id=" & match.SubMatches(2)
Next
url_2 = re2.Replace(url1, "")
url_3 = Replace(url_2, "月) ", "%8C%8E)%20")
url_4 = Replace(url_3, "火) ", "%89%CE)%20")
url_5 = Replace(url_4, "水) ", "%90%85)%20")
url_6 = Replace(url_5, "木) ", "%96%D8)%20")
url_7 = Replace(url_6, "金) ", "%8B%E0)%20")
url_8 = Replace(url_7, "土) ", "%93%79)%20")
url_boo = Replace(url_8, "日) ", "%93%FA)%20")
CreateObject("WScript.Shell").Run url_boo
|
 |
