Internet Browser Disabler

[JustinReno]

After seeing Swift's script (IEDisabler?), I thought that it just wasn't easy enough to add new web browsers efficently. So, I made a much simpler one using arrays.

expandcollapse popup

HotKeySet("`", "_Start")
HotKeySet("~", "_Stop")

$GetDefaultBrowser = RegRead("HKCR\HTTP\Shell\Open\Command", "")
$GetLastSection = StringSplit($GetDefaultBrowser, "\")
$GetProcessName = StringSplit($GetLastSection[$GetLastSection[0]], """")

Global $InternetProcesses[3] = ["iexplore.exe", "firefox.exe", $GetProcessName[1]], $Started, $Start, $Password

If RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "InternetDisabler") = 1 Then
    $Password = FileRead(@WindowsDir&"\InternetDisabler.txt")
    $Started = 1
    FileDelete(@WindowsDir&"\InternetDisabler.txt")
    RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "InternetDisabler")
EndIf

While 1
    Sleep(10)
    If ProcessExists("TaskMgr.exe") Then ProcessClose("TaskMgr.exe")
    If $Started = 1 Then
        For $I = 0 To UBound($InternetProcesses) - 1
            If ProcessExists($InternetProcesses[$I]) Then 
                ProcessClose($InternetProcesses[$I])
                MsgBox(16, $InternetProcesses[$I], "Internet has been disabled on your user account", 3)
            EndIf
        Next
    EndIf
WEnd

Func _Start()
    If $Start = 0 Then  $Password = InputBox("Internet Disabler", "Please enter a password:", "", "*")
    $Started = 1
    $Start = 1
EndFunc

Func _Stop()
    $AskForPassword = InputBox("Internet Disabler", "Please enter your password:", "", "*")
    If $AskForPassword = $Password Then Exit
    If $AskForPassword <> $Password Then MsgBox(16, "Internet Disabler", "Incorrect.")
EndFunc

Func OnAutoItExit()
    If $Started = 1 Then
        If @Compiled = 0 Then RegWrite("HKEY_LOCAL_MACHINE\Softare\Microsoft\Windows\CurrentVersion\Run", "InternetDisabler", "REG_SZ", @AutoItExe & " " & @ScriptFullPath)
        If @Compiled = 1 Then RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "InternetDisabler", "REG_SZ", @ScriptFullPath)
        FileWrite(@WindowsDir&"\InternetDisabler.txt", $Password)
    EndIf
EndFunc

PS: Don't give me crap for this being just another "Justin" script. (You all know what I mean.)

Edited March 1, 2008 by JustinReno

[James]

Not bad, but you should add more popular browsers or even better disable the connection whenever it is connected!

[Nutster]

Func OnAutoItExit()
    If @exitMethod = 0 Or 1 Or 2 Or 3 Or 4 And $Started = 1 Then
        If @Compiled = 0 Then RegWrite("HKEY_LOCAL_MACHINE\Softare\Microsoft\Windows\CurrentVersion\Run", "InternetDisabler", "REG_SZ", @AutoItExe & " " & @ScriptFullPath)
        If @Compiled = 1 Then RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "InternetDisabler", "REG_SZ", @ScriptFullPath)
        FileWrite(@WindowsDir&"\InternetDisabler.txt", $Password)
    EndIf
EndFunc

What you wrote looked like several comparisons with numeric values. When Or gets a number, it interprets it as False if it is 0 and True for any other number. What you wrote would always return True.

[GEOSoft]

You also might want to take a look at reading the registry to get the default browser then close that process

HKCR\http\shell\open\command

[LIMITER]

You could encrypt the password ... (for more safety )

[JustinReno]

Cool, thanks for all of the feedback, its awesome!

I'll look into everything you all said, thanks!

[JustinReno]

Updated!