雑記スレ - 1185485757 - したらば掲示板

雑記スレ

10：よしお ◆yoshio/WR6：2008/01/10(木) 02:55:52: JaneViewからp2でレスするためのコマンドで試行錯誤してたらこんな時間に。

command.datを「プログラムから開く→Notepad」で以下の一行を加えて上書き保存
p2でレス=wscript "$BASEPATHp2res.vbs" $URL

んで、新しいメモ帳を開いて以下のように記述。
----------------------このすぐ下の行から------------------------
' 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
----------------------このすぐ上の行まで------------------------
http～がある行は「"」が「＆quot;」になっちゃってる場合があるので注意。
で、これをメモ帳にコピペしたらファイル名を「p2res.vbs」にして
JaneView.exeと同じ階層のフォルダに保存。
これで右クリックからp2でレスできるはず。

以下おまけでp2でスレ立てするコマンド。

command.datを「プログラムから開く→Notepad」で以下の一行を加えて上書き保存。
p2でスレ立て=wscript "$BASEPATHp2thre.vbs" $URL

んで、新しいメモ帳を開いて以下のように記述。
----------------------このすぐ下の行から------------------------
' p2でスレ立て=wscript "$BASEPATHp2thre.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) & "&newthread=true"
Next
CreateObject("WScript.Shell").Run url_p2
----------------------このすぐ上の行まで------------------------
http～がある行は「"」が「＆quot;」になっちゃってる場合があるので注意。
で、これをメモ帳にコピペしたらファイル名を「p2thre.vbs」にして
JaneView.exeと同じ階層のフォルダに保存。
これで右クリックからp2でスレ立てできるはず。

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）