Database Search

TechHome

• Browser History
• Change Title Enmasse of HTML Pages
• Controlling Web Browsers
• Determine what Browser is Installed
• Downloading a Document
• File Copy Via Browser
• Getting the URL of the Displayed Page
• Grabbing Data from a www Java - ActiveX Window
• How to Mimic Users on Web Pages
• IE Proxy Set
• Launch Browser with URL
• Netscape and DDEExecute
• Netscape Command Line Parameters
• Netscape PREFS.JS file
• Obtaining HTML Page Information
• Opening an HTM File with an Anchor
• Prestaging Webpage for Human Interaction
• Proxy Setting of Web Browsers
• Reading CF_HTML Format from Clipboard
• Run WB EXE when User Clicks on Netscape Link
• Running EXEs from Web Servers
• Wait for a Web Page to Load

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

IE Proxy Set

Keywords:    IE Proxy Set

; Initialise variables and logs
Time = Timedate( )
ErrorMode(@off)
TempPath = Environment("TEMP")
Log = StrCat(TempPath, "\IEProxySet.log")
LogFile = FileOpen(Log, "WRITE")
FileWrite(LogFile, "************************************************************************************")
FileWrite(LogFile, "Starting IEProxySet at %Time%")
FileClose(LogFile)
IntControl( 38, 1, Log, 0, 0)
HKCC= @REGCLASSES + 5

:Start
ChoiceFormat=`WWWDLGED,5.0`

ChoiceCaption=`IE Proxy Configuration`
ChoiceX=224
ChoiceY=194
ChoiceWidth=165
ChoiceHeight=103
ChoiceNumControls=6

Choice01=`10,26,144,DEFAULT,PUSHBUTTON,DEFAULT,"Connected to the corporate network",1`
Choice02=`10,44,144,DEFAULT,PUSHBUTTON,DEFAULT,"Connected to an external Internet provider",2`
Choice03=`10,60,144,DEFAULT,PUSHBUTTON,DEFAULT,"Launch Internet Explorer",3`
Choice04=`32,80,98,DEFAULT,PUSHBUTTON,DEFAULT,"Exit",0`
Choice05=`12,6,80,DEFAULT,STATICTEXT,DEFAULT,"Please choose your configuration "`
Choice06=`92,6,64,DEFAULT,STATICTEXT,DEFAULT,"for Internet Explorer:"`

ButtonPushed=Dialog("Choice")

If ButtonPushed == 0 then Goto Out
If ButtonPushed == 1 then Goto ProxyOn
If ButtonPushed == 2 then Goto ProxyOff
If ButtonPushed == 3 then Goto LaunchIE

:ProxyOn
; turn proxy settings on
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyEnable]", "1")
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
; change this to reflect your proxy server/port address
RegSetValue(regkey, "[ProxyServer]", "10.12.0.21:8080")  
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
; change this to reflect your exclusions
RegSetValue(regkey, "[ProxyOverride]", "10.*;127.0.0.1;") 
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCURRENT, "Software\Microsoft\Internet Explorer\Main")
; use this to force a default home page
RegSetValue(regkey, "[Start Page]", "http://intranet/intranet.html")
RegCloseKey(regkey)
regkey = RegOpenKey(HKCC, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyEnable]", "1")
RegCloseKey(regkey)
Message("IEProxySet", "Internet Explorer configured for corporate network.")
Goto Start

:ProxyOff
; turn proxy settings off
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyEnable]", "0")
RegCloseKey(regkey)
; clear proxy server
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyServer]", "")
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
; clear exclusions
RegSetValue(regkey, "[ProxyOverride]", "")
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCURRENT, "Software\Microsoft\Internet Explorer\Main")
; use this to force a default home page
RegSetValue(regkey, "[Start Page]", "http://www.winbatch.com/")
RegCloseKey(regkey)
regkey = RegOpenKey(HKCC, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyEnable]", "0")
RegCloseKey(regkey)
Message("ConfigNET", "Explorateur Internet configuré pour accès externe.")
Goto Debut

:LaunchIE
RunZoom("iexplore.exe", "")

:Out
exit

Article ID:   W15343

File Created: 2002:09:05:13:51:24

Last Updated: 2002:09:05:13:51:24