![]() |
#2
vbvcr512013-12-08 14:43
|

Function SetProxy(ProxyIP As String) As Integer
Dim options As INTERNET_PROXY_INFO
options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
options.lpszProxy = ProxyIP
options.lpszProxyBypass = ""
SetProxy = InternetSetOption(0, INTERNET_OPTION_PROXY, options, LenB(options)) '返回0或1
End Function
找了好多相关的函数也没有什么头绪!

