The declare not is public.
Bye !!
Frank Lupo (Wolf) !!
/\_ _/\
\ o o /
--ooo-----ooo---
--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f
Sponsor:
Vuoi navigare nell'oro?
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=609&d=21-2
*** old_basapi.bas Fri Feb 21 11:46:22 2003
--- basapi.bas Fri Feb 21 14:05:12 2003
***************
*** 47,53 ****
Public Declare Function InternetQueryOption Lib "wininet.dll" Alias
"InternetQueryOptionA" (ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer
As Any, ByRef lBufferLength As Long) As Integer
Public Declare Function HttpAddRequestHeaders Lib "wininet.dll" Alias
"HttpAddRequestHeadersA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal
lHeadersLength As Long, ByVal lModifiers As Long) As Integer
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As
Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
! Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA"
(lpVersionInformation As OSVERSIONINFO) As Long
'Constants
Public Const SWP_NOMOVE = 2
--- 47,53 ----
Public Declare Function InternetQueryOption Lib "wininet.dll" Alias
"InternetQueryOptionA" (ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer
As Any, ByRef lBufferLength As Long) As Integer
Public Declare Function HttpAddRequestHeaders Lib "wininet.dll" Alias
"HttpAddRequestHeadersA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal
lHeadersLength As Long, ByVal lModifiers As Long) As Integer
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As
Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
! Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA"
(lpVersionInformation As OSVERSIONINFO) As Long
'Constants
Public Const SWP_NOMOVE = 2
***************
*** 322,332 ****
'appear to be the case when I do
it.
'Windows
! Private Const VER_PLATFORM_WIN32s = 0
! Private Const VER_PLATFORM_WIN32_WINDOWS = 1
! Private Const VER_PLATFORM_WIN32_NT = 2
! Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
--- 322,332 ----
'appear to be the case when I do
it.
'Windows
! Public Const VER_PLATFORM_WIN32s = 0
! Public Const VER_PLATFORM_WIN32_WINDOWS = 1
! Public Const VER_PLATFORM_WIN32_NT = 2
! Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
---------------------------(end of broadcast)---------------------------
TIP 4: Don't 'kill -9' the postmaster
