JaneNida　Part15 - 暇つぶし2ch

JaneNida　Part15 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

660:名無しさん＠お腹いっぱい。
 08/01/03 02:00:31 Bt7TufH30
デスクトップ アプリケーションのヒープを増やす 
http://support.microsoft.com/default.aspx?scid=kb;ja;JP126962 
 
ふむふむ、俺もよく出るから試してみようかなあ

661:名無しさん＠お腹いっぱい。
 08/01/03 06:37:02 zNXk45C60
【要望】 
 
書き込み時にチェックボックスで 
●使用の有無を選択出来るようにして頂けないでしょうか？ 
 
検証用に一つ差し上げますので、ご検討して頂けると幸いです。 
Beメールで送らせて頂きました。

662:名無しさん＠お腹いっぱい。
 08/01/03 08:04:53 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 = "(^http://.+/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 = "http://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

次ページ