Binary Typer

What Does it Do?
The binary typer will take what key you press, delete it, and paste in the binary for that letter.
Annoying your friends on Facebook just got so much easier.

Screenshot

Virus Scans
VirusTotal
Jotti

Code

Code:

Public Class mainform
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16 ' This makes it Compatible for 32-Bit and 64-Bit Users
    Private Sub tmrA_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrA.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(65)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100001 ")
            tmrA.Enabled = False
            cdA.Enabled = True
        End If
    End Sub
    Private Sub cdA_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdA.Tick
        tmrA.Enabled = True
        cdA.Enabled = False
    End Sub
    Private Sub tmrB_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrB.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(66)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100010 ")
            tmrB.Enabled = False
            cdB.Enabled = True
        End If
    End Sub
    Private Sub cdB_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdB.Tick
        tmrB.Enabled = True
        cdB.Enabled = False
    End Sub
    Private Sub tmrC_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrC.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(67)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100011 ")
            tmrC.Enabled = False
            cdC.Enabled = True
        End If
    End Sub
    Private Sub cdC_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdC.Tick
        tmrC.Enabled = True
        cdC.Enabled = False
    End Sub
    Private Sub tmrD_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrD.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(68)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100100 ")
            tmrD.Enabled = False
            cdD.Enabled = True
        End If
    End Sub
    Private Sub cdD_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdD.Tick
        tmrD.Enabled = True
        cdD.Enabled = False
    End Sub
    Private Sub tmrE_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrE.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(69)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100101 ")
            tmrE.Enabled = False
            cdE.Enabled = True
        End If
    End Sub
    Private Sub cdE_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdE.Tick
        tmrE.Enabled = True
        cdE.Enabled = False
    End Sub
    Private Sub tmrF_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrF.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(70)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100110 ")
            tmrF.Enabled = False
            cdF.Enabled = True
        End If
    End Sub
    Private Sub cdF_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdF.Tick
        tmrF.Enabled = True
        cdF.Enabled = False
    End Sub
    Private Sub tmrG_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrG.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(71)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100111 ")
            tmrG.Enabled = False
            cdG.Enabled = True
        End If
    End Sub
    Private Sub cdG_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdG.Tick
        tmrG.Enabled = True
        cdG.Enabled = False
    End Sub
    Private Sub tmrH_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrH.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(72)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101000 ")
            tmrH.Enabled = False
            cdH.Enabled = True
        End If
    End Sub
    Private Sub cdH_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdH.Tick
        tmrH.Enabled = True
        cdH.Enabled = False
    End Sub
    Private Sub tmrI_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrI.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(73)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101001 ")
            tmrI.Enabled = False
            cdI.Enabled = True
        End If
    End Sub
    Private Sub cdI_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdI.Tick
        tmrI.Enabled = True
        cdI.Enabled = False
    End Sub
    Private Sub tmrJ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrJ.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(74)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101010 ")
            tmrJ.Enabled = False
            cdJ.Enabled = True
        End If
    End Sub
    Private Sub cdJ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdJ.Tick
        tmrJ.Enabled = True
        cdJ.Enabled = False
    End Sub
    Private Sub tmrK_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrK.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(75)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101011 ")
            tmrK.Enabled = False
            cdK.Enabled = True
        End If
    End Sub
    Private Sub cdK_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdK.Tick
        tmrK.Enabled = True
        cdK.Enabled = False
    End Sub
    Private Sub tmrL_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrL.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(76)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101100 ")
            tmrL.Enabled = False
            cdL.Enabled = True
        End If
    End Sub
    Private Sub cdL_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdL.Tick
        tmrL.Enabled = True
        cdL.Enabled = False
    End Sub
    Private Sub tmrM_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrM.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(77)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101101 ")
            tmrM.Enabled = False
            cdM.Enabled = True
        End If
    End Sub
    Private Sub cdM_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdM.Tick
        tmrM.Enabled = True
        cdM.Enabled = False
    End Sub
    Private Sub tmrN_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrN.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(78)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101110 ")
            tmrN.Enabled = False
            cdN.Enabled = True
        End If
    End Sub
    Private Sub cdN_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdN.Tick
        tmrN.Enabled = True
        cdN.Enabled = False
    End Sub
    Private Sub tmrO_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrO.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(79)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101111 ")
            tmrO.Enabled = False
            cdO.Enabled = True
        End If
    End Sub
    Private Sub cdO_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdO.Tick
        tmrO.Enabled = True
        cdO.Enabled = False
    End Sub
    Private Sub tmrP_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrP.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(80)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110000 ")
            tmrP.Enabled = False
            cdP.Enabled = True
        End If
    End Sub
    Private Sub cdP_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdP.Tick
        tmrP.Enabled = True
        cdP.Enabled = False
    End Sub
    Private Sub tmrQ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrQ.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(81)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110001 ")
            tmrQ.Enabled = False
            cdQ.Enabled = True
        End If
    End Sub
    Private Sub cdQ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdQ.Tick
        tmrQ.Enabled = True
        cdQ.Enabled = False
    End Sub
    Private Sub tmrR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrR.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(82)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110010 ")
            tmrR.Enabled = False
            cdR.Enabled = True
        End If
    End Sub
    Private Sub cdR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdR.Tick
        tmrR.Enabled = True
        cdR.Enabled = False
    End Sub
    Private Sub tmrS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrS.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(83)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110011 ")
            tmrS.Enabled = False
            cdS.Enabled = True
        End If
    End Sub
    Private Sub cdS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdS.Tick
        tmrS.Enabled = True
        cdS.Enabled = False
    End Sub
    Private Sub tmrT_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrT.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(84)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110100 ")
            tmrT.Enabled = False
            cdT.Enabled = True
        End If
    End Sub
    Private Sub cdT_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdT.Tick
        tmrT.Enabled = True
        cdT.Enabled = False
    End Sub
    Private Sub tmrU_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrU.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(85)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110101 ")
            tmrU.Enabled = False
            cdU.Enabled = True
        End If
    End Sub
    Private Sub cdU_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdU.Tick
        tmrU.Enabled = True
        cdU.Enabled = False
    End Sub
    Private Sub tmrV_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrV.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(86)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110110 ")
            tmrV.Enabled = False
            cdV.Enabled = True
        End If
    End Sub
    Private Sub cdV_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdV.Tick
        tmrV.Enabled = True
        cdV.Enabled = False
    End Sub
    Private Sub tmrW_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrW.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(87)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110111 ")
            tmrW.Enabled = False
            cdW.Enabled = True
        End If
    End Sub
    Private Sub cdW_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdW.Tick
        tmrW.Enabled = True
        cdW.Enabled = False
    End Sub
    Private Sub tmrX_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrX.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(88)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01111000 ")
            tmrX.Enabled = False
            cdX.Enabled = True
        End If
    End Sub
    Private Sub cdX_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdX.Tick
        tmrX.Enabled = True
        cdX.Enabled = False
    End Sub
    Private Sub tmrY_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrY.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(89)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01111001 ")
            tmrY.Enabled = False
            cdY.Enabled = True
        End If
    End Sub
    Private Sub cdY_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdY.Tick
        tmrY.Enabled = True
        cdY.Enabled = False
    End Sub
    Private Sub tmrZ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrZ.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(90)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01111010 ")
            tmrZ.Enabled = False
            cdZ.Enabled = True
        End If
    End Sub
    Private Sub cdZ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdZ.Tick
        tmrZ.Enabled = True
        cdZ.Enabled = False
    End Sub

    Private Sub mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show("Made by Sean Bobo Egan")
    End Sub
End Class

Binary Typer.rarattachment deleted · 15 downloads before removal

what are these?
timers?
theres alot of things that are random letters lol
tmrF / cdF / tmrG

This is a really bad way of doing it. You don't need a timer for every individual key.

Just write a byte to binary calculator and loop through the ascii keycodes.

[highlight=vb.net]
Private Function ByteToBits(ByVal b As Byte) As String
Dim binary As String = String.Empty
For i As Integer = 7 to 0 Step -1
binary += If(b And Math.Pow(2, i), "1", "0")
Next i
Return binary
End Function

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For key As Integer = 65 To 122
If (key > 90 AndAlso key < 97) OrElse IsModified() Then Continue For
If GetAsyncKeyState(key) And &H8000 > 0 Then
Dim bin As String = ByteToBits(key)
SendKeys.Send("{BACKSPACE}")
SendKeys.Send(bin)
End If
Next key
End Sub

Private Function IsModified() As Boolean
Dim modifiers As Integer() = New Integer() { Keys.ShiftKey, Keys.Alt, Keys.ControlKey }
For each m As Integer in modifiers
If GetAsyncKeyState(m) And &H8000 > 0 Then Return True
Next
Return False
End Function
[/highlight]

Done and done.