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　→　再生したいファイルと同期設定（０→同期、１→非同期再生）

例：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　→　ｘ座標　変数.y　→　Ｙ座標

例：GetCursorPos（変数）　〇〇 = 変数.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 〇〇,△△　→　ｘ座標を〇〇に、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）