home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Web_Server581052272002.psc / WebControl / Api.bas next >
Encoding:
BASIC Source File  |  1999-12-28  |  9.4 KB  |  173 lines

  1. Attribute VB_Name = "Api"
  2. Option Explicit
  3.  
  4. Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  5. Declare Function RegLoadKey Lib "advapi32.dll" Alias "RegLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpFile As String) As Long
  6. Declare Function RegNotifyChangeKeyValue Lib "advapi32.dll" (ByVal hKey As Long, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long, ByVal hEvent As Long, ByVal fAsynchronus As Long) As Long
  7. Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  8. Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
  9. Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long
  10. Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
  11. Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal szData As String, ByRef lpcbData As Long) As Long
  12. Declare Function RegReplaceKey Lib "advapi32.dll" Alias "RegReplaceKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpNewFile As String, ByVal lpOldFile As String) As Long
  13. Declare Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" (ByVal hKey As Long, ByVal lpFile As String, ByVal dwFlags As Long) As Long
  14. Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As Long, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
  15. Declare Function RegSetKeySecurity Lib "advapi32.dll" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR) As Long
  16. Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
  17. Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal szData As String, ByVal cbData As Long) As Long
  18. Declare Function RegUnLoadKey Lib "advapi32.dll" Alias "RegUnLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
  19. Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  20. Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As Long
  21. Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  22. Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
  23. Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
  24. Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
  25. Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
  26. Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long
  27. Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long
  28. Declare Function RegFlushKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  29. Declare Function RegGetKeySecurity Lib "advapi32.dll" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR, lpcbSecurityDescriptor As Long) As Long
  30. Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  31. Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  32. Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
  33. Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
  34. Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  35. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  36.  
  37. Public Const MF_BYPOSITION = &H400&
  38. Public Const MF_BYCOMMAND = 0
  39. Public Const SC_RESTORE = &HF120
  40. Public Const SC_MOVE = &HF010
  41. Public Const SC_SIZE = &HF000
  42. Public Const SC_MINIMIZE = &HF020
  43. Public Const SC_MAXIMIZE = &HF030
  44. Public Const SC_CLOSE = &HF060
  45.  
  46. Public Const HKEY_CLASSES_ROOT = &H80000000
  47. Public Const HKEY_CURRENT_USER = &H80000001
  48. Public Const HKEY_LOCAL_MACHINE = &H80000002
  49. Public Const HKEY_USERS = &H80000003
  50. Public Const KEY_QUERY_VALUE = &H1
  51. Public Const KEY_SET_VALUE = &H2
  52. Public Const KEY_CREATE_SUB_KEY = &H4
  53. Public Const KEY_ENUMERATE_SUB_KEYS = &H8
  54. Public Const KEY_NOTIFY = &H10
  55. Public Const KEY_CREATE_LINK = &H20
  56. Public Const KEY_ALL_ACCESS = &H3F
  57. Public Const REG_OPTION_NON_VOLATILE = 0&
  58. Public Const REG_OPTION_VOLATILE = &H1
  59. Public Const REG_CREATED_NEW_KEY = &H1
  60. Public Const REG_OPENED_EXISTING_KEY = &H2
  61. Public Const STANDARD_RIGHTS_ALL = &H1F0000
  62. Public Const SPECIFIC_RIGHTS_ALL = &HFFFF
  63. Public Const ERROR_SUCCESS = 0&
  64. Public Const ERROR_ACCESS_DENIED = 5
  65. Public Const ERROR_NO_MORE_ITEMS = 259
  66. Public Const REG_NONE = (0)
  67. Public Const REG_SZ = (1)
  68. Public Const REG_EXPAND_SZ = (2)
  69. Public Const REG_BINARY = (3)
  70. Public Const REG_DWORD = (4)
  71. Public Const REG_DWORD_LITTLE_ENDIAN = (4)
  72. Public Const REG_DWORD_BIG_ENDIAN = (5)
  73. Public Const REG_LINK = (6)
  74. Public Const REG_MULTI_SZ = (7)
  75. Public Const REG_RESOURCE_LIST = (8)
  76. Public Const REG_FULL_RESOURCE_DESCRIPTOR = (9)
  77. Public Const REG_RESOURCE_REQUIREMENTS_LIST = (10)
  78. Type SECURITY_ATTRIBUTES
  79.         nLength As Long
  80.         lpSecurityDescriptor As Long
  81.         bInheritHandle As Boolean
  82. End Type
  83.  
  84. Type FILETIME
  85.         dwLowDateTime As Long
  86.         dwHighDateTime As Long
  87. End Type
  88. Type ACL
  89.         AclRevision As Byte
  90.         Sbz1 As Byte
  91.         AclSize As Integer
  92.         AceCount As Integer
  93.         Sbz2 As Integer
  94. End Type
  95. Type SECURITY_DESCRIPTOR
  96.         Revision As Byte
  97.         Sbz1 As Byte
  98.         Control As Long
  99.         Owner As Long
  100.         Group As Long
  101.         Sacl As ACL
  102.         Dacl As ACL
  103. End Type
  104. Type WNDCLASS
  105.     style As Long
  106.     lpfnWndProc As Long
  107.     cbClsExtra As Long
  108.     cbWndExtra2 As Long
  109.     hInstance As Long
  110.     hIcon As Long
  111.     hCursor As Long
  112.     hbrBackground As Long
  113.     lpszMenuName As String
  114.     lpszClassName As String
  115. End Type
  116. Type WNDCLASSEX
  117.     cbSize As Long
  118.     style As Long
  119.     lpfnWndProc As Long
  120.     cbClsExtra As Long
  121.     cbWndExtra As Long
  122.     hInstance As Long
  123.     hIcon As Long
  124.     hCursor As Long
  125.     hbrBackground As Long
  126.     lpszMenuName As String
  127.     lpszClassName As String
  128.     hIconSm As Long
  129. End Type
  130.  
  131.  Type OSVERSIONINFO
  132. dwOSVersionInfoSize As Long
  133. dwMajorVersion As Long
  134. dwMinorVersion As Long
  135. dwBuildNumber As Long
  136. dwPlatformId As Long
  137. szCSDVersion As String * 128
  138. End Type
  139.  
  140. Type NOTIFYICONDATA
  141. cbSize As Long
  142. hwnd As Long
  143. uID As Long
  144. uFlags As Long
  145. uCallbackMessage As Long
  146. hIcon As Long
  147. szTip As String * 64
  148. End Type
  149. Public Const WM_USER = &H400
  150. Public Const cbNotify& = WM_USER + 42
  151. Public Const uID& = 61860
  152. Public myNID As NOTIFYICONDATA
  153. Declare Function ShellNotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
  154. Public Const NIM_ADD = &H0
  155. Public Const NIM_DELETE = &H2
  156. Public Const NIM_MODIFY = &H1
  157. Public Const NIF_MESSAGE = &H1
  158. Public Const NIF_ICON = &H2
  159. Public Const NIF_TIP = &H4
  160. Public Const WM_MOUSEMOVE = &H200
  161. Public Const WM_LBUTTONDOWN = &H201
  162. Public Const WM_LBUTTONUP = &H202
  163. Public Const WM_LBUTTONDBLCLK = &H203
  164. Public Const WM_RBUTTONDOWN = &H204
  165. Public Const WM_RBUTTONUP = &H205
  166. Public Const WM_RBUTTONDBLCLK = &H206
  167. Public Const WM_MBUTTONDOWN = &H207
  168. Public Const WM_MBUTTONUP = &H208
  169. Public Const WM_MBUTTONDBLCLK = &H209
  170. Public Const GWL_WNDPROC = (-4)
  171. Global lpPrevWndProc As Long
  172. Global gHW As Long
  173.