Private Declare Function GetVersionExA Lib "KERNEL32.DLL" ( _ ByRef pVersionInfo As OSVERSIONINFO _ ) As Integer Private Declare Sub keybd_event Lib "USER32.DLL" ( _ ByVal bVk As Long, _ ByVal bScan As Long, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long _ ) Private Const VK_SNAPSHOT As Long = &H2C Private Const VK_MENU As Long = &H12 Private Const KEYEVENTF_KEYUP As Long = &H2
Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type
