Hi Craigg
New to this site, i cant connect to your site, do i need a specific version of java?

hi
thats quite a neat little prog, could you knock me one out using :
cachepilot (insted of ip) port 8000
many thanks
Mark
That would be no problem at all will post your file on here shortly![]()
That would be much appreciated fella
Mark
Hi Josh,
Did you ever post me that file to switch between home school proxy only i cant ever remember getting it !! It may just be me getting old, anyway have a good christmas fella.
Mark
are you able to change the Proxy address for the app?
hi i like you little proxy on off application, is there any chance of having a custom made version for our school i dont know if it is possible for 2 differant versions. one for staff laptops and one for school student laptops. my email is chriscook55@freenet.com or facebook me on the same email address. thanks for your help
Chris Cook
foxy proxy as above for firefox
proxy changer might be worth a shot
Proxy Changer Free Internet Explorer Proxy Changer
i created a .vbs that we set on startup of all the laptops that ask are you at school, if they are it added in the proxy and enables it, if there not then it disables it. all that needs to be edited is <<proxyservername>> and <<portaddress>>
Const HKEY_CURRENT_USER = &H80000001
Dim objShell2
Set objShell2 = WScript.CreateObject("WScript.Shell")
'objShell2.RegWrite RegLocate,"0","REG_DWORD"
objShell2.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\Curr entVersion\Internet Settings\ProxyServer","<<Proxyservername>>:<<Porta ddress>>","REG_SZ"
intmsg = msgbox("Are you at School?",vbYesNo+vbQuestion,"Changing Proxy Settings")
if intmsg = vbyes then dwvalue = 1 else dwvalue = 0
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Interne t Settings"
strValueName = "ProxyEnable"
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
msgtxt = "The Proxy Server Has Been "
if dwvalue = 0 then msgtxt = msgtxt & "Disabled"
if dwvalue = 1 then msgtxt = msgtxt & "Enabled"
intmsg = msgbox(msgtxt,vbOKOnly+vbInfo,"Done")
Set oShell = WScript.CreateObject("WScript.Shell")
strComputer = "."
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & strComputer & "\root\CimV2")
Set colItems = oWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IpEnabled = True")
'wscript.echo colitems.count
For Each objItem in colItems
If Not IsNull(objItem.DefaultIpGateway) Then
ip = join(objItem.IpAddress)
iparray = split(ip,".")
else
'wscript.echo "no ip for " & objItem.caption
End If
Next
will get your current IP, then you can automatically tell if you're on the school network (assuming you're on something unique-ish.
There are currently 1 users browsing this thread. (0 members and 1 guests)