08/03/01 08:16:12
(>>866の続き)
Public Sub printScreen()
Dim pVersionInfo As OSVERSIONINFO
pVersionInfo.dwOSVersionInfoSize = Len(pVersionInfo)
If pVersionInfo.dwMajorVersion >= 5 Then
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
Else
Call keybd_event(VK_MENU, 0, 0, 0)
Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)
End If
End Sub