Public Class Form1
'Vars
Public _APP_ As String
'Booleans
Public shift_key_down As Boolean = False
Public caplock_on As Boolean = False
'onLoad
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Process.Start("Notepad")
Me.TopMost = True
End Sub
'Subs
Public Sub set_shift()
If shift_key_down = False Then
shift_key_down = True
Button55.ForeColor = System.Drawing.Color.Green
ElseIf shift_key_down = True Then
shift_key_down = False
Button55.ForeColor = System.Drawing.Color.Black
End If
End Sub
Public Sub set_caps()
If caplock_on = True Then
caplock_on = False
Button41.ForeColor = System.Drawing.Color.Black
ElseIf caplock_on = False Then
caplock_on = True
Button41.ForeColor = System.Drawing.Color.Green
End If
End Sub
Public Sub Send_Key(var1, var2)
_APP_ = TextBox1.Text.ToString
AppActivate(_APP_)
If caplock_on = True Or shift_key_down = True Or (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then
System.Windows.Forms.SendKeys.Send(var1)
Else
System.Windows.Forms.SendKeys.Send(var2)
End If
If shift_key_down = True Then
set_shift()
End If
Threading.Thread.Sleep(10) 'This stops a random bug where this window is refocused before keypress is "done"
Me.TopMost = True
End Sub
Public Sub Hide_Specials()
Button43.Enabled = False
Button43.Visible = False
End Sub
Public Sub Close_Latest_Notepad()
Dim proc = Process.GetProcessesByName("notepad")
Dim last = proc.Count - 1
If last >= 0 Then
proc(last).CloseMainWindow()
End If
End Sub
'onClicks
Private Sub Button55_Click(sender As Object, e As EventArgs) Handles Button55.Click
set_shift()
End Sub
Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
set_caps()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Send_Key("{Ё}", "{ё}")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Send_Key("{!}", "{1}")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Send_Key("{@}", "{2}")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Send_Key("{#}", "{3}")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Send_Key("{$}", "{4}")
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Send_Key("{%}", "{5}")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Send_Key("{^}", "{6}")
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Send_Key("{&}", "{7}")
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Send_Key("{*}", "{8}")
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Send_Key("{(}", "{9}")
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Send_Key("{)}", "{0}")
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
Send_Key("{_}", "{-}")
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
Send_Key("{+}", "{=}")
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Send_Key("{BACKSPACE}", "{BACKSPACE}")
End Sub
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
Send_Key("{TAB}", "{TAB}")
End Sub
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
Send_Key("{Й}", "{й}")
End Sub
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
Send_Key("{Ц}", "{ц}")
End Sub
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
Send_Key("{У}", "{у}")
End Sub
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
Send_Key("{К}", "{к}")
End Sub
Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
Send_Key("{Е}", "{е}")
End Sub
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
Send_Key("{Н}", "{н}")
End Sub
Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
Send_Key("{Г}", "{г}")
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
Send_Key("{Ш}", "{ш}")
End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
Send_Key("{Щ}", "{щ}")
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Send_Key("{З}", "{з}")
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
Send_Key("{Х}", "{х}")
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
Send_Key("{Ъ}", "{ъ}")
End Sub
Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click
Send_Key("{/}", "{\}")
End Sub
Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
Send_Key("{Ф}", "{ф}")
End Sub
Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click
Send_Key("{Ы}", "{ы}")
End Sub
Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
Send_Key("{В}", "{в}")
End Sub
Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
Send_Key("{А}", "{а}")
End Sub
Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
Send_Key("{П}", "{п}")
End Sub
Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
Send_Key("{Р}", "{р}")
End Sub
Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
Send_Key("{О}", "{о}")
End Sub
Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
Send_Key("{Л}", "{л}")
End Sub
Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
Send_Key("{Д}", "{д}")
End Sub
Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
Send_Key("{Ж}", "{ж}")
End Sub
Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
Send_Key("{Э}", "{э}")
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
Send_Key("{ENTER}", "{ENTER}")
End Sub
Private Sub Button54_Click(sender As Object, e As EventArgs) Handles Button54.Click
Send_Key("{Я}", "{я}")
End Sub
Private Sub Button53_Click(sender As Object, e As EventArgs) Handles Button53.Click
Send_Key("{Ч}", "{ч}")
End Sub
Private Sub Button52_Click(sender As Object, e As EventArgs) Handles Button52.Click
Send_Key("{С}", "{с}")
End Sub
Private Sub Button51_Click(sender As Object, e As EventArgs) Handles Button51.Click
Send_Key("{М}", "{м}")
End Sub
Private Sub Button50_Click(sender As Object, e As EventArgs) Handles Button50.Click
Send_Key("{И}", "{и}")
End Sub
Private Sub Button49_Click(sender As Object, e As EventArgs) Handles Button49.Click
Send_Key("{Т}", "{т}")
End Sub
Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click
Send_Key("{Ь}", "{ь}")
End Sub
Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
Send_Key("{Б}", "{б}")
End Sub
Private Sub Button46_Click(sender As Object, e As EventArgs) Handles Button46.Click
Send_Key("{Ю}", "{ю}")
End Sub
Private Sub Button61_Click(sender As Object, e As EventArgs) Handles Button61.Click
Send_Key("{<}", "{.}")
End Sub
Private Sub Button56_Click(sender As Object, e As EventArgs) Handles Button56.Click
Send_Key("{>}", "{,}")
End Sub
Private Sub Button60_Click(sender As Object, e As EventArgs) Handles Button60.Click
Send_Key("{{}", "{[}")
End Sub
Private Sub Button57_Click(sender As Object, e As EventArgs) Handles Button57.Click
Send_Key("{}}", "{]}")
End Sub
Private Sub Button59_Click(sender As Object, e As EventArgs) Handles Button59.Click
Send_Key(" ", " ")
End Sub
Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click
Send_Key("{~}", "{`}")
End Sub
Private Sub Button58_Click(sender As Object, e As EventArgs) Handles Button58.Click
Send_Key("{DELETE}", "{DELETE}")
End Sub
Private Sub Button62_Click(sender As Object, e As EventArgs) Handles Button62.Click
Send_Key("{INSERT}", "{INSERT}")
End Sub
Private Sub Button63_Click(sender As Object, e As EventArgs) Handles Button63.Click
Send_Key("{HOME}", "{HOME}")
End Sub
Private Sub Button66_Click(sender As Object, e As EventArgs) Handles Button66.Click
Send_Key("{END}", "{END}")
End Sub
Private Sub Button80_Click(sender As Object, e As EventArgs) Handles Button80.Click
Send_Key("{Дж}", "{дж}")
End Sub
Private Sub Button81_Click(sender As Object, e As EventArgs) Handles Button81.Click
Send_Key("{HELP}", "{HELP}")
End Sub
Private Sub Button65_Click(sender As Object, e As EventArgs) Handles Button65.Click
Send_Key("{PRTSC}", "{PRTSC}")
End Sub
Private Sub Button79_Click(sender As Object, e As EventArgs) Handles Button79.Click
Send_Key("{F1}", "{F1}")
End Sub
Private Sub Button78_Click(sender As Object, e As EventArgs) Handles Button78.Click
Send_Key("{F2}", "{F2}")
End Sub
Private Sub Button77_Click(sender As Object, e As EventArgs) Handles Button77.Click
Send_Key("{F3}", "{F3}")
End Sub
Private Sub Button76_Click(sender As Object, e As EventArgs) Handles Button76.Click
Send_Key("{F4}", "{F4}")
End Sub
Private Sub Button75_Click(sender As Object, e As EventArgs) Handles Button75.Click
Send_Key("{F5}", "{F5}")
End Sub
Private Sub Button74_Click(sender As Object, e As EventArgs) Handles Button74.Click
Send_Key("{F6}", "{F6}")
End Sub
Private Sub Button73_Click(sender As Object, e As EventArgs) Handles Button73.Click
Send_Key("{F7}", "{F7}")
End Sub
Private Sub Button72_Click(sender As Object, e As EventArgs) Handles Button72.Click
Send_Key("{F8}", "{F8}")
End Sub
Private Sub Button71_Click(sender As Object, e As EventArgs) Handles Button71.Click
Send_Key("{F9}", "{F9}")
End Sub
Private Sub Button70_Click(sender As Object, e As EventArgs) Handles Button70.Click
Send_Key("{F10}", "{F10}")
End Sub
Private Sub Button69_Click(sender As Object, e As EventArgs) Handles Button69.Click
Send_Key("{F11}", "{F11}")
End Sub
Private Sub Button68_Click(sender As Object, e As EventArgs) Handles Button68.Click
Send_Key("{F12}", "{F12}")
End Sub
Private Sub Button64_Click(sender As Object, e As EventArgs) Handles Button64.Click
Send_Key("{PGUP}", "{PGUP}")
End Sub
Private Sub Button67_Click(sender As Object, e As EventArgs) Handles Button67.Click
Send_Key("{PGDN}", "{PGDN}")
End Sub
Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
Process.Start("explorer.exe", My.Computer.FileSystem.SpecialDirectories.Desktop)
End Sub
Private Sub Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click
Send_Key("{ей}", "{ей}")
End Sub
Private Sub Button82_Click(sender As Object, e As EventArgs) Handles Button82.Click
Close_Latest_Notepad()
End Sub
Private Sub Button83_Click(sender As Object, e As EventArgs) Handles Button83.Click
AppActivate(TextBox1.Text.ToString)
System.Windows.Forms.SendKeys.SendWait("^a")
Send_Key("{DELETE}", "{DELETE}")
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
FindProcess.Show()
End Sub
'onClose
Private Sub Form1_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Close_Latest_Notepad()
End Sub
End Class
Comments