時間指定自動クリックプログラム

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer,
                                              ByVal dy As Integer, ByVal cButtons As Integer,
                                              ByVal dwExtraInfo As Integer)

Private Const MOUSEEVENTF_LEFTUP As Integer = &H4
Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2

Dim TextBox_H() As TextBox, TextBox_M() As TextBox, TextBox_S() As TextBox, TextBox_X() As TextBox, TextBox_Y() As TextBox
Dim N_Click As Integer, Click_Time(,) As Integer, Click_Position(,) As Integer
Dim Coord_SetMode As Integer

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

    If e.KeyCode = Keys.Escape Then
        e.Handled = True
        Label_Mode.BackColor = Color.White
        Coord_SetMode = 0
    End If

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    TextBox_H = New TextBox() {TextBox_H1, TextBox_H2, TextBox_H3, TextBox_H4, TextBox_H5}
    TextBox_M = New TextBox() {TextBox_M1, TextBox_M2, TextBox_M3, TextBox_M4, TextBox_M5}
    TextBox_S = New TextBox() {TextBox_S1, TextBox_S2, TextBox_S3, TextBox_S4, TextBox_S5}
    TextBox_X = New TextBox() {TextBox_X1, TextBox_X2, TextBox_X3, TextBox_X4, TextBox_X5}
    TextBox_Y = New TextBox() {TextBox_Y1, TextBox_Y2, TextBox_Y3, TextBox_Y4, TextBox_Y5}

    ReDim Click_Time(2, TextBox_H.Length)
    ReDim Click_Position(1, TextBox_H.Length)

    Button_Stop.Enabled = False
    Coord_SetMode = 0

End Sub

Private Sub Button_Start_Click(sender As Object, e As EventArgs) Handles Button_Start.Click

    N_Click = TextBox_H.Length
    For i = 1 To TextBox_H.Length
        If TextBox_H(i - 1).Text = "" Then
            N_Click = i - 1
            Exit For
        End If

        Click_Time(0, i - 1) = Val(TextBox_H(i - 1).Text)
        Click_Time(1, i - 1) = Val(TextBox_M(i - 1).Text)
        Click_Time(2, i - 1) = Val(TextBox_S(i - 1).Text)
        Click_Position(0, i - 1) = Val(TextBox_X(i - 1).Text)
        Click_Position(1, i - 1) = Val(TextBox_Y(i - 1).Text)
    Next i

    Button_Start.Enabled = False
    Button_Stop.Enabled = True
    Timer1.Enabled = True

End Sub

Private Sub Button_Stop_Click(sender As Object, e As EventArgs) Handles Button_Stop.Click

    Button_Start.Enabled = True
    Button_Stop.Enabled = False
    Timer1.Enabled = False

End Sub

Private Sub Label_Mode_Click(sender As Object, e As EventArgs) Handles Label_Mode.Click

    If Coord_SetMode = 0 Then
        Label_Mode.BackColor = Color.Cyan
        Coord_SetMode = 1
    Else
        Label_Mode.BackColor = Color.White
        Coord_SetMode = 0
    End If

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    Dim DateNow As Date = Date.Now
    Dim iHour As Integer = DateNow.Hour
    Dim iMinute As Integer = DateNow.Minute
    Dim iSecond As Integer = DateNow.Second

    For i = 1 To N_Click
        If iHour = Click_Time(0, i - 1) And iMinute = Click_Time(1, i - 1) And iSecond = Click_Time(2, i - 1) Then
            Cursor.Position = New Point(Click_Position(0, i - 1), Click_Position(1, i - 1))
            Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
            Exit For
        End If
    Next i

End Sub

Private Sub TextBox_X_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox_X1.KeyPress,
                                                                                 TextBox_X2.KeyPress,
                                                                                 TextBox_X3.KeyPress,
                                                                                 TextBox_X4.KeyPress,
                                                                                 TextBox_X5.KeyPress

    For i = 1 To TextBox_X.Length
        If sender.name = TextBox_X(i - 1).Name Then
            If e.KeyChar = ChrW(Keys.Enter) Then
                e.Handled = True
                If Coord_SetMode = 1 Then
                    Dim Mouse_X As Integer = Cursor.Position.X
                    Dim Mouse_Y As Integer = Cursor.Position.Y
                    TextBox_X(i - 1).Text = Mouse_X
                    TextBox_Y(i - 1).Text = Mouse_Y
                End If
            End If
            Exit For
        End If
    Next i

End Sub