Logging in via https?

[Bkid]

So I've just started using AutoIt, and it's kind of confusing..

Basically, I want to make a script that logs into a website, but the website sends the login info via https. That being said, I'm assuming regular winhttp isn't going to do the trick.

Now, should I try WinINet as an alternative? The WinINet thread (here) mentioned https in the title, but I wasn't sure how to go about using it..

I know this might sound like something big to start off on, but I enjoy a challenge.

Also, I hope it's not something obvious. It's now 6am so I might have missed something obvious. :/

Edited June 25, 2009 by Bkid

[Juvigy]

Check out the IE functions

[10031992]

I also need this

[Bkid]

From what I've heard, IE Functions are slow. Isn't there any alternative in autoit?

[ProgAndy]

WinHTTP does support HTTPS, but it is not trivial: MSDN

[Bkid]

Oh wow yeah.. It looks like you have to go though a bit more, but as long as it works then I'm willing to do it.

[DaleHohm]

From what I've heard, IE Functions are slow. Isn't there any alternative in autoit?

Balderdash! Hearsay! Unfounded drivel!

That said , browser creation can be considered slow but once that is accomplished things work quite fast. If you don't need client-side processing, a content layout engine, authentication, CSS etc. that are features of a browser then by all means use low level functions like INetGet or direct TCP/IP calls for data. There are many benifits to having access to the browser and browser DOM for other functions.

The IE functions work the same for https as they do for http. There are literally thousands of examples in the forum as well as the helpfile. Try Search.

Dale

Edit: typo

Edited June 25, 2009 by DaleHohm

[Bkid]

I'll think about it.

In the meantime I'll still keep considering the alternatives.

[Authenticity]

expandcollapse popup

#include <HTTP.au3>

Dim $Sock
Dim $sHost, $sPage, $sData, $sSrc
Dim $sUsername, $sPassword

$sUsername = 'MyUserName'
$sPassword = 'MyPassWord'

$sHost = 'www.autoitscript.com'
$sPage = '/forum/index.php?act=Login&CODE=01'
$sData = 'referer=http%3A%2F%2Fwww.autoitscript.com%2Fforum%2Findex.php%3Fact%3DLogin%26CODE%3D00&UserName=' & _
        _EncodeURL($sUsername) & '&PassWord=' & _EncodeURL($sPassword) & '&CookieDate=1'

$Sock = _HTTPConnect($sHost)
_HTTPPost($sHost, $sPage, $Sock, $sData)
$sSrc = _HTTPRead($Sock)

If StringInStr($sSrc, 'attention') Then
    MsgBox(0x10, 'Attention!', 'The user or password or both are not correct')
Else
    Local $aWelcome = StringRegExp($sSrc, '(?i)<p>You are now logged in as: (.*?)<br\s*/>', 1)
    If IsArray($aWelcome) Then
        MsgBox(0x40, 'Welcome', 'You are now logged in as: ' & $aWelcome[0] & @CRLF & 'Please wait while we transfer you...')
    Else
        MsgBox(0x40, 'Welcome', ':)')
    EndIf
EndIf

_HTTPClose($Sock)
Exit

Func _EncodeURL($sString)
    Local $sStr = ''
    Local $sChr
    
    For $i = 1 To StringLen($sString)
        $sChr = StringMid($sString, $i, 1)
        If StringRegExp($sChr, '[\w*@-]') Then
            $sStr &= $sChr
        Else
            $sStr &= StringFormat('%%%02X', Asc($sChr))
        EndIf
    Next
    Return $sStr
EndFunc