0
A
回答
3
这是一个或多或少的通用功能打开,可以采取代理参数的互联网连接。这是如何使用代理的一个很好的例子。
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
相关问题
- 1. VB6:如何添加Inet组件?
- 2. 如何计算使用INET框架
- 3. 如何使用VB6
- 4. 如何在VB6中使用tabstrip?
- 5. 如何在c#中使用vb6 copymemory?
- 6. 如何在VB6中使用GNU gettext?
- 7. 如何在Python和postgresql中使用inet类型?
- 8. 如何使用vb6中的Inet获取html页面内容并将内容放入TextBox中?
- 9. VB6代码管理工具
- 10. 如何从Java代码中使用Jacob禁用VB6 MsgBox
- 11. 如何在Robobrowser中使用代理
- 12. 如何在Intranet中使用代理?
- 13. 如何在Python3中使用HTTP代理?
- 14. 如何在Python中使用mysql代理
- 15. 如何在scala中使用java代理
- 16. 如何在iOS 5中使用代理
- 17. 如何在C#Neo4jClient中使用代理?
- 18. 如何在http-kit中使用代理
- 19. 如何在C#中使用Java代理?
- 20. ASP.NET使用VB6代码
- 21. 如何在nodejs中使用代理代理快递
- 22. 如何使用代理&&代理
- 23. VB6如何使用HTML代码解码中文字符
- 24. 是否有任何理由在vb6中使用DHTML或IIS?
- 25. 如何从.NET中使用VB6 DLL?
- 26. 如何在VB6上使用IE ocx
- 27. 如何在VB6
- 28. 如何使用代理类库和VB6客户端实现WCF回调
- 29. 在vb6中使用.net dll
- 30. 在VB6中使用WCF DLL?
你想连接什么?你是否试图在代码中从互联网上下载文件? –