AUTO CLICK NO TECLADO

Const SC_MONITORPOWER As Integer = &HF170
    Const MONITOR_ON As Integer = (-1)
    Const MONITOR_OFF As Integer = 2
    Const WM_SYSCOMMAND As Integer = &H112

    Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] (ByVal hWnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF)
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tecla.F1.press
    End Sub 

Key.Send{F12}

Public Class Form1
    [ô] estrutura necessária para chamada da API
    Private Structure OSVERSIONINFO
        Dim dwOSVersionInfoSize As Integer
        Dim dwMajorVersion As Integer
        Dim dwMinorVersion As Integer
        Dim dwBuildNumber As Integer
        Dim dwPlatformId As Integer
        <VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public szCSDVersion As String [ô] Maintenance string for PSS usage
    End Structure

    Private Declare Function GetVersionEx Lib [Ô]kernel32[Ô] Alias [Ô]GetVersionExA[Ô] (ByRef lpVersionInformation As OSVERSIONINFO) As Integer
    Private Declare Sub keybd_event Lib [Ô]user32[Ô] (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private Declare Function GetKeyboardState Lib [Ô]user32[Ô] (ByRef pbKeyState As Byte) As Integer
    Private Declare Function SetKeyboardState Lib [Ô]user32[Ô] (ByRef lppbKeyState As Byte) As Integer

    [ô]Costantes necessárias
    Const VK_NUMLOCK As Short = &H90S
    Const VK_SCROLL As Short = &H91S
    Const VK_CAPITAL As Short = &H14S
    Const KEYEVENTF_EXTENDEDKEY As Short = &H1S
    Const KEYEVENTF_KEYUP As Short = &H2S
    Const VER_PLATFORM_WIN32_NT As Short = 2
    Const VER_PLATFORM_WIN32_WINDOWS As Short = 1
    Const VK_f1 As Short = 113

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim o As OSVERSIONINFO
        Dim NumLockState As Boolean
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx(o)
        Dim keys(255) As Byte
        GetKeyboardState(keys(0))

        [ô]NUMLOCK
        NumLockState = keys(VK_NUMLOCK)
        [ô]Verifica estado do NUMLOCK, se estiver desativado -> ativa-o
        If NumLockState <> True Then
            If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then [ô]=== Win95/98
                keys(VK_NUMLOCK) = 1
                SetKeyboardState(keys(0))
            ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then [ô]=== WinNT
                [ô]Key Press
                keybd_event(VK_NUMLOCK, &H45S, KEYEVENTF_EXTENDEDKEY Or 0, 0)
                [ô]Key Release
                keybd_event(VK_NUMLOCK, &H45S, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
            End If
        Else [ô]se estiver ativado -> desativa-o
            If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then [ô]=== Win95/98
                keys(VK_NUMLOCK) = 0
                SetKeyboardState(keys(0))
            ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then [ô]=== WinNT
                [ô]Key Press
                keybd_event(VK_NUMLOCK, &H45S, KEYEVENTF_EXTENDEDKEY Or 0, 0)
                [ô]Key Release
                keybd_event(VK_NUMLOCK, &H45S, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim o As OSVERSIONINFO
        Dim CapsLockState As Boolean
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx(o)
        Dim keys(255) As Byte
        GetKeyboardState(keys(0))

        [ô]CAPSLOCK
        CapsLockState = keys(VK_CAPITAL)

        [ô]Verifica o estado do CAPSLOCK - se estiver desativado -> ativa-o
        If CapsLockState <> True Then
            If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then [ô]=== Win95/98
                keys(VK_CAPITAL) = 1
                SetKeyboardState(keys(0))
            ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then [ô]=== WinNT
                [ô]Key Press
                keybd_event(VK_CAPITAL, &H45S, KEYEVENTF_EXTENDEDKEY Or 0, 0)
                [ô]Key Release
                keybd_event(VK_CAPITAL, &H45S, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
            End If
        Else [ô]se estiver ativado -> desativa-o
            If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then [ô]=== Win95/98
                keys(VK_CAPITAL) = 0
                SetKeyboardState(keys(0))
            ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then [ô]=== WinNT
                [ô]Key Press
                keybd_event(VK_CAPITAL, &H45S, KEYEVENTF_EXTENDEDKEY Or 0, 0)
                [ô]Key Release
                keybd_event(VK_CAPITAL, &H45S, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
            End If
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim o As OSVERSIONINFO
        Dim F1_test As Boolean
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx(o)
        Dim keys(255) As Byte
        GetKeyboardState(keys(0))

        [ô]CAPSLOCK
        F1_test = keys(VK_f1)

        [ô]Verifica o estado do CAPSLOCK - se estiver desativado -> ativa-o

        If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then [ô]=== Win95/98
            keys(VK_f1) = 1
            SetKeyboardState(keys(0))
        ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then [ô]=== WinNT
            [ô]Key Press
            keybd_event(VK_f1, 113, KEYEVENTF_EXTENDEDKEY Or 0, 0)
            [ô]Key Release
            keybd_event(VK_f1, 113, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
        End If
    End Sub
End Class