vb6のinetでプロキシを使用する方法は？

Question

私はvb6でプログラムを作っています。 私はvb6のinetを通してプロキシを使って接続したいと思っています。どのようにそれを？助けてください。

これは、プロキシパラメータを取ることができ、インターネット接続を開くために、多かれ少なかれ一般的な機能であるあなた

Answer 1

に感謝します。これは、プロキシの使用方法の良い例です。

Private Declare Function InternetOpen Lib "WinInet" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal lpAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal lpFlags As Long) As Long 

Public Function OpenInternet(ByVal sAppName As String, ByVal lAccessType As Long, ByVal sProxyName As String, _ 
    ByVal sProxyBypass As String, ByVal lFlags As Long) As Boolean 
    Dim Rtn As Long 
    Dim lngINetHandle As Long 
    Dim strHeaders As String 
    Dim lngDllErr As Long 

    On Error GoTo errOpenInternet 

    RaiseEvent Operation("Opening internet connection") 
    Rtn = InternetOpen(ByVal sAppName, ByVal lAccessType, ByVal sProxyName, ByVal sProxyBypass, ByVal lFlags) 

    If Rtn = 0 Then 'failed for some reason 
     lngDllErr = Err.LastDllError 
     If lngDllErr <> 0 Then 
     RaiseEvent Operation("Error " & CStr(lngDllErr)) 
     Err.Raise lngDllErr, "OpenInternet", ErrorOut(Err.LastDllError, "OpenInternet") 
     End If 
    Else 
     RaiseEvent Operation("Connection opened") 
     InternetHandle = Rtn 
     ExtendedError = "" 
    End If 

    OpenInternet = CBool(Rtn) 

    Exit Function 

errOpenInternet: 
    Err.Raise Err.Number, Err.Source & ":OpenInternet", Err.Description 

End Function