ダイレクト認証+フォーム認証を自動化するには？
解決よろしくお願いします。
ダイレクト認証のページがあり、そこを過ぎるとログインフォームがあります。
ダイレクト認証は下記のコードで、つながりました。
Sub test3()
Dim oXmlHttp As Object
Set oXmlHttp = CreateObject("MSXML2.XMLHTTP")
oXmlHttp.Open "post", "http://aaa/login.php?", False
oXmlHttp.send ("name:pass")
Debug.Print oXmlHttp.responseText
End Sub
ただコードが文字化けしてます。
認証を手で押す上で、フォームの自動ログインは下記で出来ました。
Sub test()
With CreateObject("internetexplorer.application")
.navigate "http://aaa/login.php?"
While .Busy
Wend
Do While .document.readyState <> "complete"
DoEvents
Loop
.document.all.Name.Value = "name"
.document.all.pass.Value = "pass"
.document.forms(0).Submit
While .Busy
Wend
MsgBox .LocationURL
End With
End Sub
行いたい事は、ダイレクト認証を自動ログインして、
その先のフォームに(名前・パス)をセットしてログイン。
ログイン先のＵＲＬ(又はhtmlソース)を取得。
です。あれこれ調べて、XMLHTTPだとダイレクト認証は通ったのですが、
フォームログインとの組み合わせがわからないため、それとソースの文字化けでもつまり…
1週間悩んでいます。
よろしくお願いいたします。
> ダイレクト認証は下記のコードで、つながりました。
『ダイレクト認証』という物を知らないので、InternetExplorer ベースでの
操作についてはアドバイスできません。とりあえず XMLHTTP の方だけ回答します。
> ただコードが文字化けしてます。
Unicode ベースのページや、XML を返すサーバで無い限りは、
responseText に頼らない方が無難です。文字コードを調べた上で、
responseBody から返されるバイナリを、ADODB.Streamなどで、
明示的に変換するようにしてみてください。
レスありがとうございます。
ダイレクト認証はBASIC認証のもっと強化してあるもの?みたいです。
ソースはネット上のものを丸写しに近い状況です。
言語は
content="text/html; charset=SHIFT_JIS"
となっているので、SHIFT_JISだと思います。
>responseBody から返されるバイナリを、ADODB.Streamなどで、
>明示的に変換するようにしてみてください。
とはどのようにすればよいのでしょうか。
>>とはどのようにすればよいのでしょうか。
調べてからの発言ですか？
ADODB.Streamが文字のエンコードを行うのはわかったのですが、
>明示的に変換
と言う意味がわからなくて。
> となっているので、SHIFT_JISだと思います。
であれば、StrConv を使うのがもっとも簡単でしょう。
>> 明示的に変換
> と言う意味がわからなくて。
ん? 明示変換の(日本語としての)意味ですか?
えぇと、XMLHTTP.responseText での出力だと、どの文字コードとして
扱われたのかが、わかりにくいですよね。
また、ADODB.Stream を使うにしても、自動認識モード(_autodetect)を
用いると、やはり結果が曖昧な物になります。
ですから、そうした物(自動判定)には頼らず、どの文字コードで変換するかを
はっきりと指定できる方法で変換した方が良いですよ……という意味です。
お返事が遅くなり申し訳ありません。
Debug.Print StrConv(oXmlHttp.responseBody, vbUnicode)
と言う形で、変換することが出来ました。
認証の事なのですが、XMLHTTPでソースを取得できるからといって、
アクション(データをＰＯＳＴしたりなど)は出来ないものなのですか?
よくわからないまま取りあえず、ソースを取得して解析を行おうと思いまして、XMLHTTPを使ってみました。認証についての躓きが無いため、
自動化を行ううえでは、非常に重要なのです。
セキュリティに問題があることはわかるのですが、
http//uesr:pass@aaa.htmlというアクセスの方法しか、自動化が
思いつかず、ＶＢＡではＩＥのオブジェクトしか細かいアクションが起こせないので、(ＩＥでは上記認証は使えません。)
困っています。
> アクション(データをＰＯＳＴしたりなど)は出来ないものなのですか?
できますよ。
Openメソッドの第一引数で、メソッドの指定(ややこしい表現…)ができますし、
HTTP Request Body の送信は、send メソッドの引数に、
・IStreamインターフェイスを実装したオブジェクト
・String型
・内部処理形式 String のVariant型
・内部処理形式 Byte配列 のVariant型
のいずれかを渡すことで行えます。
サーバによっては、追加の HTTP Request Header が必要になる事が
ありますが、これも setRequestHeader にて対応可能です。
http を使った平文での通信であれば、
http://hide.maruo.co.jp/software/inetspy.html
などを使えば、通信内容を簡単にチェックできますので、
どのような内容が送信されているのか、確認しておくと良いでしょう。
れすありがとうございます。
最初の説明のしかたが悪かったのだと思うのですが、
過去ログの
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200412/04120009.txtSub test3()
に近いのだと思います。で対象のサイトは、
最初にBASIC認証があり、そこを通ると、
ログインフォームのあるページが表示されます。
そこで名前とパスを入れると目的のページにたどり着けます。
つまり2重に認証があるのです。
ヘッダーにBASIC認証のログイン情報を含められると聞き、
下記のようにしたのですが、
Dim oXmlHttp As Object
Set oXmlHttp = CreateObject("MSXML2.XMLHTTP")
oXmlHttp.Open "get", "http://aaa/login.php", False, _
"myname", "mypass"
'oXmlHttp.send ("a=au&name=仮名&pass=xxxx")
Debug.Print StrConv(oXmlHttp.responseBody, vbUnicode)
End Sub
どうしてもログインフォームページのソースしか取得できません。
submitされていないようなのです。
フォームには
<input type="hidden" name="a" value="au">
<input class="itext" type="text" name="name" value=""
<input class="ipassword" type="password" name="pass"
<input class="isubmit" type="submit" name="" value="ログイン"
の4個の要素があります。
いろいろ調べて出来そうなのですが…
混乱しています。
ちなみにJavaScriptのサイトです。
よろしくお願いします。
> いろいろ調べて出来そうなのですが…
> 混乱しています。
混乱した状態で、話をすると、こじれるだけなので、
整理して話を進めましょう。慌てたところで進めても
百害あって一理ナシです。
返信が遅くなり申し訳ありません。
> oXmlHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
とすることにより、アクセスの上ログインも出来ました。
ところが、
その先のソースを見ると、
<FRAMESET cols="225,*" rows="*">
<FRAME SRC="./menu.php?ac=menu&ss=1234abcd" NAME="menu">
<FRAME SRC="./info.php?ac=work&ss=1234abcd" NAME='rc'>
</FRAMESET>
このようになっていました。
どうやらフレームのようなのですが、
リンクが ./menuと相対参照になっています。
この先のリンクのソースを得るためには、
どのようにセッションをつなげて行けばよいのでしょうか？
ためしに、ss=からさきを取得してhttpからXMLHTTP.openで、
指定しなおしてみましたが、
ログインエラーになってしまいます。
ss=から先はログインできないと取得できないので、
一連のセッションの間にアクセスをしてしまわないといけないようなのです。
ss=から先を切り出す事そのものはＭＩＤ関数などで、出来ているのですが、
その切り出すコマンドを途中に組み込んでいいのかもわからず、
(XMLHTTPでは無いので、一旦外れなければいけないのかと)
どうリンク先(フレーム先?)にアクセスすればよいかを教えていただけないでしょうか。
まだ解決はしていないのですが、一旦閉じさせていただきます。
どうもありがとうございました。
| ツイート |  |