Как вызвать функцию экспорта DLL в VB6?

Question

Как вызвать функцию экспорта DLL DLL в VB6? CallWindowProc ограничен в параметре. в пример, как назвать эту фанцию?

Dim lb As Long, pa As Long
lb = LoadLibrary("wininet.dll")
pa = GetProcAddress(lb, "InternetOpen")

Answer 1

Эти определения скопированы с pinvoke.net и изменены типы переменных для vb6.

Я не проверял этот код.

Const INTERNET_OPEN_TYPE_PRECONFIG = 0  ' use registry configuration
Const INTERNET_OPEN_TYPE_DIRECT = 1 ' direct to net
Const INTERNET_OPEN_TYPE_PROXY = 3  ' via named proxy
Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4 ' prevent using java/script/INS

Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
    ByVal sAgent As String, _
    ByVal lAccessType As Long, _
    ByVal sProxyName As String, _
    ByVal sProxyBypass As String, _
    ByVal lFlags As Long) As Long

Использование:

Dim hInet As Long
hInet = InternetOpen("HttpAgent", INTERNET_OPEN_TYPE_PRECONFIG, _
  "", "", 0)
If hInet = 0 Then 
  'Return or handle a False return status
End If