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)