解决使用代理软件之后开机浏览器无法网页问题- 编程源码 -卓越飞翔博客

有时候使用代理软件之后，代理软件会修改浏览器设置。我用VBS写了个脚本，自动重置一哈IE设置，就可以正常访问网页了。

Dim appTitle, strSystemLocale
strSystemLocale = GetSystemLocale()
 
If  StrComp(strSystemLocale, "zh-cn", 1) = 0 Then
  appTitle = "重置 Internet Explorer 设置"  '中文版IE
ElseIf StrComp(strSystemLocale, "en-us", 1) = 0 then
  appTitle = "Reset Internet Explorer Settings"  '英文版IE
End If
 
Set objAP = CreateObject("wscript.shell")
objAP.Run "rundll32.exe inetcpl.cpl ResetIEtoDefaults"
wscript.sleep 1000 
objAP.AppActivate (appTitle)
objAP.SendKeys "%p", True
WScript.Sleep 1000
objAP.SendKeys "%r", True  '发送ALT + R 按键
wscript.sleep 1000
WScript.Quit
 
 '获得系统语言版本
Function GetSystemLocale()
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!//./root/cimv2")
Set OSInfo = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each item In OSInfo  'English version(en-us)
    GetSystemLocale = item.MUILanguages(0)
Next
End Function

相关推荐