手把手教你TestComplete_修改代理服务器

有各式各样的理由需要经常变更代理服务器，在查到代理服务器的地址清单后，知道怎么修改注册表就行了。

 

 

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

 

 

得，该睡觉了，能抄是福。