Netzero Auto Logon+

[Onoitsu2]

I was bored, and wanted to make an auto logon script for NetZero, and well here it is... pretty plain, but very functional. You need to have your password already stored. I put this in my QuickTray and use it to connect and disconnect.

Inetsignon.au3

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:        Onoitsu2 <onoitsu2@yahoo.com>
;
; Script Function:
;   Automatically logon to NetZero (only if password is stored),
;   Hide the NetZero bar, and close the browser window that loads
;   with my.netzero.com
;   AND
;   If NetZero is running it will immediatly disconnect
;
;   Works on all NetZero install locations, as it reads the registry for
;   INSTALLDIR, then runs it, also can be used to see if NetZero is installed
;   at all.
;
; ----------------------------------------------------------------------------

Opt("WinTitleMatchMode",4)
If ProcessExists("exec.exe") Then
$iMsgBoxAnswer = MsgBox(266244,"Sign Off NetZero?","Sign Off NetZero??")
Select
   Case $iMsgBoxAnswer = 6;Yes
    $pos = MouseGetPos()
    ProcessClose("exec.exe")
    Sleep(5000)
    ProcessClose("exec.exe")
    Sleep(1000)
    MouseMove(700,755,0)
    MouseMove(@DesktopWidth,755,10)
    Sleep(500)
    MouseMove($pos[0],$pos[1],0)
   Case $iMsgBoxAnswer = 7;No
    Exit
EndSelect
Else
    $regloc = RegRead("HKLM\Software\NetZero, Inc.\NetZero","INSTALLDIR")
    If $regloc = "" AND NOT (@error = 0) Then
        MsgBox(266244,"NetZero Not Installed","Unable to Locate the Registry Entry for NetZero"&@CRLF&"This can mean that it is not installed, or installation has been corrupted."&@CRLF&"NetZero Auto Logon will not exit...")
        Exit 1
    EndIf
    Run($regloc&"\exec.exe")
    WinWait("Login to NetZero","",60)
    WinActivate("Login To NetZero")
    Sleep(1000)
    Send("{enter}")
    WinWait("NZTV","",60)
    If NOT WinWaitClose("NZTV","",60) Then
        WinActivate("NZTV")
        Send("{tab}{enter}")
        MsgBox(0,"An Error Occurred During Connection!","An Error Occurred During Connection!"&@CRLF&"Auto Logon App Shutting Down...")
        Exit
    EndIf
;~  WinSetState("NetZero","",@SW_MINIMIZE)
    WinWaitActive("NetZero","",60)
    WinSetState("NetZero","",@SW_HIDE)
    WinWait("http://my.netzero.net","",60)
    WinClose("http://my.netzero.net","")
    Exit
EndIf

Laterzzz,

Onoitsu2

[Valuater]

NetZero Auto Logon will not exit...")

?????

8)

[ConsultingJoe]

You do know that you can use rasdial.exe

I love it!!!

[Onoitsu2]

You do know that you can use rasdial.exe

I love it!!!

NetZero will not let you connect like that with the rasdial program, you have to have their zerobar running, as it communicates with the server, I have tried every variation of it, and you will stay connected for like 1 minute, then they see you are not using their software, as they are not getting responses from it.

Once you are connected you can run taskkill /f /im exec.exe

this completely kills it, but leaves you connected still, only problem is disconnecting is a challenge lol

Laterzzz,

Onoitsu2