有各式各样的理由需要经常变更代理服务器,在查到代理服务器的地址清单后,知道怎么修改注册表就行了。
Sub sModifyProxy
Dim Key, Value, ValueName
Set Key = Storages.Registry("\Software\Microsoft\Windows\CurrentVersion\InternetSettings", HKEY_CURRENT_USER)
ValueName ="ProxyEnable"
Value = 1
Call Key.SetOption(ValueName,Value)
ValueName ="ProxyServer"
Value ="24.25.26.82:80"
Call Key.SetOption(ValueName, Value)
End Sub
得,该睡觉了,能抄是福。