08/03/01 08:15:23
>>864
(っ´▽｀)っ
暇なので作ってみたよ☆
Option Explicit
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
(次レスに続く)