******************************************************************************* '腳本說明:使用本腳本可以設置代理為localhost:8080,關閉瀏覽器后自動取消代理設置。 '創 建 人:wyingquan at hotmail dot com '創建時間:2004-11-24 星期三 '******************************************************************************* |
保存當前設置 Set reg=WScript.CreateObject("WScript.Shell") 設置瀏覽器使用代理,服務器名localhost,端口號8080 reg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable",1,"REG_DWORD" reg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer","localhost:8080","REG_SZ" reg.regwrite "HKLM\SYSTEM\ControlSet001\Hardware Profiles\Current\Software\Microsoft\windows\CurrentVersion\Internet Settings",1,"REG_DWORD" reg.regwrite "HKLM\SYSTEM\ControlSet001\Hardware Profiles\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings",1,"REG_DWORD" reg.regwrite "HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings\ProxyEnable",1,"REG_DWORD" reg.regwrite "HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\Current\Software\Microsoft\windows\CurrentVersion\Internet Settings\ProxyEnable",1,"REG_DWORD" 獲取瀏覽器執行文件的位置 RunMe=reg.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE\") 等待用戶輸入要打開的頁面 sUrl=InputBox("請輸入要打開的URL地址或者取消直接在瀏覽器地址欄中打開:","VBS For Jmeter","http://") 打開測試頁面 Set oExec=Reg.Exec(RunMe & " " & sUrl) 一直等待關閉瀏覽器為止才繼續運行腳本 Do While oExec.Status = 0 WScript.Sleep 100 Loop 撤銷代理服務設置 reg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable",ProxyEnable,"REG_DWORD" reg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer",ProxyServer,"REG_SZ" reg.regwrite "HKLM\SYSTEM\ControlSet001\Hardware Profiles\Current\Software\Microsoft\windows\CurrentVersion\Internet Settings",0,"REG_DWORD" reg.regwrite "HKLM\SYSTEM\ControlSet001\Hardware Profiles\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings",0,"REG_DWORD" reg.regwrite "HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\0001\Software\Microsoft\windows\CurrentVersion\Internet Settings\ProxyEnable",0,"REG_DWORD" reg.regwrite "HKLM\SYSTEM\CurrentControlSet\Hardware Profiles\Current\Software\Microsoft\windows\CurrentVersion\Internet Settings\ProxyEnable",0,"REG_DWORD" Set reg=nothing MsgBox "OK",,"VBS For Jmeter" |
原文轉自:http://www.anti-gravitydesign.com