Dukes Mangola
Regular
- Messages
- 170
- Location
- NA
The Bangaloreindia page doesn't open for me when I use TJS's script, sid. Good work, TJS! Appreciated very much.
strMessage = "1. Logout (l)" & vbcrlf & _"2. Your Profile / Session Details (d)" & vbcrlf & _"3. Renew Account (r)" & vbcrlf & _"4. Change Password (p)" & vbcrlf & _"5. Help (h)" & vbcrlf Response = InputBox(strMessage, "BBClient Script By TJS")Set objExplorer = WScript.CreateObject("InternetExplorer.Application")Select Case ResponseCase "l" objExplorer.Navigate "http://210.210.4.72:81/logoutconfirm.php" objExplorer.Visible = 1 Case "d"userid = FindUserID()If IsNull(userid) Then userid = InputBox("Enter UserId:", "Check Session Details")End IfobjExplorer.Navigate "http://202.144.65.70:8090/bbandnew/cusdetails.php3?userid=" & userid objExplorer.Visible = 1 Case "r"objExplorer.Navigate "http://210.210.4.72:81/bbandnew/displaydetails.php" objExplorer.Visible = 1 Case "p"objExplorer.Navigate "http://login.sify.com/login.php?sid=mail&sn=sm&rurl=http%3A%2F%2Flogin.sify.com%2Fchangepwd.php%3Fsn%3D%26rurl%3D" objExplorer.Visible = 1 Case "h"objExplorer.Navigate "http://210.210.4.72:81/bbandnew/help.html" objExplorer.Visible = 1 End Select Function FindUserID()Const HKEY_CURRENT_USER = &H80000001strComputer = "."Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Sify\Broadband"strValueName = "Userid"oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValueFindUserID = strValueEnd Function
objExplorer.Navigate "http://202.144.65.70:8090/bbandnew/cusdetails.php3?userid=" & userid objExplorer.Visible = 1
Set objShell = CreateObject("WScript.Shell")OperaPath = chr(34) & "C:\Program Files\Opera\Opera.exe" & chr(34)DetailsURL = "http://202.144.65.70:8090/bbandnew/cusdetails.php3?userid=" & useridasdURL = OperaPath & " " & DetailsURL objShell.Run asdURL
StartProg "C:\Program Files\Mozilla Firefox\firefox.exe"
$i = 0While $i = 0$size = InetGetSize("http://broadband.sify.com/bb_security.html")If $size = 0 Then$var1 = RegRead("HKEY_CURRENT_USER\Software\Sify\Broadband", "Auto") If $var1 = 0 Then RegWrite("HKEY_CURRENT_USER\Software\Sify\Broadband", "Auto", "REG_DWORD", "1") $var2 = 1 Else $var2 = 0 EndIfSleep(100) Run("C:\Scripts\KillSBC 2.exe")ProcessWait("BBImpSec.exe", 60) If $var2 = 1 Then RegWrite("HKEY_CURRENT_USER\Software\Sify\Broadband", "Auto", "REG_DWORD", "0") EndIf If ProcessExists("troubleshoot.exe") Then ProcessClose("troubleshoot.exe") EndIfEndIfSleep(10000)WEnd