VBScript : Seesaaの禁止ワード一括登録

Google Twitter OneDrive jQuery Three.js logicalerror 更新履歴 データベース VBScript   最近休日になるとスパム投稿が増えるので 2013/01/19 更新 1) Seesaa の最新仕様にあわせて更新しました。 2) パッケージにデフォルトの『禁止WORD.txt』を同梱しました 3) 実行は、コマンドラインより実行するようにしたので、readme.txt をご覧ください 2011/04/07 更新 1) サーバー用の Msxml2.ServerXMLHTTP を使用しています 2) タイムアウトを設定しました 3) 元のデータを SHIFT_JIS から UTF-8 に変換して投稿しています 実際、承認制にしているにもかかわらず投稿されるので、禁止ワード対応するしかありません。しかし、たくさんのブログを作成できる Seesaa では登録するだけでも大仕事になります。そこで、VBScript で一括登録するものを作りました。 Seesaa は、ログインページでログインさえしてしまえば、特別クッキー等の処理をしなくてもうまくいってしまいました。IE と同等のオブジェクトを使っているせいかもしれませんが、とにかくIE8 で Seesaa を完全にサインアウトしておいて実行すると、再び IE8 で見てみるとサインイン済になっています。 禁止WORD.txt というテキストファイルを ignore_words.vbs と同じディレクトリに置いて実行します。うちでは、26個のワードを登録しましたが、うまく登録されています。 ワードに関しては、とても表には出せないようなものなので、自分で少しづつスパムの内容から拾い出す必要がありますが、ポイントは、本来使わない文字を巧みに使っています。カタカナのエのかわりに工学の工とかです。注意して下さい。 あとあまり凝りすぎると本来 OK である単語内に含まれてしまって困る場合があります。 例 : インポート ほんと・・・なんでこんな事しなくちゃいけないんでしょうね:-( ignore_words.vbs 行番号付きテキストエリアでソースを表示します copy このままの表示で印刷しますテキストとしてダウンロードします 001.<JOB> 002.<SCRIPT language="VBScript"> 003.' *********************************************************** 004.' サーバーオブジェクトを使用しています 005.' *********************************************************** 006.Set objHTTP = Wscript.CreateObject("Msxml2.ServerXMLHTTP") 007.lResolve = 60 * 1000 008.lConnect = 60 * 1000 009.lSend = 60 * 1000 010.lReceive = 60 * 1000 011.  012.' *********************************************************** 013.' キャラクタセット変換用 014.' *********************************************************** 015.Set Stream = Wscript.CreateObject("ADODB.Stream") 016.Set Stream2 = Wscript.CreateObject("ADODB.Stream") 017.' *********************************************************** 018.' URLエンコード用 019.' *********************************************************** 020.Set StreamBin = Wscript.CreateObject("ADODB.Stream") 021.' *********************************************************** 022.' POST データ読み込み用 023.' *********************************************************** 024.Set Fs = CreateObject( "Scripting.FileSystemObject" ) 025.' *********************************************************** 026.' 正規表現用 027.' *********************************************************** 028.Set regEx = New RegExp 029.  030.Wscript.Echo "開始します。しばらくお待ち下さい" 031.  032.' ログインページの取得 033.Call objHTTP.Open("GET","https://ssl.seesaa.jp/auth",False) 034.Call objHTTP.setTimeouts(lResolve, lConnect, lSend, lReceive) 035.Call objHTTP.Send() 036.  037.' ページ全体 038.strPage = objHTTP.responseText 039.  040.' 投稿用のキーを取得 041.regEx.IgnoreCase = True 042.regEx.Global = True 043.regEx.Pattern = "authpost""><input value=""([^""]+)""" 044.Set Matches = regEx.Execute( strPage ) 045.For Each Match in Matches 046.    strPostKey = Match.SubMatches(0) 047.    Exit For 048.Next 049.'Wscript.Echo strPostKey 050.  051.' *********************************************************** 052.' コマンドラインからの固有の情報の取得 053.' *********************************************************** 054.' Seesaa のログインユーザ( メールアドレス ) 055.emailData = Wscript.Arguments(0) 056.' Seesaa のログインパスワード 057.passData = Wscript.Arguments(1) 058.' 登録したいブログの ID を指定します 059.blogData = Wscript.Arguments(2) 060.  061.' *********************************************************** 062.' (1) : POST 063.' *********************************************************** 064.' ログイン URL 065.Call objHTTP.Open("POST","https://ssl.seesaa.jp/auth",False) 066.' POST 用ヘッダ 067.Call objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") 068.strData = "" 069.strData = strData & "aXt=" & strPostKey 070.strData = strData & "&email=" & emailData 071.strData = strData & "&password=" & passData 072.strData = strData & "&return_to=http%3A%2F%2Fblog.seesaa.jp%2F" 073.Call objHTTP.SetRequestHeader("Content-Length",Len(strData)) 074.Call objHTTP.Send(strData) 075.'strHeaders = objHTTP.getAllResponseHeaders() 076.'Wscript.Echo strHeaders 077.  078.' *********************************************************** 079.' (2) : GET 080.' *********************************************************** 081.' 対象ブログ URL 082.Call objHTTP.Open("GET","http://blog.seesaa.jp/cms/home/switch?blog_id="&blogData&"&goto=/cms/article/regist/input" , False) 083.Call objHTTP.setTimeouts(lResolve, lConnect, lSend, lReceive) 084.Call objHTTP.Send() 085.  086.' 以下デバッグ用 087.'Set OutObj = Fs.OpenTextFile( "log.txt", 2, True ) 088.'OutObj.Write objHTTP.responseText 089.'OutObj.Close 090.  091.' *********************************************************** 092.' (3) : GET 093.' *********************************************************** 094.' 投稿ページ 095.Call objHTTP.Open("GET","http://blog.seesaa.jp/cms/ignore_words/regist/input" , False) 096.Call objHTTP.setTimeouts(lResolve, lConnect, lSend, lReceive) 097.Call objHTTP.Send() 098.  099.' 投稿用のキーを取得 100.strPage = objHTTP.responseText 101.regEx.Pattern = "method=""POST""><input value=""([^""]+)""" 102.Set Matches = regEx.Execute( strPage ) 103.For Each Match in Matches 104.    strPostKey = Match.SubMatches(0) 105.    Exit For 106.Next 107.  108.Wscript.Sleep(2000) ' 2秒間の間を置く 109.  110.' *********************************************************** 111.' (3) : POST 112.' *********************************************************** 113.Set InObj = Fs.OpenTextFile( "禁止WORD.txt", 1 ) 114.  115.nCnt = 0 116.strData = "aXt=" & strPostKey 117.Do While not InObj.AtEndOfStream 118.    Buffer = InObj.ReadLine 119.    nCnt = nCnt + 1 120.  121.    if strData <> "" then 122.        strData = strData & "&" 123.    end if 124.  125.    strData = strData & "ignore_words=" & URLEncode( Buffer ) 126.  127.    if nCnt = 5 then 128.        ' 5ワード毎に POST 129.        Call objHTTP.Open("POST","http://blog.seesaa.jp/cms/ignore_words/regist/input",False) 130.        Call objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") 131.        Call objHTTP.SetRequestHeader("Content-Length",Len(strData)) 132.        Call objHTTP.Send(strData) 133.        nCnt = 0 134.        strData = "aXt=" & strPostKey 135.        Wscript.Sleep(2000) ' 2秒間の間を置く 136.    end if 137.Loop 138.  139.if nCnt <> 0 then 140.    Call objHTTP.Open("POST","http://blog.seesaa.jp/cms/ignore_words/regist/input",False) 141.    Call objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") 142.    Call objHTTP.SetRequestHeader("Content-Length",Len(strData)) 143.    Call objHTTP.Send(strData) 144.end if 145.  146.InObj.Close 147.  148.Wscript.Echo "終了しました" 149.  150.' *********************************************************** 151.' SHIFT_JIS を UTF-8 に変換して URLエンコード 152.' ※ 全ての文字をパーセントエンコーディングします 153.' *********************************************************** 154.Function URLEncode(str) 155.  156.    Stream.Open 157.    Stream.Charset = "shift_jis" 158.    ' shift_jis で入力文字を書き込む 159.    Stream.WriteText str 160.    ' コピーの為にデータポインタを先頭にセット 161.    Stream.Position = 0 162.   163.    Stream2.Open 164.    Stream2.Charset = "utf-8" 165.    ' shift_jis を utf-8 に変換 166.    Stream.CopyTo Stream2 167.    Stream.Close 168.  169.    ' コピーの為にデータポインタを先頭にセット 170.    Stream2.Position = 0 171.  172.    ' バイナリで開く 173.    StreamBin.Open 174.    StreamBin.Type = 1 175.  176.    ' テキストをバイナリに変換 177.    Stream2.CopyTo StreamBin 178.    Stream2.Close 179.  180.    ' 読み込みの為にデータポインタを先頭にセット 181.    StreamBin.Position = 0 182.  183.    Buffer = "" 184.    ' BOMを取り去る 185.    StreamBin.Read(3) 186.    Do while not StreamBin.EOS 187.        LineBuffer = StreamBin.Read(16) 188.   189.        For i = 1 to LenB( LineBuffer ) 190.            CWork = MidB(LineBuffer,i,1) 191.            Cwork = AscB(Cwork) 192.            Cwork = Hex(Cwork) 193.            Cwork = Ucase(Cwork) 194.            if Len(Cwork) = 1 then 195.                Buffer = Buffer & "%0" & Cwork 196.            else 197.                Buffer = Buffer & "%" & Cwork 198.            end if 199.        Next 200.   201.    Loop 202.  203.    StreamBin.Close 204.  205.    URLEncode = Buffer 206.  207.End Function 208.</SCRIPT> 209.</JOB>

---

   SQLの窓    create:2010/05/23  update:2018/02/18   管理者用(要ログイン)

---