[VBA] Inloggen op site voor webquery in Excel

[brid]

Hoop dat jullie me kunnen helpen.

Via een webquery in excel probeer ik een tabel van www.gpro.se op te halen.
Het probleem is alleen dat er moet worden ingelogd.

Ik ben nu eigenlijk op zoek naar een manier om via vba automatisch in te loggen.
Volgens mij is het gewoon een kwestie van de juiste parameters door geven aan de login.asp

Gelukkig is de source van het inlog scherm te zien

code:

<form method="post" action="Login.asp?Redirect=/AvailDrivers.asp">
    <table width="520" border="0" class="normal">
        <tr> 
            <td colspan="2" align="center">
                <b>
                To access the site you have to login first
                </b><br><br>
            </td>
        </tr>
        <tr>
            <td width="40%" align="right">Login:</td>
            <td width="60%">
                <input type="text" name="textLogin" value="" class="normal">
               </td>
           </tr>
        <tr>
            <td align="right">Password:</td>
            <td><input type="password" name="textPassword" class="normal"></td>
            </tr>
            <tr>
            <td></td>
            <td><input type="submit" name="Logon" value="Login" class="normal"></td>
        </tr>
           <tr>
            <td></td>
            <td><br><a href="LostPassword.asp">Lost Password?</a></td>
            </tr>
            <tr> 
            <td colspan="2" align="center">
            </td>
            </tr>
    </table>
</form>

Nou ben ik zelf niet zo bekend met het doorzetten van parameters, maar volgens mij moet het zo iets als dit zijn:

code:

http://www.gpro.se/Login.asp?Redirect=/AvailDrivers.asp&textlogin=[b]UserName[/b]&textpassword=[b]Wachtwoord[/b]1&logon=login

Of maak ik ergens een grote denk fout?

[RobIII]

Je maakt een denkfout
Er een post gedaan en geen get. Nu kan het zijn dat er met request("foo") wordt gewerkt i.p.v. request.querystring("foo") vs request.form("foo"). In dat geval kom je er misschien nog mee weg, maar klaarblijkelijk is dat dus niet het geval
Je zou met een XMLHTTP request object misschien eens een post kunnen proberen? (Ja, die kun je ook in Excel maken en gebruiken)

[NMe]

Waar hoort mijn topic?

PRG>>OFF

[brid]

Hmmm is niet echt makkelijk.

Na wat zoeken gekomen tot de volgende code:

code:

Set objHTTP = CreateObject("Microsoft.XMLHTTP")
call objHTTP.Open("POST","http:/www.gpro.se/Login.asp",false)
call objHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
call objHTTP.send("textlogin=USER&textpassword=WW&logon=login")
strResult=objHTTP.responseText

Script gaat niet eens lopen, krijg de volgende error:
Untitled8.vbs(2, 1) (null): Unspecified error
Zodra ik dus wat doe met het object dan krijg ik een error, heb ook het object Msxml2.XMLHTTP geprobeerd, maarzelfde resultaat

[Verwijderd]

code:

CreateObject("MSXML2.XMLHTTP")

je kan ook een verwijzing naar de microsoft xml bibliotheek toevoegen, dat werkt wat comfortabeler.

[brid]

Ben alweer een stapje verder.....was een / vergeten in het webadres
Alleen stuur ik dus blijkbaar nog steeds niet de juiste gegevens mee....iemand een idee waar de fout zit?

[Verwijderd]

de gegevens lijken mij correct (tenminste bij correcte vervanging van USER & WW door de reële, maar dat zal je wel goed doen veronderstel ik), maar na de inlogactie moet je testen op readystate 4 (en best ook een maximum timeout inbouwen) voordat je verder gaat met de responsetext op te vragen of een andere actie.

[RobIII]

code:

call objHTTP.send("textlogin=USER&textpassword=WW&logon=login")

code:

<input type="submit" name="Logon" value="Login" class="normal">

Hééél misschien controleren ze case-sensitive de "Logon" value (resp. login en Login in bovenstaande quotes)

[brid]

Nog een ,inderdaad case sensetive

Kan merken dat het echt 6 jaar geleden is dat ik iets met websites....

Als ik tijd heb eens kijken of dit voldoende is om de webquery wil gaan werken

[ Voor 26% gewijzigd door brid op 02-10-2007 14:33 ]