www.pudn.com > SuperDLL2.zip > Module1.bas
Attribute VB_Name = "Module1"
Option Explicit
Public Enum VirtualKey
VK_LBUTTON = &H1
VK_RBUTTON = &H2
VK_CTRLBREAK = &H3
VK_MBUTTON = &H4
VK_BACKSPACE = &H8
VK_TAB = &H9
VK_ENTER = &HD
VK_SHIFT = &H10
VK_CONTROL = &H11
VK_ALT = &H12
VK_PAUSE = &H13
VK_CAPSLOCK = &H14
VK_ESCAPE = &H1B
VK_SPACE = &H20
VK_PAGEUP = &H21
VK_PAGEDOWN = &H22
VK_END = &H23
VK_HOME = &H24
VK_LEFT = &H25
VK_UP = &H26
VK_RIGHT = &H27
VK_DOWN = &H28
VK_PRINTSCREEN = &H2C
VK_INSERT = &H2D
VK_DELETE = &H2E
VK_0 = &H30
VK_1 = &H31
VK_2 = &H32
VK_3 = &H33
VK_4 = &H34
VK_5 = &H35
VK_6 = &H36
VK_7 = &H37
VK_8 = &H38
VK_9 = &H39
VK_A = &H41
VK_B = &H42
VK_C = &H43
VK_D = &H44
VK_E = &H45
VK_F = &H46
VK_G = &H47
VK_H = &H48
VK_I = &H49
VK_J = &H4A
VK_K = &H4B
VK_L = &H4C
VK_M = &H4D
VK_N = &H4E
VK_O = &H4F
VK_P = &H50
VK_Q = &H51
VK_R = &H52
VK_S = &H53
VK_T = &H54
VK_U = &H55
VK_V = &H56
VK_W = &H57
VK_X = &H58
VK_Y = &H59
VK_Z = &H5A
VK_LWINDOWS = &H5B
VK_RWINDOWS = &H5C
VK_APPSPOPUP = &H5D
VK_NUMPAD_0 = &H60
VK_NUMPAD_1 = &H61
VK_NUMPAD_2 = &H62
VK_NUMPAD_3 = &H63
VK_NUMPAD_4 = &H64
VK_NUMPAD_5 = &H65
VK_NUMPAD_6 = &H66
VK_NUMPAD_7 = &H67
VK_NUMPAD_8 = &H68
VK_NUMPAD_9 = &H69
VK_NUMPAD_MULTIPLY = &H6A
VK_NUMPAD_ADD = &H6B
VK_NUMPAD_PLUS = &H6B
VK_NUMPAD_SUBTRACT = &H6D
VK_NUMPAD_MINUS = &H6D
VK_NUMPAD_MOINS = &H6D
VK_NUMPAD_DECIMAL = &H6E
VK_NUMPAD_POINT = &H6E
VK_NUMPAD_DIVIDE = &H6F
VK_F1 = &H70
VK_F2 = &H71
VK_F3 = &H72
VK_F4 = &H73
VK_F5 = &H74
VK_F6 = &H75
VK_F7 = &H76
VK_F8 = &H77
VK_F9 = &H78
VK_F10 = &H79
VK_F11 = &H7A
VK_F12 = &H7B
VK_NUMLOCK = &H90
VK_SCROLL = &H91
VK_LSHIFT = &HA0
VK_RSHIFT = &HA1
VK_LCONTROL = &HA2
VK_RCONTROL = &HA3
VK_LALT = &HA4
VK_RALT = &HA5
VK_POINTVIRGULE = &HBA
VK_ADD = &HBB
VK_PLUS = &HBB
VK_EQUAL = &HBB
VK_VIRGULE = &HBC
VK_SUBTRACT = &HBD
VK_MINUS = &HBD
VK_MOINS = &HBD
VK_UNDERLINE = &HBD
VK_POINT = &HBE
VK_SLASH = &HBF
VK_TILDE = &HC0
VK_LEFTBRACKET = &HDB
VK_BACKSLASH = &HDC
VK_RIGHTBRACKET = &HDD
VK_QUOTE = &HDE
VK_APOSTROPHE = &HDE
End Enum
Public Type mciFile
IsVideo As Boolean
mAlias As Variant
mfile As Variant
mHeight As Integer
mLength As Long
mWidth As Integer
End Type
Public Type WindowsVersionInfo
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As PlatformType
szCSDVersion As Variant
dwFullVersion As Variant
dwTextVersion As Variant
dwFullTextV As Variant
End Type
Public Enum ShutDownType
EWX_LOGOFF = &H0
EWX_SHUTDOWN = &H1
EWX_REBOOT = &H2
EWX_POWEROFF = &H8 ' SHUTDOWN is better
End Enum
Public Enum ForceType
EWX_NORMAL = &H0
EWX_FORCEIFHUNG = &H10
EWX_FORCE = &H4 ' better not use !
End Enum
Public Enum TransType
LWA_OPAQUE = 0
LWA_COLORKEY = 1
LWA_ALPHA = 2
End Enum
Public Enum PlatformType ' dwPlatformId
VER_PLATFORM_WIN32s = 0 ' Unknown Version
VER_PLATFORM_WIN32_WINDOWS = 1 ' Windows 3.1/95/98/Me
VER_PLATFORM_WIN32_NT = 2 ' Windows NT/2000/XP/.NET
End Enum
Public Enum RegKey ' lPredefinedKey , hMainKey
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
HKEY_PERFORMANCE_DATA = &H80000004
HKEY_CURRENT_CONFIG = &H80000005
HKEY_DYN_DATA = &H80000006
End Enum
Public Enum DriveTypeVar
DRIVE_ERROR = -1
DRIVE_UNKNOWN = 0
DRIVE_ABSENT = 1
DRIVE_REMOVABLE = 2
DRIVE_FIXED = 3
DRIVE_REMOTE = 4
DRIVE_CDROM = 5
DRIVE_RAMDISK = 6
End Enum
Public Enum PRIORITY_CLASS
REALTIME_PRIORITY = &H100
HIGH_PRIORITY = &H80
NORMAL_PRIORITY = &H20
IDLE_PRIORITY = &H40
End Enum
Public Enum FILE_ATTRIBUTE
FILE_ATTRIBUTE_DIRECTORY = &H10
FILE_ATTRIBUTE_ARCHIVE = &H20
FILE_ATTRIBUTE_NORMAL = &H80
FILE_ATTRIBUTE_READONLY = &H1
FILE_ATTRIBUTE_HIDDEN = &H2
FILE_ATTRIBUTE_SYSTEM = &H4
FILE_ATTRIBUTE_COMPRESSED = &H800
FILE_ATTRIBUTE_ENCRYPTED = &H40
FILE_ATTRIBUTE_TEMPORARY = &H100
FILE_ATTRIBUTE_OFFLINE = &H1000
FILE_ATTRIBUTE_SPARSE_FILE = &H200
FILE_ATTRIBUTE_REPARSE_POINT = &H400
FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = &H2000
End Enum
Public Type SYSTEMTIME ' DayOfWeek :
wYear As Integer ' ------------
wMonth As Integer ' Dimanche = 0
wDayOfWeek As Integer ' Lundi = 1
wDay As Integer ' Mardi = 2
wHour As Integer ' Mercredi = 3
wMinute As Integer ' Jeudi = 4
wSecond As Integer ' Vendredi = 5
wMilliseconds As Integer ' Samedi = 6
End Type
Public Type Search_File_Type
dwFileAttributes As FILE_ATTRIBUTE
nFileSize As Currency
cPath As Variant
cFileName As Variant
cPathAndFileName As Variant
stCreationTime As SYSTEMTIME
stLastAccessTime As SYSTEMTIME
stLastWriteTime As SYSTEMTIME
End Type
Public Type MemoryStatus
MemoryLoad As Long
MemoryLoad2 As Single
TotalPhys As Currency
AvailPhys As Currency
TotalVirtual As Currency
AvailVirtual As Currency
TotalPageFile As Currency
AvailPageFile As Currency
AvailExtendedVirtual As Currency
End Type
Public Type RGBColor
cRed As Byte
cGreen As Byte
cBlue As Byte
End Type
Public Enum Align
TA_LEFT = 0
TA_RIGHT = 2
TA_CENTER = 6
TA_TOP = 0
TA_BOTTOM = 8
TA_BASELINE = 24
End Enum
Public Enum DIR_ID
DIR_USER = &H28
DIR_USER_DESKTOP = &H10
DIR_USER_MY_DOCUMENTS = &H5
DIR_USER_START_MENU = &HB
DIR_USER_START_MENU_PROGRAMS = &H2
DIR_USER_START_MENU_PROGRAMS_STARTUP = &H7
DIR_COMMON_DESKTOP = &H19
DIR_COMMON_DOCUMENTS = &H2E
DIR_COMMON_START_MENU = &H16
DIR_COMMON_START_MENU_PROGRAMS = &H17
DIR_COMMON_START_MENU_PROGRAMS_STARTUP = &H18
DIR_WINDOWS = &H24
DIR_SYSTEM = &H25
DIR_FONTS = &H14
DIR_PROGRAM_FILES = &H26
DIR_PROGRAM_FILES_COMMON_FILES = &H2B
End Enum
Public Type CPU_INFO
ClockSpeed As Long
Manufacturer As String
CPU_Type As String
OtherInfo As String
End Type
Public Enum ROOTDIR_ID
ROOTDIR_CUSTOM = -1
ROOTDIR_ALL = &H0
ROOTDIR_MY_COMPUTER = &H11
ROOTDIR_DRIVES = &H11
ROOTDIR_ALL_NETWORK = &H12
ROOTDIR_NETWORK_COMPUTERS = &H3D
ROOTDIR_WORKGROUP = &H3D
ROOTDIR_USER = &H28
ROOTDIR_USER_DESKTOP = &H10
ROOTDIR_USER_MY_DOCUMENTS = &H5
ROOTDIR_USER_START_MENU = &HB
ROOTDIR_USER_START_MENU_PROGRAMS = &H2
ROOTDIR_USER_START_MENU_PROGRAMS_STARTUP = &H7
ROOTDIR_COMMON_DESKTOP = &H19
ROOTDIR_COMMON_DOCUMENTS = &H2E
ROOTDIR_COMMON_START_MENU = &H16
ROOTDIR_COMMON_START_MENU_PROGRAMS = &H17
ROOTDIR_COMMON_START_MENU_PROGRAMS_STARTUP = &H18
ROOTDIR_WINDOWS = &H24
ROOTDIR_SYSTEM = &H25
ROOTDIR_FONTS = &H14
ROOTDIR_PROGRAM_FILES = &H26
ROOTDIR_PROGRAM_FILES_COMMON_FILES = &H2B
End Enum
Public Declare Function DecToHex Lib "SuperDLL.dll" (ByVal var1 As Long, Optional ByVal AddToNextType As Boolean = True) As String
Public Declare Function HexToDec Lib "SuperDLL.dll" (ByVal var1 As String) As Long
Public Declare Function HexToBin Lib "SuperDLL.dll" (ByVal var1 As String, Optional ByVal AddToNextType As Boolean = True, Optional ByVal RemoveLeadingZeros As Boolean = False) As Variant
Public Declare Function BinToHex Lib "SuperDLL.dll" (ByVal var1 As String, Optional ByVal AddToNextType As Boolean = True, Optional ByVal RemoveLeadingZeros As Boolean = False) As Variant
Public Declare Function BinToDec Lib "SuperDLL.dll" (ByVal var1 As String) As Long
Public Declare Function DecToBin Lib "SuperDLL.dll" (ByVal var1 As Long, Optional ByVal AddToNextType As Boolean = True, Optional ByVal RemoveLeadingZeros As Boolean = False) As Variant
Public Declare Function HiByte Lib "SuperDLL.dll" (ByVal Word As Integer) As Byte
Public Declare Function LoByte Lib "SuperDLL.dll" (ByVal Word As Integer) As Byte
Public Declare Function HiWord Lib "SuperDLL.dll" (ByVal DWord As Long) As Integer
Public Declare Function LoWord Lib "SuperDLL.dll" (ByVal DWord As Long) As Integer
Public Declare Function HiByteHiWord Lib "SuperDLL.dll" (ByVal DWord As Long) As Byte
Public Declare Function LoByteHiWord Lib "SuperDLL.dll" (ByVal DWord As Long) As Byte
Public Declare Function HiByteLoWord Lib "SuperDLL.dll" (ByVal DWord As Long) As Byte
Public Declare Function LoByteLoWord Lib "SuperDLL.dll" (ByVal DWord As Long) As Byte
Public Declare Function MakeWord Lib "SuperDLL.dll" (ByVal HByte As Byte, ByVal LByte As Byte) As Integer
Public Declare Function MakeDWordB Lib "SuperDLL.dll" (ByVal HByteHWord As Byte, ByVal LByteHWord As Byte, ByVal HByteLWord As Byte, ByVal LByteLWord As Byte) As Long
Public Declare Function MakeDWordW Lib "SuperDLL.dll" (ByVal HWord As Integer, LWord As Integer) As Long
Public Declare Sub Swap Lib "SuperDLL.dll" (var1 As Variant, var2 As Variant)
Public Declare Function Trim2 Lib "SuperDLL.dll" (ByVal cString As String) As String
Public Declare Function CFix Lib "SuperDLL.dll" (ByVal Num As Variant) As Variant
Public Declare Function GetCurrentX Lib "SuperDLL.dll" (zFormOrPictBox As Object) As Variant
Public Declare Function GetCurrentY Lib "SuperDLL.dll" (zFormOrPictBox As Object) As Variant
Public Declare Function GetCurrentPosition Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByRef X As Long, ByRef Y As Long) As Long
Public Declare Function MoveTo Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function LineTo Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function GetPixel Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function SetPixel Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Public Declare Function DrawLine Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function DrawTriangle Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Declare Function DrawAngleCircle Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X As Single, ByVal Y As Single, ByVal dwRadius As Single, Optional ByVal StartAngle As Single = 0, Optional ByVal EndAngle As Single = 0, Optional ByVal ForColor As Long = -1, Optional ByVal dWidth As Integer = -1) As Boolean
Public Declare Function DrawAngleEllipse Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single, Optional ByVal StartAngle As Single = 0, Optional ByVal EndAngle As Single = 0, Optional ByVal ForColor As Long = -1, Optional ByVal dWidth As Integer = -1) As Boolean
Public Declare Function DrawCircle Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X As Long, ByVal Y As Long, ByVal dwRadius As Long) As Long
Public Declare Function DrawEllipse Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function DrawRectangle Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function DrawRoundRect Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal pcRoundX As Integer, Optional ByVal pcRoundY As Integer = -1) As Long
Public Declare Function SetColor Lib "SuperDLL.dll" (zFormOrPictBox As Object, Optional ByVal ForColor As Long = -1, Optional ByVal dWidth As Integer = -1, Optional ByVal FilColor As Long = -1, Optional ByVal FilStyle As FillStyleConstants = -1, Optional ByVal tAlign As Align = -1) As Boolean
Public Declare Function FloodFill Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal X As Long, ByVal Y As Long, ByVal BorderColor As Long, Optional ByVal FilColor As Long = -1, Optional ByVal FilStyle As FillStyleConstants = -1) As Long
Public Declare Function GetRGB Lib "SuperDLL.dll" (ByVal cColor As Long) As RGBColor
Public Declare Function GetRed Lib "SuperDLL.dll" (ByVal cColor As Long) As Byte
Public Declare Function GetGreen Lib "SuperDLL.dll" (ByVal cColor As Long) As Byte
Public Declare Function GetBlue Lib "SuperDLL.dll" (ByVal cColor As Long) As Byte
Public Declare Function DrawText Lib "SuperDLL.dll" (zFormOrPictBox As Object, ByVal zString As String, ByVal X As Long, ByVal Y As Long, Optional ByVal tAlign As Align = -1, Optional ByVal ForColor As Long = -1) As Long
Public Declare Function Odd Lib "SuperDLL.dll" (ByVal Num As Variant) As Boolean
Public Declare Function Even Lib "SuperDLL.dll" (ByVal Num As Variant) As Boolean
Public Declare Function Earth Lib "SuperDLL.dll" () As Double
Public Declare Function Moon Lib "SuperDLL.dll" () As Double
Public Declare Function DegToRad Lib "SuperDLL.dll" (ByVal Deg As Double) As Double
Public Declare Function RadToDeg Lib "SuperDLL.dll" (ByVal Rad As Double) As Double
Public Declare Function CalcVelocity Lib "SuperDLL.dll" (ByVal Angle As Double, ByVal Range As Double, Optional ByVal Gravity As Double = 9.806, Optional ByVal Quiet As Boolean = False) As Double
Public Declare Function CalcRange Lib "SuperDLL.dll" (ByVal Angle As Double, ByVal Velocity As Double, Optional ByVal Gravity As Double = 9.806, Optional ByVal Altitude As Double = 0, Optional ByVal Wind As Double = 0, Optional ByVal Quiet As Boolean = False) As Double
Public Declare Function CalcAngle Lib "SuperDLL.dll" (ByVal Velocity As Double, ByVal Range As Double, Optional ByVal Gravity As Double = 9.806, Optional ByVal Quiet As Boolean = False) As Double
Public Declare Function MaxAltitude Lib "SuperDLL.dll" (ByVal Angle As Double, ByVal Velocity As Double, Optional ByVal Gravity As Double = 9.81, Optional ByVal Altitude As Double = 0) As Double
Public Declare Function TotalTimeInAir Lib "SuperDLL.dll" (ByVal Angle As Double, ByVal Velocity As Double, Optional ByVal Gravity As Double = 9.81, Optional ByVal Altitude As Double = 0) As Double
Public Declare Function KMHtoMS Lib "SuperDLL.dll" (ByVal KMH As Double) As Double
Public Declare Function MStoKMH Lib "SuperDLL.dll" (ByVal MS As Double) As Double
Public Declare Function PI Lib "SuperDLL.dll" () As Double
Public Declare Function PI2 Lib "SuperDLL.dll" () As Double
Public Declare Function CalcVeloX Lib "SuperDLL.dll" (ByVal Angle As Double, ByVal Velocity As Double) As Double
Public Declare Function CalcVeloY Lib "SuperDLL.dll" (ByVal Angle As Double, ByVal Velocity As Double) As Double
Public Declare Function TimeAtMaxAltitude Lib "SuperDLL.dll" (ByVal Angle As Double, ByVal Velocity As Double, Optional ByVal Gravity As Double = 9.81) As Double
Public Declare Function AntiSin Lib "SuperDLL.dll" (ByVal var1 As Double) As Double
Public Declare Function AntiCos Lib "SuperDLL.dll" (ByVal var1 As Double) As Double
Public Declare Function CloseMCI Lib "SuperDLL.dll" () As Long
Public Declare Function MoveMCI Lib "SuperDLL.dll" (ZmciFile As mciFile, ByVal X As Long, ByVal Y As Long, Optional ByVal X2 As Long = 0, Optional ByVal Y2 As Long = 0) As Long
Public Declare Function MciCommand Lib "SuperDLL.dll" (ByVal zCommand As String, ZmciFile As mciFile, Optional ByVal zPos As Long = 0, Optional zFormOrPictBox As Object = Nothing, Optional ByVal UseSuperMCI As Boolean = False) As Variant
Public Declare Function Beep2 Lib "SuperDLL.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Public Declare Function StopSound Lib "SuperDLL.dll" () As Long
Public Declare Function PlaySound Lib "SuperDLL.dll" (ByVal lpszSoundName As String, Optional ByVal zWait As Boolean = False, Optional ByVal LoopSound As Boolean = False) As Long
Public Declare Function PlaySoundM Lib "SuperDLL.dll" (lpszSoundName As Byte, Optional ByVal zWait As Boolean = False, Optional ByVal LoopSound As Boolean = False) As Long
Public Declare Function AppPath Lib "SuperDLL.dll" (ByVal zPath As String) As String
Public Declare Function DriveType Lib "SuperDLL.dll" (ByVal zDrive As String) As DriveTypeVar
Public Declare Function DriveTypeS Lib "SuperDLL.dll" (ByVal zDrive As String) As String
Public Declare Function FileExist Lib "SuperDLL.dll" (ByVal strPath As String) As Boolean
Public Declare Function Filexist Lib "SuperDLL.dll" (ByVal strPath As String) As Boolean
Public Declare Function DirExist Lib "SuperDLL.dll" (ByVal zPath As String) As Boolean
Public Declare Function SetCurDir Lib "SuperDLL.dll" (ByVal zPath As String) As Boolean
Public Declare Function FreeSpace Lib "SuperDLL.dll" (ByVal zDrive As String) As Currency
Public Declare Function FileOrDirExist Lib "SuperDLL.dll" (ByVal zPath As String) As Boolean
Public Declare Function TreeFind Lib "SuperDLL.dll" (ByVal zPath As String, ByVal zFile As String) As Variant
Public Declare Function SearchFiles Lib "SuperDLL.dll" (ByVal zPath As String, ByVal zFiles As String, Optional ByVal SubDirs As Boolean = True, Optional ByRef NumberFound As Long = -1) As Search_File_Type()
Public Declare Function StripPath Lib "SuperDLL.dll" (ByVal zPathAndFile As String) As String
Public Declare Function StripFile Lib "SuperDLL.dll" (ByVal zPathAndFile As String) As String
Public Declare Function IsDirEmpty Lib "SuperDLL.dll" (ByVal zPath As String) As Boolean
Public Declare Function GetShortPath Lib "SuperDLL.dll" (ByVal zPathAndFile As String) As String
Public Declare Function GetLongPath Lib "SuperDLL.dll" (ByVal zPathAndFile As String) As String
Public Declare Function BrowseForFolder Lib "SuperDLL.dll" (Optional OwnerForm As Form = Nothing, Optional ByVal Title As String = "", Optional ByVal RootDir As ROOTDIR_ID = ROOTDIR_ALL, Optional ByVal CustomRootDir As String = "", Optional ByVal StartDir As String = "", Optional ByVal NewStyle As Boolean = True, Optional ByVal IncludeFiles As Boolean = False, Optional ByVal OkButtonText As String = "") As String
Public Declare Function WriteIni Lib "SuperDLL.dll" (ByVal sIniFileName As String, ByVal sSection As String, ByVal sItem As String, ByVal sText As String) As Boolean
Public Declare Function ReadIni Lib "SuperDLL.dll" (ByVal sIniFileName As String, ByVal sSection As String, ByVal sItem As String, ByVal sDefault As String) As String
Public Declare Function SetDWordValue Lib "SuperDLL.dll" (ByVal sKey As String, ByVal sKeyName As String, ByVal KeyValue As Long) As Boolean
Public Declare Function GetDWordValue Lib "SuperDLL.dll" (ByVal sKey As String, ByVal sKeyName As String) As Variant
Public Declare Function SetBinaryValue Lib "SuperDLL.dll" (ByVal sKey As String, ByVal sKeyName As String, ByVal KeyValue As String) As Boolean
Public Declare Function GetBinaryValue Lib "SuperDLL.dll" (ByVal sKey As String, ByVal sKeyName As String) As String
Public Declare Function SetStringValue Lib "SuperDLL.dll" (ByVal sKey As String, ByVal sKeyName As String, ByVal KeyValue As String) As Boolean
Public Declare Function GetStringValue Lib "SuperDLL.dll" (ByVal sKey As String, ByVal sKeyName As String) As String
Public Declare Function CreateKey Lib "SuperDLL.dll" (ByVal sKey As String) As Boolean
Public Declare Function DeleteKey Lib "SuperDLL.dll" (ByVal KeyName As String, Optional ByVal Quiet As Boolean = False) As Boolean
Public Declare Function DeleteKeyValue Lib "SuperDLL.dll" (ByVal sKeyName As String, ByVal sValueName As String, Optional ByVal Quiet As Boolean = False) As Boolean
Public Declare Function KeyExist Lib "SuperDLL.dll" (ByVal sKey As String) As Boolean
Public Declare Function KeyValueExist Lib "SuperDLL.dll" (ByVal sKey As String, ByVal sKeyName As String) As Boolean
Public Declare Function BinToHexR Lib "SuperDLL.dll" (ByVal var1 As String) As String
Public Declare Function BinToDecR Lib "SuperDLL.dll" (ByVal var1 As String) As String
Public Declare Function BinToDecA Lib "SuperDLL.dll" (ByVal var1 As String) As String()
Public Declare Function BinToHexA Lib "SuperDLL.dll" (ByVal var1 As String) As String()
Public Declare Function EnumKey Lib "SuperDLL.dll" (ByVal hMainKey As RegKey, ByVal sSubKey As String, ByVal lIndex As Long, lpStr As Variant) As Boolean
Public Declare Function QueryValue Lib "SuperDLL.dll" (ByVal lPredefinedKey As RegKey, ByVal sKeyName As String, ByVal sValueName As String) As Variant
Public Declare Function isTransparent Lib "SuperDLL.dll" (zForm As Form) As TransType
Public Declare Function GetTrans Lib "SuperDLL.dll" (zForm As Form) As Long
Public Declare Function FadeTo Lib "SuperDLL.dll" (zForm As Form, Optional ByVal Final As Byte = 127, Optional ByVal vStep As Single = 2) As Boolean
Public Declare Function FadeIn Lib "SuperDLL.dll" (zForm As Form, Optional ByVal Final As Byte = 255, Optional ByVal vStep As Single = 2) As Boolean
Public Declare Function FadeOut Lib "SuperDLL.dll" (zForm As Form, Optional ByVal Final As Byte = 0, Optional ByVal vStep As Single = 2) As Boolean
Public Declare Function SetTrans Lib "SuperDLL.dll" (zForm As Form, Optional ByVal vTrans As Byte = 127) As Boolean
Public Declare Function MakeTrans Lib "SuperDLL.dll" (zForm As Form, Optional ByVal TransColor As Long = &HFF00FF) As Boolean
Public Declare Function MakeOpaque Lib "SuperDLL.dll" (zForm As Form) As Boolean
Public Declare Function FormDrag Lib "SuperDLL.dll" (TheForm As Object) As Long
Public Declare Function ShapeMe Lib "SuperDLL.dll" (zFormOrPictBox As Object, Optional ByVal Color As Long = &HFF00FF, Optional ByVal HorizontalScan As Boolean = True) As Long
Public Declare Function MakeTransparent Lib "SuperDLL.dll" (TransForm As Form, Optional ByVal zShapeForm As Boolean = True) As Long
Public Declare Function ChangeMask Lib "SuperDLL.dll" (zForm As Form, zPictBox As PictureBox, Optional ByVal lngTransColor As Long = &HFFFFFF) As Long
Public Declare Function InitXP Lib "SuperDLL.dll" () As Boolean
Public Declare Function isKeyDown Lib "SuperDLL.dll" (ByVal zkey As VirtualKey) As Boolean
Public Declare Function isAnyKeyDown Lib "SuperDLL.dll" (Optional ByVal IgnoreMouse As Boolean = False, Optional ByVal IgnoreLocksKeys As Boolean = False) As Boolean
Public Declare Function IsCharAlpha Lib "SuperDLL.dll" (ByVal cChar As Byte) As Boolean
Public Declare Function IsCharAlphaNumeric Lib "SuperDLL.dll" (ByVal cChar As Byte) As Boolean
Public Declare Function IsCharNumeric Lib "SuperDLL.dll" (ByVal cChar As Byte) As Boolean
Public Declare Function IsCharLower Lib "SuperDLL.dll" (ByVal cChar As Byte) As Boolean
Public Declare Function IsCharUpper Lib "SuperDLL.dll" (ByVal cChar As Byte) As Boolean
Public Declare Function IsStringNumeric Lib "SuperDLL.dll" (ByVal cString As String, Optional ByVal WithNegative As Boolean = True, Optional ByVal WithDecimal As Boolean = True) As Boolean
Public Declare Sub Sleep Lib "SuperDLL.dll" (ByVal dwMilliseconds As Long)
Public Declare Sub Sleep2 Lib "SuperDLL.dll" (ByVal dwMilliseconds As Long)
Public Declare Function StopFlash Lib "SuperDLL.dll" (zForm As Form) As Long
Public Declare Function Flash Lib "SuperDLL.dll" (zForm As Form, Optional ByVal NumberTimes As Long = 0) As Long
Public Declare Function GetAbout Lib "SuperDLL.dll" (zApp As App) As String
Public Declare Function GetMemory Lib "SuperDLL.dll" () As MemoryStatus
Public Declare Function vbExecute Lib "SuperDLL.dll" (ByVal var1 As String, Optional ByVal ShowError As Boolean = False) As Long
Public Declare Sub End2 Lib "SuperDLL.dll" (ByVal uExitCode As Long)
Public Declare Function Exec Lib "SuperDLL.dll" (ByVal CmdLine As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus) As Boolean
Public Declare Function Exec2 Lib "SuperDLL.dll" (ByVal CmdLine As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus, Optional ByVal pclass As PRIORITY_CLASS = NORMAL_PRIORITY) As Boolean
Public Declare Function GetExitCode Lib "SuperDLL.dll" (ByVal CmdLine As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus, Optional ByVal zWait As Boolean = False, Optional ByVal pclass As PRIORITY_CLASS = NORMAL_PRIORITY) As Variant
Public Declare Function GetCPU Lib "SuperDLL.dll" () As CPU_INFO
Public Declare Function DaysInMonth Lib "SuperDLL.dll" (ByVal zMonth As Integer, Optional ByVal zYear As Integer = 1000) As Integer
Public Declare Function IsDebug Lib "SuperDLL.dll" () As Boolean
Public Declare Sub PBarForeColor Lib "SuperDLL.dll" (ByVal PBarHwnd As Long, ByVal zColor As Long)
Public Declare Sub PBarBackColor Lib "SuperDLL.dll" (ByVal PBarHwnd As Long, ByVal zColor As Long)
Public Declare Sub PBarColor Lib "SuperDLL.dll" (ByVal PBarHwnd As Long, ByVal zForeColor As Long, ByVal zBackColor As Long)
Public Declare Function isNT2000XP Lib "SuperDLL.dll" () As Boolean
Public Declare Function is2000XP Lib "SuperDLL.dll" () As Boolean
Public Declare Function isXP Lib "SuperDLL.dll" () As Boolean
Public Declare Function SHUTDOWN Lib "SuperDLL.dll" (Optional ByVal FT As ForceType = EWX_FORCEIFHUNG, Optional ByVal SDT As ShutDownType = EWX_SHUTDOWN) As Long
Public Declare Function LOGOFF Lib "SuperDLL.dll" (Optional ByVal FT As ForceType = EWX_FORCEIFHUNG) As Long
Public Declare Function REBOOT Lib "SuperDLL.dll" (Optional ByVal FT As ForceType = EWX_FORCEIFHUNG) As Long
Public Declare Function POWEROFF Lib "SuperDLL.dll" (Optional ByVal FT As ForceType = EWX_FORCEIFHUNG) As Long
Public Declare Function LockComputer Lib "SuperDLL.dll" () As Long
Public Declare Function GetWindowsVersion Lib "SuperDLL.dll" () As WindowsVersionInfo
Public Declare Function GetUserName Lib "SuperDLL.dll" () As String
Public Declare Function GetComputerName Lib "SuperDLL.dll" () As String
Public Declare Function GetWindowsDir Lib "SuperDLL.dll" () As String
Public Declare Function GetSystemDir Lib "SuperDLL.dll" () As String
Public Declare Function GetTempDir Lib "SuperDLL.dll" () As String
Public Declare Function GetTempFile Lib "SuperDLL.dll" () As String
Public Declare Function ShowAbout Lib "SuperDLL.dll" (zApp As App, Optional zForm As Form = Nothing) As Long
Public Declare Function GetSpecialFolder Lib "SuperDLL.dll" (CSIDL As DIR_ID) As String
Public Declare Function GetWindowsDescription Lib "SuperDLL.dll" () As String
Public Declare Function GetRegisteredUser Lib "SuperDLL.dll" () As String
Public Declare Function GetOrganization Lib "SuperDLL.dll" () As String