how can call dll export faunction in vb6? CallWindowProc have limtied in paramet. in example how call this fanction ?
Dim lb As Long, pa As Long
lb = LoadLibrary("wininet.dll")
pa = GetProcAddress(lb, "InternetOpen")
-
1Why would you want to use LoadLibrary and GetProcAddress instead of just declaring the function to access it?Vincent G– Vincent G2018-01-23 09:54:37 +00:00Commented Jan 23, 2018 at 9:54
-
@vincent-g Checking vb language restrictionsuser2522767– user25227672018-01-23 10:06:11 +00:00Commented Jan 23, 2018 at 10:06
-
1CallWindowProc is expected to be used for hooking/subclassing, not invoking some random function. Calling a dll function in vb6/vba is expected to be done using a Declare statement.Vincent G– Vincent G2018-01-23 10:36:11 +00:00Commented Jan 23, 2018 at 10:36
-
@vincent-g There is no way to do this?user2522767– user25227672018-01-23 13:30:31 +00:00Commented Jan 23, 2018 at 13:30
-
May be @user2522767 needs to load dll dinamically at run time?Siyon DP– Siyon DP2018-01-23 13:33:27 +00:00Commented Jan 23, 2018 at 13:33
|
Show 4 more comments
1 Answer
These definitions are copied from pinvoke.net and modified the variable types for vb6.
I have not tested this code.
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
Usage:
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
