如何在vb6的inet中使用代理？

我正在用vb6做一个程序。 我我想通过vb6中的inet使用代理进行连接。怎么做呢？请帮忙

---

谢谢

这是一个或多或少通用的函数，用于打开可以使用代理参数的internet连接。这是如何使用代理的一个很好的例子

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

Private声明函数InternetOpen Lib“WinInet”别名“InternetOpenA”（ByVal lpszAgent为字符串，ByVal lpAccessType为长，ByVal lpszProxyName为字符串，ByVal lpszProxyBypass为字符串，ByVal lpFlags为长）为长
公共函数OpenInternet（ByVal SapName为字符串，ByVal lAccessType为长，ByVal sProxyName为字符串_
ByVal sProxyBypass作为字符串，ByVal lFlags作为长度）作为布尔值
Dim Rtn尽可能长
暗淡无光
作为字符串的Dim STRHEADER
暗LNGDLERR尽可能长
关于错误转到错误开放网络
RaiseEvent操作（“打开internet连接”）
Rtn=InternetOpen（ByVal SapName、ByVal lAccessType、ByVal sProxyName、ByVal sProxyBypass、ByVal lFlags）
如果Rtn=0，则“由于某种原因失败”
LNGDLERR=Err.LastDllError
如果LNGDLERR为0，则
RaiseEvent操作（“错误”和CStr（LNGDLERR））
Err.Raise lngDllErr，“OpenInternet”，errout（Err.LastDllError，“OpenInternet”）
如果结束
其他的
RaiseEvent操作（“连接已打开”）
InternetHandle=Rtn
ExtendedError=“”
如果结束
OpenInternet=CBool（Rtn）
退出功能
错误开放网络：
Err.Raise Err.Number，Err.Source&“：OpenInternet”，Err.Description
端函数

这是一个或多或少通用的函数，用于打开可以使用代理参数的internet连接。这是如何使用代理的一个很好的例子

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

Private声明函数InternetOpen Lib“WinInet”别名“InternetOpenA”（ByVal lpszAgent为字符串，ByVal lpAccessType为长，ByVal lpszProxyName为字符串，ByVal lpszProxyBypass为字符串，ByVal lpFlags为长）为长
公共函数OpenInternet（ByVal SapName为字符串，ByVal lAccessType为长，ByVal sProxyName为字符串_
ByVal sProxyBypass作为字符串，ByVal lFlags作为长度）作为布尔值
Dim Rtn尽可能长
暗淡无光
作为字符串的Dim STRHEADER
暗LNGDLERR尽可能长
关于错误转到错误开放网络
RaiseEvent操作（“打开internet连接”）
Rtn=InternetOpen（ByVal SapName、ByVal lAccessType、ByVal sProxyName、ByVal sProxyBypass、ByVal lFlags）
如果Rtn=0，则“由于某种原因失败”
LNGDLERR=Err.LastDllError
如果LNGDLERR为0，则
RaiseEvent操作（“错误”和CStr（LNGDLERR））
Err.Raise lngDllErr，“OpenInternet”，errout（Err.LastDllError，“OpenInternet”）
如果结束
其他的
RaiseEvent操作（“连接已打开”）
InternetHandle=Rtn
ExtendedError=“”
如果结束
OpenInternet=CBool（Rtn）
退出功能
错误开放网络：
Err.Raise Err.Number，Err.Source&“：OpenInternet”，Err.Description
端函数

您想连接到什么？您正在尝试以代码形式从internet下载文件吗？您想连接到什么？您正在尝试以代码形式从internet下载文件吗？