ちょっと教えてください
Set objHttp = New XMLHTTP30
Set objStream = New Stream
strServer = "http://"; & strHost & "/"
strURL = strServer & "test/offlaw.cgi/" & strBoardName & "/" & strKey & "/?raw=0.0&sid=" & strSessionID
With objHttp
.Open "GET", strURL, False
.SetRequestHeader "Host", strHost
.SetRequestHeader "User-Agent", "Monazilla/1.00"
.SetRequestHeader "referer", strServer & strBoardName
.SetRequestHeader "Accept-Encoding", "gzip"
.SetRequestHeader "Connection", "close"
.Send
With objStream
.Open
.Type = adTypeBinary
.Write objHttp.ResponseBody
.SaveToFile strDatSavePath, adSaveCreateOverWrite
.Close
End With
.Abort
End With
2chブラウザみたいなものを作っていて●ログインして過去ログを取得する部分で行き詰まってるのですが
ttp://kage.monazilla.org/system_DOLIB100.html
を参考に上のコードを実行すると"-ERR もう　つかえません"というファイルが作成されます
このエラーでググってみるとFireWall関連が原因とあるのでWinのFWとNISを無効にしてみるも結果は同じ
strURLはhttp:// pc8.2ch.net/test/offlaw.cgi/tech/1152667953/?raw=のような感じで
strSessionIDの値はログインの個人情報なのでさすがに晒せませんがこの値を使って書き込むと
名前欄に●を書けるので値に間違いは無いです
WinXP SP2/VB6 SP6/IE6の環境 ですが何処をどう直せば良いのでしょうか?