Anonymous-Proxy.vb

C:\Program Files\Notepad++\Anonymous-Proxy.vb <job> <script language="VBScript"> Option Explicit Dim valUserIn Dim objShell, RegLocate, RegLocate1 Set objShell = WScript.CreateObject("WScript.Shell") On Error Resume Next valUserIn = MsgBox("Use A Cloaked Proxy?",4,"Cloaked Select") If valUserIn=vbYes Then RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer" objShell.RegWrite RegLocate,"http://www.youareanonymous.com:80","REG_SZ" RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable" objShell.RegWrite RegLocate,"1","REG_DWORD" MsgBox "Cloaked Proxy is Enabled" else RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer" objShell.RegWrite RegLocate,"0.0.0.0:80","REG_SZ" RegLocate = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable" objShell.RegWrite RegLocate,"0","REG_DWORD" MsgBox "Cloaked Proxy is Disabled" End If WScript.Quit </script> </job>