|
|
Private Sub cmdClear_Click()
txtAscii.Text = ""
txtNick.Text = ""
End Sub
Private Sub cmdCopy_Click()
Clipboard.Clear
Clipboard.SetText txtAscii.Text
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub txtAscii_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub txtNick_Change()
txtAscii.Text = txtNick.Text
txtAscii.Text = Replace(txtAscii.Text, "a", "4")
txtAscii.Text = Replace(txtAscii.Text, "A", "@")
txtAscii.Text = Replace(txtAscii.Text, "b", "8")
txtAscii.Text = Replace(txtAscii.Text, "B", "|3")
txtAscii.Text = Replace(txtAscii.Text, "c", "©")
txtAscii.Text = Replace(txtAscii.Text, "C", "(")
txtAscii.Text = Replace(txtAscii.Text, "d", "|>")
txtAscii.Text = Replace(txtAscii.Text, "D", "|)")
txtAscii.Text = Replace(txtAscii.Text, "e", "3")
txtAscii.Text = Replace(txtAscii.Text, "E", "3")
txtAscii.Text = Replace(txtAscii.Text, "f", "#")
txtAscii.Text = Replace(txtAscii.Text, "F", "|=")
txtAscii.Text = Replace(txtAscii.Text, "g", "9")
txtAscii.Text = Replace(txtAscii.Text, "G", "6")
txtAscii.Text = Replace(txtAscii.Text, "h", "h")
txtAscii.Text = Replace(txtAscii.Text, "H", "|-|")
txtAscii.Text = Replace(txtAscii.Text, "i", "|")
txtAscii.Text = Replace(txtAscii.Text, "I", "|")
txtAscii.Text = Replace(txtAscii.Text, "l", "1")
txtAscii.Text = Replace(txtAscii.Text, "L", "|_")
txtAscii.Text = Replace(txtAscii.Text, "m", "m")
txtAscii.Text = Replace(txtAscii.Text, "M", "/\/\")
txtAscii.Text = Replace(txtAscii.Text, "n", "n")
txtAscii.Text = Replace(txtAscii.Text, "N", "/\/")
txtAscii.Text = Replace(txtAscii.Text, "o", "0")
txtAscii.Text = Replace(txtAscii.Text, "O", "0")
txtAscii.Text = Replace(txtAscii.Text, "p", "|*")
txtAscii.Text = Replace(txtAscii.Text, "P", "|*")
txtAscii.Text = Replace(txtAscii.Text, "q", "0,")
txtAscii.Text = Replace(txtAscii.Text, "Q", "0.")
txtAscii.Text = Replace(txtAscii.Text, "r", "®")
txtAscii.Text = Replace(txtAscii.Text, "R", "|2")
txtAscii.Text = Replace(txtAscii.Text, "s", "$")
txtAscii.Text = Replace(txtAscii.Text, "S", "$")
txtAscii.Text = Replace(txtAscii.Text, "t", "+")
txtAscii.Text = Replace(txtAscii.Text, "T", "7")
txtAscii.Text = Replace(txtAscii.Text, "u", "00")
txtAscii.Text = Replace(txtAscii.Text, "U", "|_|")
txtAscii.Text = Replace(txtAscii.Text, "v", "v")
txtAscii.Text = Replace(txtAscii.Text, "V", "\/")
txtAscii.Text = Replace(txtAscii.Text, "z", "2")
txtAscii.Text = Replace(txtAscii.Text, "Z", "2")
txtAscii.Text = Replace(txtAscii.Text, "x", ")(")
txtAscii.Text = Replace(txtAscii.Text, "X", "><")
txtAscii.Text = Replace(txtAscii.Text, "w", "w")
txtAscii.Text = Replace(txtAscii.Text, "W", "\/\/")
txtAscii.Text = Replace(txtAscii.Text, "y", "j")
txtAscii.Text = Replace(txtAscii.Text, "Y", "'/")
txtAscii.Text = Replace(txtAscii.Text, "j", "j")
txtAscii.Text = Replace(txtAscii.Text, "J", "_|")
txtAscii.Text = Replace(txtAscii.Text, "k", "|<")
txtAscii.Text = Replace(txtAscii.Text, "K", "|(")
End Sub
|
|
