'================================================================
'= ウィンドウを全て最小化

'=    (keybd_event2.bas)
'================================================================
#include "Windows.bi"

' 特殊キーの状態を設定
Declare Sub Api_keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As byte, ByVal bScan As byte, ByVal dwFlags&, ByVal dwExtraInfo&)

#define KEYEVENTF_EXTENDEDKEY &H1       'スキャンコードにプリフィックスバイト0xE0(224)を付加
#define KEYEVENTF_KEYUP &H2             'キーを放す

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Api_keybd_event &H5B, 0, 0, 0                  'Windowsキー
    Api_keybd_event &H4D, 0, 0, 0                  'Dキーを押下
    Api_keybd_event &H5B, 0, KEYEVENTF_KEYUP, 0    'キーを離す
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End