Winsock控件如何使用代理向别的网站POST数据

Question

WebBrowser又如何使用http代理打开网页呢
程序如何写呢,有没有参考的资料呀,请指点,谢谢.

Answer 1

WebBrowser 修改出册表Option ExplicitPublic 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 TypePublic 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'改代码定义了三个常数和一个结构，该API函数的具体用法请大家查询MSDN。VB修改注册表的办法就太多了，我就不多说了。在WebBrowser1_DocumentComplete事件中在添加一个条件语句，用以判断是否是IP被封的提示页面，代码如下：If InStr(doc.body.innerText, "IP地址在这一段时间内已经注册了太多的用户") > 0 Then
    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=% ... C&bgp_enable=on"
End If
  
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) 
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

Answer 2

Winsock控件如何使用代理向别的网站POST数据呢?