varidefine.bas

oracle和sql自动备份系统

Attribute VB_Name = "VariDefine"

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long


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

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


Public nidProgramData As NOTIFYICONDATA


Public Const WM_MOUSEMOVE = &H200 '在图标上移动鼠标

Public Const WM_LBUTTONDOWN = &H201 '鼠标左键按下

Public Const WM_LBUTTONUP = &H202 '鼠标左键释放

Public Const WM_LBUTTONDBLCLK = &H203 '双击鼠标左键

Public Const WM_RBUTTONDOWN = &H204 '鼠标右键按下

Public Const WM_RBUTTONUP = &H205 '鼠标右键释放

Public Const WM_RBUTTONDBLCLK = &H206 '双击鼠标右键

Public Const WM_SETHOTKEY = &H32 '响应您定义的热键
'API函数声明


'自定义一个调用API Shell_NotifyIcon要用到的类 型"NOTIFYICONDATA"

Public Type NOTIFYICONDATA

cdSize As Long 'NOTIFYICONDATA类型的大小

hWnd As Long '你的应用程序窗体的名柄

uId As Long '应用程序图标资源的ID号

uFlags As Long '使那些参数有效它是以下枚举类型中的NIF_MESSAGE、NIF_ICON、NIF_TIP三组的组合

uCallbackMessage As Long '鼠标移动时把此消息发给该图标的窗体

hIcon As Long '图标名柄

szTip As String * 64 '当鼠标在图标上时显示的Tip文本

End Type


Public Enum enm_NIM_Shell

NIM_ADD = &H0 '在“金碟”中加一图标

NIM_MODIFY = &H1 '修改“金碟”中的图标

NIM_DELETE = &H2 '删除“金碟”中的图标

NIF_MESSAGE = &H1 '使类型"NOTIFYICONDATA"中的uCallbackMessage有效

NIF_ICON = &H2 '使类型"NOTIFYICONDATA"中的hIcon有效

NIF_TIP = &H4 '使类型"NOTIFYICONDATA"中的szTip有效

'WM_MOUSEMOVE = &H200 '使鼠标移动消息有效

End Enum

Public Const HKEY_CLASSES_ROOT = &H80000000

Public Const HKEY_CURRENT_USER = &H80000001

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const HKEY_USERS = &H80000003

Public Const HKEY_PERFORMANCE_DATA = &H80000004

Public Const ERROR_SUCCESS = 0&

' Registry API prototypes

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long

Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long

Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Public Const REG_SZ = 1                         ' Unicode nul terminated string

Public Const REG_DWORD = 4                      ' 32-bit number


Public SqlConnectstring As String

Public OracleConnectstring As String

Public SqlCn As New ADODB.Connection

Public OracleCn As New ADODB.Connection

Public Backflag As Boolean

Public tempstr As String
 
Public M_file(30) As String