pcl_test

bat 设置代理

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v "ProxyEnable" /t REG_DWORD /d "1" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v "ProxyServer" /t REG_SZ /d "192.168.1.222:8080" /f
复制代码

vbs 设置代理

On Error Resume Next 
Const HKEY_CURRENT_USER = &H80000001 
strComputer = "." 
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" 
strEntryName = "ProxyEnable" 
dwvalue = "1" 
objReg.SetDwordValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue 

strEntryName = "ProxyServer" 
dwvalue = "192.168.1.222:8080"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue 
msgbox "设置代理完成！"
复制代码

pcl_test

    Set oXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    oXMLHTTP.SetProxy 2, "192.168.1.222:8080"
复制代码

或者使用proxycfg命令进行设置