09/01/13 01:43:09 kqB6nrSU0
// 投稿関数はtest15.uwsのもの。スレ覧取得ループはv1をさらに改造。
// キーワードに合致するものを優先的に検索・投稿し、そのほかは余裕があれば２ゲットする。
// 2008/7/4
// スレ覧はSubject.txtをGetして使うように変更。
// それに伴い304エラーのために間隔を開ける必要がなくなり、鯖への負荷も減らせる。
// 2008/07/14 OpenJaneでnewsplusを開いていてsageチェックがはずされていれば投稿し、待ち状態に入る。
// 2008/11/02 FOXの板を回避
// 2008/11/25 ３回目の規制で、「二日までなら見逃し」という依頼者からの発言を受けて、
// 日付変更をチェックして自動終了するように変更。
def_dll GetWindow(hWnd,long):long:user32.dll
Public GW_ENABLEDPOPUP = 6 // ポップアップウィンドウ
board = "ニュース速報+"
//Jane本体のID取得
JBID = GetID("", "TMainWnd")
Public ProblemName = "FOX★", "番犬★"
/////////
// 定義
STOPFORM(true)
メモ帳 = Exec("notepad.exe")
板アドレス="URLﾘﾝｸ(mamono.2ch.net)"
TEXTBLOCK text24
正論が通らない狂った日本
URLﾘﾝｸ(ryotaroneko.ti-da.net) // ２ｃｈ規制
ENDTEXTBLOCK
Dim TitleWord = "更迭" // text1の投稿対象とするスレッドタイトル
text0 = text2 // そのほかのスレッドへの投稿内容
text = text0 // 投稿テキストにセット