Avem nevoie de :
1) 2 Textbox - Text1 - name - txtNick
Text2 - name - txtAscii
2) 2 Command - Command1 - name - cmdNick - Caption - Copy
Command2 - name - cmdclear - Caption - Clear
===========================================================================
- Text1 - name - txtNick
Cod: Selectaţi tot
txtAscii.Text = txtNick.Text
txtAscii.Text = Replace(txtAscii.Text, "a", "å")
txtAscii.Text = Replace(txtAscii.Text, "A", "Å")
txtAscii.Text = Replace(txtAscii.Text, "b", "b")
txtAscii.Text = Replace(txtAscii.Text, "B", "ß")
txtAscii.Text = Replace(txtAscii.Text, "c", "©")
txtAscii.Text = Replace(txtAscii.Text, "C", "Ç")
txtAscii.Text = Replace(txtAscii.Text, "d", "d")
txtAscii.Text = Replace(txtAscii.Text, "D", "Ð")
txtAscii.Text = Replace(txtAscii.Text, "e", "€")
txtAscii.Text = Replace(txtAscii.Text, "E", "Ê")
txtAscii.Text = Replace(txtAscii.Text, "f", "ƒ")
txtAscii.Text = Replace(txtAscii.Text, "F", "F")
txtAscii.Text = Replace(txtAscii.Text, "g", "g")
txtAscii.Text = Replace(txtAscii.Text, "G", "G")
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", "¹")
txtAscii.Text = Replace(txtAscii.Text, "L", "£")
txtAscii.Text = Replace(txtAscii.Text, "m", "m")
txtAscii.Text = Replace(txtAscii.Text, "M", "]v[")
txtAscii.Text = Replace(txtAscii.Text, "n", "ñ")
txtAscii.Text = Replace(txtAscii.Text, "N", "Ñ")
txtAscii.Text = Replace(txtAscii.Text, "o", "ø")
txtAscii.Text = Replace(txtAscii.Text, "O", "Ø")
txtAscii.Text = Replace(txtAscii.Text, "p", "Þ")
txtAscii.Text = Replace(txtAscii.Text, "P", "¶")
txtAscii.Text = Replace(txtAscii.Text, "q", "q")
txtAscii.Text = Replace(txtAscii.Text, "Q", "Q")
txtAscii.Text = Replace(txtAscii.Text, "r", "®")
txtAscii.Text = Replace(txtAscii.Text, "R", "R")
txtAscii.Text = Replace(txtAscii.Text, "s", "$")
txtAscii.Text = Replace(txtAscii.Text, "S", "§")
txtAscii.Text = Replace(txtAscii.Text, "t", "†")
txtAscii.Text = Replace(txtAscii.Text, "T", "']['")
txtAscii.Text = Replace(txtAscii.Text, "u", "u")
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", "z")
txtAscii.Text = Replace(txtAscii.Text, "Z", "Z")
txtAscii.Text = Replace(txtAscii.Text, "x", "x")
txtAscii.Text = Replace(txtAscii.Text, "X", "X")
txtAscii.Text = Replace(txtAscii.Text, "w", "w")
txtAscii.Text = Replace(txtAscii.Text, "W", "\x/")
txtAscii.Text = Replace(txtAscii.Text, "y", "ÿ")
txtAscii.Text = Replace(txtAscii.Text, "Y", "¥")
txtAscii.Text = Replace(txtAscii.Text, "j", "j")
txtAscii.Text = Replace(txtAscii.Text, "J", "J")
txtAscii.Text = Replace(txtAscii.Text, "k", "k")
txtAscii.Text = Replace(txtAscii.Text, "0", "º")
txtAscii.Text = Replace(txtAscii.Text, "2", "²")
txtAscii.Text = Replace(txtAscii.Text, "3", "³")
txtAscii.Text = Replace(txtAscii.Text, "`", "™")- Command1 - name - cmdNick - Caption - Copy
Cod: Selectaţi tot
Clipboard.Clear
Clipboard.SetText txtAscii.Text- Command2 - name - cmdclear - Caption - Clear
Cod: Selectaţi tot
txtAscii.Text = ""
txtNick.Text = ""