Lightbox Info Board : SQLの窓

生きたクッキーを取得

【2006/08/15 】
さくらのブログでは、「設定」からブログデータをエクスポートできますが、これを簡単に実行するのが目的です。

但し、個人の生きたクッキーデータが必要です

自宅のパソコンで、さくらのブログに常にログイン状態になっている前提で行います。
生きたクッキーの取得は横取り丸のInetSpy で行います

【※2006/08/28】
ieHTTPHeaders で適宜クッキー取得したほうがよさそうです。

site__blog_sid がなにかのタイミングで変わるみたいなので、きっちりプログラミングしないと実用的では無いですね。
複数のブログを運用している場合は、ログインして ieHTTPHeaders でクッキーとって一括、というのは実用的ですが。

VBScript

Msxml2.ServerXMLHTTP.3.0 を使用している事に注意して下さい、クライアントオブジェクトだと、
セキュリティ仕様の為か、うまく動きません


Set MyHttp=CreateObject( "Msxml2.ServerXMLHTTP.3.0" )
Set Stream = CreateObject( "ADODB.Stream" )

MyHttp.open "POST", "http://blog.sakura.ne.jp/pages/my/blog/tools/mt/export", False
MyHttp.setRequestHeader "Accept", "*/*"
MyHttp.setRequestHeader "Referer", "http://blog.sakura.ne.jp/pages/my/blog/tools/mt/input"
MyHttp.setRequestHeader "Accept-Language", "ja"
MyHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=---------------------------7d6193c4069e"
MyHttp.setRequestHeader "Host", "blog.sakura.ne.jp"
MyHttp.setRequestHeader "Content-Length", "142"
MyHttp.setRequestHeader "Pragma", "no-cache"
MyHttp.setRequestHeader "Cookie", "生きたクッキーデータ"

sData = _
"-----------------------------7d6193c4069e" & vbCrLf & _
"Content-Disposition: form-data; name=""encode""" & vbCrLf & _
"" & vbCrLf & _
"euc" & vbCrLf & _
"-----------------------------7d6193c4069e--" & vbCrLf

MyHttp.send sData

Stream.Open
Stream.Type = 2	' テキスト
strText = MyHttp.status & " " & _
	MyHttp.statusText & vbCrLf & _
	MyHttp.getAllResponseHeaders
Stream.WriteText strText
Stream.SaveToFile "backup_response_header.txt", 2
Stream.Close

Stream.Open
Stream.Type = 1	' バイナリ
Stream.Write MyHttp.responseBody
Stream.SaveToFile "backup_blog.txt", 2
Stream.Close

backup_response_header.txt

200 OK
Date: Tue, 15 Aug 2006 13:31:55 GMT
Server: Apache/2.0.54 (Unix) mod_perl/2.0.1 Perl/v5.8.4
Content-Disposition: attachment; filename=mtarchive-argus.log
Content-Length: 244713
Content-Type: application/octet-stream; name=mtarchive-argus.log
Connection: close