| 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
| |