1,453
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
azhilee 2006-01-10
- 打赏
- 举报
楼上高手,好像帮不忙~
这是VB的问题.你说的是WEB中用的吧
对不起,我不知道怎么用
这是VB的问题.你说的是WEB中用的吧
对不起,我不知道怎么用
蒋晟 2006-01-07
- 打赏
- 举报
http://msdn.microsoft.com/workshop/networking/moniker/reference/functions/urlmksetsessionoption.asp
azhilee 2006-01-05
- 打赏
- 举报
顶
feiyun0112 2005-11-10
- 打赏
- 举报
我使用一个API函数internetsetoption，使用之前要添加一个模块，然后加入如下代码：
Public Const internet_option_proxy = 38
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_OPTION_SETTINGS_CHANGED = 39
Type INTERNET_PROXY_INFO
dwAccessType As Long
lpszProxy As String
lpszProxyBypass As String
End Type
Public Declare Function internetsetoption Lib "wininet.dll" _
Alias "InternetSetOptionA" _
(ByVal hinternet As Long, _
ByVal dwoption As Long, _
ByRef lpbuffer As Any, _
ByVal dwbufferlength As Long) As Long
代码如下：
Dim options As INTERNET_PROXY_INFO
options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
options.lpszProxy = "168.10.46.77:80"
options.lpszProxyBypass = ""
internetsetoption 0, internet_option_proxy, options, LenB(options)
Dim don As Double
Dim doff As Double
Set reg = CreateObject("Wscript.Shell")
a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", _
"211.144.96.250:80")
a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", _
1)
internetsetoption 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0
WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"
至此代理服务器的修改也完成了。
Public Const internet_option_proxy = 38
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_OPTION_SETTINGS_CHANGED = 39
Type INTERNET_PROXY_INFO
dwAccessType As Long
lpszProxy As String
lpszProxyBypass As String
End Type
Public Declare Function internetsetoption Lib "wininet.dll" _
Alias "InternetSetOptionA" _
(ByVal hinternet As Long, _
ByVal dwoption As Long, _
ByRef lpbuffer As Any, _
ByVal dwbufferlength As Long) As Long
代码如下：
Dim options As INTERNET_PROXY_INFO
options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
options.lpszProxy = "168.10.46.77:80"
options.lpszProxyBypass = ""
internetsetoption 0, internet_option_proxy, options, LenB(options)
Dim don As Double
Dim doff As Double
Set reg = CreateObject("Wscript.Shell")
a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", _
"211.144.96.250:80")
a = reg.regwrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", _
1)
internetsetoption 0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0
WebBrowser1.Navigate "http://freemail.eyou.com/signup.html?bgp=%CE%D2%BD%D3%CA%DC&bgp_enable=on"
至此代理服务器的修改也完成了。
azhilee 2005-11-10
- 打赏
- 举报
顶
azhilee 2005-11-10
- 打赏
- 举报
这样是改IE的代理的。这样行吗？
