tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 自動ログイン、データ取得
投稿日: 2010/04/15(Thu) 19:50
投稿者nobu
VB6 SP6 WinXp です。
以前にWebページへの自動ログインの質問をした事があります。
今回は下記のコードで自動ログインは出来るのですが、その次のページの
内容の取得が出来ないでいます。ご指導頂ければ幸いです。

最初のページへの自動ログイン

    Dim objXMLHTTP As Object
    
    Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
    
    If Dir(strPath & "Search.txt") <> "" Then
        Kill strPath & "Search.txt"
    End If
    
    PassWords = "##"
    SearchCalls = "%%%"
    objXMLHTTP.open "POST", "hhttps://www.*****/***.cgi", False
    objXMLHTTP.Send "UNAME=" & SearchCalls & "&UPASSWD=" & PassWords & "&Submit%21=SEND"    
    If objXMLHTTP.Status >= 400 Then
        'エラー
        MsgBox objXMLHTTP.StatusText, vbExclamation, "応答コード: " & CStr(objXMLHTTP.Status)
        Set objXMLHTTP = Nothing
        Exit Sub
    End If

    With CreateObject("ADODB.Stream")
        .open
        .Type = 1   '1=adTypeBinary
        .Write objXMLHTTP.responseBody
        .SaveToFile strPath & "Search.txt", 2  '2=adSaveCreateOverWrite
        .Close
    End With


次のWebページの内容の抜粋

              <form name="LGIN" onSubmit="return sendData()" action="./srchrslt.php" method="post">
                <table width="660" border="0" cellspacing="0" cellpadding="0" align="center">
                  <tr>
                    <td>
                      コール:<input type="text" name="UNAME" maxlength="255" size="30" style="ime-mode:disabled">
                    </td>
                  </tr>
                  <tr>
                    <td>
                      <hr>
                    </td>
                  </tr>
                  <tr>
                    <td>
                      <input type="hidden" name="WKCALLSIGN" value="+++x" readonly>
                      <input type="submit" name="SEND" value=" 検 索 ">
                        
                      <input type="reset" name="RESET" value="記入内容クリア">

古いスレッドにレスはつけられません。