Got a speedycard?

[ConsultingJoe]

#include <IE.au3>
$login  = "Your Email"
$pin    = "Your Pin"
ConsoleWrite(getspeedypoints( $login, $pin ))
Func getspeedypoints( $login, $pin )
    $ie = _IECreate( "http://www.speedway.com/Default.aspx", 0, 1 )
    _IEImgClick( $ie, "StarLogout.gif" )
    $form = _IEFormGetObjByName( $ie, "TemplateForm" )
    $ielogin = _IEFormElementGetObjByName( $form, "Login:LoginControl_txtEmail" )
    $iepin = _IEFormElementGetObjByName( $form, "Login:LoginControl_txtPIN" )
    _IEFormElementSetValue( $ielogin, $login )
    _IEFormElementSetValue( $iepin, $pin )
    _IEImgClick( $ie, "StarLogin.gif" )
    _IELoadWait( $ie )
    $pointsid = _IEGetObjById( $ie, "Login_lblPoints" )
    If @error then
        $return = -1
    Else
        $return = _IEPropertyGet($pointsid, "innertext")
    EndIf
    _IEQuit( $ie )
    Return $return
EndFunc

Edited September 20, 2007 by CyberZeroCool

[ConsultingJoe]

Updated if anyone cared