Excel VBA質問スレ Part5

Excel VBA質問スレ Part5 at TECH

866:入院中の側近 ◆0351148456
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

(次レスに続く)

次ページ

続きを表示

1を表示