升级程序类模块代码2.docVIP

升级程序类模块代码2 公共定义 Private TempStr As String Private TempLng As Long Private TempBol As Boolean Public RndLong As Long Public AppPath As String ini文件读写函数API声明 Private Declare Function GetPrivateProfileInt Lib kernel32 Alias GetPrivateProfileIntA (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib kernel32 Alias GetPrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Private Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileSection Lib kernel32 Alias GetPrivateProfileSectionA (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileSection Lib kernel32 Alias WritePrivateProfileSectionA (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Public IniPath As String Public IniPro As String ANI动态光标使用函数API声明 Private Const GCL_HCURSOR = (-12) Private Declare Function LoadCursorFromFile Lib USER32 Alias LoadCursorFromFileA (ByVal lpFileName As String) As Long Private Declare Function SetClassLong Lib USER32 Alias SetClassLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetClassLong Lib USER32 Alias GetClassLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long 向窗体发送消息以及句柄查询API函数声明 Private Declare Function FindWindow Lib USER32 Alias FindWindowA (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib USER32 Alias PostMessageA (ByVal hWnd As Long, ByVal wMsg