'================================================================
'= スタートメニューを開く

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

' 仮想キーコード・ASCII値・スキャンコード間でコードを変換
Declare Function Api_MapVirtualKey& Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode&, ByVal wMapType&)

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

#define KEYEVENTF_KEYUP &H2             'キーを放す
#define MENU_KEYCODE 91

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Api_keybd_event MENU_KEYCODE, 0, 0, 0
    Api_keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
End Sub

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