帮我写一个VB源码，自动使用socks5代理后打开一个网页。

平凡的真的不能用,楼主的代理也可以用呀,只有第二个不能用,我发个能用的,代码如下:

Private Const INTERNET_OPTION_PROXY = 38
Private Const INTERNET_OPEN_TYPE_PROXY = 3
Private Type INTERNET_PROXY_INFO
    dwAccessType    As Long
    lpszProxy    As String
    lpszProxyBypass As String
End Type
Private 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

Function SetProxy()
    Dim options As INTERNET_PROXY_INFO
    options.dwAccessType = INTERNET_OPEN_TYPE_PROXY
    options.lpszProxy = SOCKS= & Combo1.Text '127.0.0.1:9050
    options.lpszProxyBypass =
    internetsetoption 0, INTERNET_OPTION_PROXY, options, LenB(options)
End Function
Private Sub Command1_Click()
SetProxy
WebBrowser1.Navigate Text1.Text
End Sub