MSXML2.ServerXMLHTTP.6.0 で BOATRACEインターネット投票にログイン出来ない

解決

KY 2013-01-22 03:12:15 No: 143438

エクセルで自動投票をしています。

今までは"InternetExplorer.application"を使っていたのですが、
MSXMLの方が軽量なので順次移行しているのですが、
どうしても競艇だけ出来ません。

競輪・IPAT・SPAT4・オッズパークは出来たのですが、競艇のみクッキーが送出されていないようです。
(ブラウザを使ってクッキーを切った時と同じエラーページに飛ぶ)

MSXML2.XMLHTTP は仕様として自動的にクッキーが有効になっているはずですが、
原因がわかる方がいらっしゃいましたらご回答の程宜しくお願いいたします。

以下、コードになります。

  Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
  URL = "https://ib.mbrace.or.jp/"
    With XMLHTTP
      .Open "POST", URL & "mbw_020.cgi"
      .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
      .setRequestHeader "Content-Length", "length"
      .send "uid=" & 加入者番号 & "&pwd=" & 暗証番号 & "&np" & 認証用パスワード
    End With

KY 2013-02-01 02:26:01 No: 143439

自己解決しました。