Onoitsu2 Posted May 9, 2006 Posted May 9, 2006 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 Things I have made:[font="Trebuchet Ms"]_CheckTimeBlock UDF(LT)MOH Call Ignore List (MOH = Modem On Hold)[/font]
ConsultingJoe Posted May 9, 2006 Posted May 9, 2006 You do know that you can use rasdial.exe I love it!!! Check out ConsultingJoe.com
Onoitsu2 Posted May 9, 2006 Author Posted May 9, 2006 You do know that you can use rasdial.exeI 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.exethis completely kills it, but leaves you connected still, only problem is disconnecting is a challenge lolLaterzzz,Onoitsu2 Things I have made:[font="Trebuchet Ms"]_CheckTimeBlock UDF(LT)MOH Call Ignore List (MOH = Modem On Hold)[/font]
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now