API名 「機能」
宣言文:宣言セクションに記述する内容(コピペ用)
使用方法:実際に使用する際の記述方法
例:使用例と結果の例
Sleep 「指定した時間中断」
宣言文:Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
使用方法:Sleep 〇〇 → 実行を中断したいミリ秒を記述
例:Sleep 100 → 100ミリ秒実行を中断
GetTickCount 「時間を取得」
宣言文:Declare PtrSafe Function GetTickCount Lib “kernel32” () As Long
使用方法:GetTickCount → Windows起動後の経過時間をミリ秒単位で取得
例:let 変数 = GetTickCount → 変数に起動後の時間を代入する
mciSendString 「音声ファイルを再生」 → MP3・MIDI・Wav
宣言文:Declare PtrSafe Function mciSendString Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String,ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
使用方法:mciSendString "コマンド "&"ファイル名","",0,0 → 指定したコマンドの操作を指定したファイルに実行
注※コマンドとファイル名の間に半角スペースが必要
例:mciSendString ”play ” & "music.mp3",””,0,0 → 指定したファイルを再生する
例:mciSendString ”stop ” & "music.mp3",””,0,0 → 指定したファイルを停止する
GetAsyncKeyState 「押されたキーを判定」
宣言文:Declare PtrSafe Function GetAsyncKeyState Lib “User32.dll” (ByVal vKey As Long) As Integer
使用方法:GetAsyncKeyState(〇〇) → 押されたか判定したいキーコードを記述
例:GetAsyncKeyState(8) → BackSpaceが押されていたら0以外を返す
sndPlaySound 「音声ファイル再生」 → Wav
宣言文:Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
使用方法:sndPlaySound 〇〇,0 → 再生したいファイルと同期設定(0→同期、1→非同期再生)
例:sndPlaySound music.wav,1 → music.wavというファイルを非同期再生
GetCursorPos Lib 「マウスカーソル座標取得」
宣言文:Declare PtrSafe Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
ユーザー定義型
Type POINTAPI
x As Long
y As Long
End Type
使用方法:定義 Dim 変数 As POINTAPI 使用 GetCursorPos 変数 変数.x → x座標 変数.y → Y座標
例:GetCursorPos(変数) 〇〇 = 変数.x → x座標を取得して〇〇に代入
ShowCursor 「マウスカーソルの表示・非表示」
宣言文:Declare PtrSafe Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
使用方法:ShowCursor True → 表示(Falseで非表示)
※EndSubで終了してもカーソルはそのまま非表示の為、Trueにして元に戻すことを忘れないように
SetCursorPos 「マウスカーソルの座標設定」
宣言文:Declare PtrSafe Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
使用方法:SetCursorPos 〇〇,△△ → x座標を〇〇に、y座標を△△にする
mouse_event 「マウスの動作を設定」
宣言文:Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, Optional ByVal dx As Long = 0, Optional ByVal dy As Long = 0, Optional ByVal cButtons As Long = 0, Optional ByVal dwExtraInfo As LongPtr = 0)
使用方法:mouse_event 〇 例:mouse_event 2 → 左ボタンを押す
Const MOUSEEVENTF_LEFTDOWN = &H2 → 左ボタンを押す(2)
Const MOUSEEVENTF_LEFTUP = &H4 → 左ボタンを離す(4)
Const MOUSEEVENTF_RIGHTDOWN = &H8 → 右ボタンを押す(8)
Const MOUSEEVENTF_RIGHTUP = &H10 → 右ボタンを離す(16)