Wenn ich Dein Problem richtig verstehe, möchtest Du herausfinden, welche OS-Version läuft und anhand dieser Version die Codes senden.
Ich habe ein kleines VB-Listing mitgesendet. Wenn die Sub erfolgreich
beendet wurde, kannst Du Dir mit dwMajorVersion die Versionsnummer
auslesen. Schon kannst Du die Befehle entsprechend absetzen
Bis denn dann.
T-Rex
--------------------
Option Explicit
Public Enum eOSVersionName
VER_PLATFORM_WIN32S = 0 ' Win32s on Win 3.1
VER_PLATFORM_WIN32_WINDOWS = 1 ' Win32 on Win 95+
VER_PLATFORM_WIN32_NT = 2 ' Win32 on Win NT
End Enum
Private Type tOSVersionInfo
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformID As Long
szCSDVersion(0 To 127) As Byte
End Type
Private OSVersionInfo As tOSVersionInfo
Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" _
(lpVersionInfo As tOSVersionInfo) As Boolean
Private Function GetOSVersion() As Integer
' Größe des Datentypes berechnen. WICHTIG für die API!!!
OSVersionInfo.dwOSVersionInfoSize = Len(OSVersionInfo)
' Rückgabewert setzen
If GetVersionEx(OSVersionInfo) Then
GetOSVersion = vbYes
Else
GetOSVersion = vbNo
End If
End Function