Option Explicit

Const ME_TITLE = "クリック位置周辺を矩形にキャプチャー"
Dim LoopSw As Boolean
    


Option Explicit

Private Sub Command1_Click()

    Dim lngRc As Long         'APIの返却値
    
    Command1.Enabled = False     'コマンドボタンを無効
    
    '-------------------------------------
    ' メモ帳を起動
    '-------------------------------------
    lngRc = Shell(Environ("WINDIR") & "\NOTEPAD.EXE", vbNormalFocus) '起動
    Sleep 100               '0.1秒待つ（起動完了）
    
    '-------------------------------------
    ' 送信
    '-------------------------------------
    Dim strDt As String

    '-------------------------------------
    ' １文字ずつ送信　50ミリ(0.05)秒間隔
    '-------------------------------------
    Dim i As Long
    
    For i = 1 To Len(Text1.Text) '文字数分繰り返す
        strDt = Mid(Text1.Text, i, 1)     '１文字
        Clipboard.Clear         'クリップボードをクリア
        Clipboard.SetText strDt           'クリップボードにコピー
        Call KeyEvent(VK_CTRL, KEY_DOWN)  'コントロールキーを押下
        Sleep 1
        Call KeyEvent(VK_V, KEY_DOWN)     '「ｖ」キー押下（貼り付け）
        Sleep 1
        Call KeyEvent(VK_V, KEY_UP)       '「ｖ」キーを離す
        Sleep 1
        Call KeyEvent(VK_CTRL, KEY_UP)    'コントロールキーを離す
        Sleep 50    '指定ミリ秒待つ
    Next i
    
'    '-------------------------------
'    ' 全ての文字を一度に送信する場合は
'    ' 下記のようにする。
'    '-------------------------------
'    Clipboard.Clear                'クリップボードをクリア
'    Clipboard.SetText Text1.Text   'クリップボードにコピー
'    Call KeyEvent(VK_CTRL, KEY_DOWN)  'コントロールキーを押下
'    Call KeyEvent(VK_V, KEY_DOWN)     '「ｖ」キー押下（貼り付け）
'    Call KeyEvent(VK_V, KEY_UP)       '「ｖ」キーを離す
'    Call KeyEvent(VK_CTRL, KEY_UP)    'コントロールキーを離す

    Command1.Enabled = True     'コマンドボタンを有効
    
End Sub

Private Sub Form_Load()
    Text1.Text = "SendInput を使った「メモ帳」への入力" & vbCrLf & _
                "1文字0.05秒" & vbCrLf & _
                vbCrLf & _
                "寿限無､寿限無" & vbCrLf & _
                "五劫の擦り切れ" & vbCrLf & _
                "海砂利水魚の" & vbCrLf & _
                "水行末 雲来末 風来末" & vbCrLf & _
                "食う寝る処に住む処" & vbCrLf & _
                "やぶら小路の藪柑子" & vbCrLf & _
                "パイポパイポ パイポのシューリンガン" & vbCrLf & _
                "シューリンガンのグーリンダイ" & vbCrLf & _
                "グーリンダイのポンポコピーのポンポコナーの" & vbCrLf & _
                "長久命の長助"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub