Imports System.Text
Public Class Form1
Public Func As New Funciones
Public LastChar As String
Public StrDefaultMSG As String = "Su nick acá"
Private Evitar_VerificarMSG As Boolean
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
' Evita mostrar StrDefaultMSG al retroceder completamente sin perder el foco
If TextBox1.Text = StrDefaultMSG Then
TextBox1.Text = e.KeyChar
e.KeyChar = ""
TextBox1.SelectionStart = TextBox1.Text.Length
ElseIf TextBox1.Text = Chr(8) And AscW(e.KeyChar) = 8 Then
TextBox1.Text = ""
e.KeyChar = ""
End If
End Sub
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
Generar()
End Sub
Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
If TextBox1.Text = StrDefaultMSG Then
Evitar_VerificarMSG = True
TextBox1.Text = ""
TextBox2.Text = ""
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = Chr(8) Then TextBox1.Text = ""
If TextBox1.Text = StrDefaultMSG Then
TextBox1.ForeColor = Color.Silver
TextBox2.ForeColor = Color.Silver
Else
TextBox1.ForeColor = Color.Black
TextBox2.ForeColor = Color.Black
Generar()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.Items(0).Focused = True
End Sub
Private Function Generar() As Boolean
If TextBox1.Text = "" Then
If Evitar_VerificarMSG = False Then
TextBox1.Text = StrDefaultMSG
TextBox2.Text = "Nick generado"
Else
Evitar_VerificarMSG = False
End If
End If
If TextBox1.Text = StrDefaultMSG Then
Label6.Text = "Ejemplo"
Label7.Text = "3j3mp10"
Label8.Text = "EjEmPlO"
Exit Function
End If
Dim Nick As String, Cuenta As Integer, U_Case As Boolean
Dim Code1 As String, Code2 As String, Code3 As String, Code4 As String
' Code1 = 1337
Code1 = TextBox1.Text.ToLower
Code1 = Code1.Replace("a", "å")
Code1 = Code1.Replace("b", "ß")
Code1 = Code1.Replace("c", "©")
Code1 = Code1.Replace("d", "Ð")
Code1 = Code1.Replace("e", "3")
Code1 = Code1.Replace("f", "ƒ")
Code1 = Code1.Replace("g", "6")
Code1 = Code1.Replace("i", "¡")
Code1 = Code1.Replace("l", "1")
Code1 = Code1.Replace("o", "0")
Code1 = Code1.Replace("q", "¶")
Code1 = Code1.Replace("r", "®")
Code1 = Code1.Replace("s", "§")
Code1 = Code1.Replace("u", "µ")
Code1 = Code1.Replace("y", "¥")
Label7.Text = Code1 ' Imprime ejemplo
' Code2 = Normal
Code2 = TextBox1.Text
Label6.Text = Code2 ' Imprime ejemplo
' Code3 = UL-Case
U_Case = False
Code3 = ""
For Cuenta = 0 To TextBox1.Text.Length - 1
If U_Case = False Then
Code3 = Code3 & TextBox1.Text.Substring(Cuenta, 1).ToLower.ToString
U_Case = True
Else
Code3 = Code3 & TextBox1.Text.Substring(Cuenta, 1).ToUpper.ToString
U_Case = False
End If
Next
Label8.Text = Code3 ' Imprime ejemplo
' Code4 = Gigante
Code4 = TextBox1.Text.ToLower
Code4 = Code4.Replace(" ", " ")
Code4 = Code4.Replace("a", " |̶̿ ̶̿ ̶̿ ̶̿|")
Code4 = Code4.Replace("b", " |̶͇̿ ̶͇̿ ̶͇̿)")
Code4 = Code4.Replace("c", " |͇̿ ͇̿ ͇̿ ͇̿")
Code4 = Code4.Replace("d", " |͇̿ ͇̿ ͇̿ ͇̿)")
Code4 = Code4.Replace("e", " |̶͇̿ ̶͇̿ ͇̿")
Code4 = Code4.Replace("f", " |̶̿ ̶̿ ̶̿ ̶̿")
Code4 = Code4.Replace("g", " |͇̿ ͇̿ ͇̿ ̶͇̿ι")
Code4 = Code4.Replace("h", " |̶ ̶ ̶ ̶|")
Code4 = Code4.Replace("i", " [b]|[/b]")
Code4 = Code4.Replace("j", " ͇ ͇͇͇͇|")
Code4 = Code4.Replace("k", " |<")
Code4 = Code4.Replace("l", " |͇ ͇ ͇ ͇")
Code4 = Code4.Replace("m", " |̿ V ̿|")
Code4 = Code4.Replace("n", " |̿ \͇|")
Code4 = Code4.Replace("o", " |͇̿ ͇̿ ͇̿|")
Code4 = Code4.Replace("p", " |̶̿ ̶̿ ̶̿ ̶̿'")
Code4 = Code4.Replace("q", " |͇̿ ͇̿ ͇̿ ͇͇̿|͇ ")
Code4 = Code4.Replace("r", " |̿ ̿ ̿")
Code4 = Code4.Replace("s", " ͇ ͇\̿ ̿")
Code4 = Code4.Replace("t", " ̿ ̿|̿ ̿")
Code4 = Code4.Replace("u", " |͇ ͇ ͇ ͇ ͇|")
Code4 = Code4.Replace("v", " [b]\ ͇ /[/b]")
Code4 = Code4.Replace("w", " [b]|͇ Λ ͇|[/b]")
Code4 = Code4.Replace("x", " X")
Code4 = Code4.Replace("y", " Y")
Code4 = Code4.Replace("z", " ̿ ̿/ ͇ ͇")
Label9.Text = Code4
Code4 = "अ๑ " & Trim(Code4)
' Establece el nick
If RadioButton2.Checked = True Then ' 1337
Nick = Code1
ElseIf RadioButton3.Checked = True Then ' Gigante
Nick = Code4
ElseIf RadioButton4.Checked = True Then ' UL-Case
Nick = Code3
Else ' Normal
Nick = Code2
End If
' Retorna
TextBox2.Text = ListView1.FocusedItem.Text.Replace("Nick", Nick)
End Function
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Generar()
End Sub
Private Sub TextBox2_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseClick
TextBox2.SelectAll()
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Generar()
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Generar()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = StrDefaultMSG Then
MsgBox("Debe proporcionar un nick")
Exit Sub
End If
Dim Random As New Random()
ListView1.Items(Random.Next(0, ListView1.Items.Count - 1)).Focused = True
Generar()
End Sub
Private Function LoadCharMap() As Boolean
Dim Cuenta As Integer, Cuenta2 As Integer, Cuenta3 As Integer, LItem As New ListViewItem
Dim Desde As Integer, Hasta As Integer, Columnas As Integer
Desde = 0 ' 9474
Hasta = 65535 ' 9729
Columnas = 22
Cuenta3 = Desde
Me.Cursor = Cursors.WaitCursor
Label2.Text = "Creando columnas ..."
Button4.Visible = False
Label2.Visible = True
DataGridView1.Visible = False
Application.DoEvents()
' Crea las columnas
For Cuenta = 0 To Columnas - 1
DataGridView1.Columns.Add("c" & Cuenta, "t" & Cuenta)
DataGridView1.Columns(DataGridView1.Columns.Count - 1).Width = 22
DataGridView1.Columns(DataGridView1.Columns.Count - 1).Resizable = DataGridViewTriState.False
Label2.Text = "Creando columnas ... " & Cuenta
Application.DoEvents()
Next
Label2.Text = "Creando mapa de carácteres ... 0/" & Hasta
Application.DoEvents()
Timer1.Tag = "0/" & Hasta
Timer1.Enabled = True
Dim n As Integer
For Cuenta = 0 To Int(((Hasta - Desde) / Columnas) - 1)
If Cuenta3 > Hasta Then Exit For
n = DataGridView1.Rows.Add()
For Cuenta2 = 0 To Columnas - 1
If Cuenta3 > Hasta Then Exit For
DataGridView1.Rows.Item(n).Cells(Cuenta2).Value = ChrW(Cuenta3)
Timer1.Tag = Cuenta3 & "/" & Hasta
Cuenta3 = Cuenta3 + 1
Application.DoEvents()
Next
Next
Label2.Visible = False
DataGridView1.Visible = True
Timer1.Tag = 0
Timer1.Enabled = False
Me.Cursor = Cursors.Arrow
End Function
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Shell("charmap", AppWinStyle.NormalFocus)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
InsertLastChar()
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Dim v_Str As String = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()
TextBox3.Text = v_Str
TextBox4.Text = Func.Convertir(v_Str, "hexadecimal")
TextBox5.Text = Func.Convertir(v_Str, "html")
TextBox6.Text = Func.Convertir(v_Str, "decimal")
LastChar = v_Str
End Sub
Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
InsertLastChar()
End Sub
Private Function InsertLastChar() As Boolean
If TextBox1.Text = StrDefaultMSG Then
TextBox1.Text = LastChar
Else
TextBox1.Text = TextBox1.Text & LastChar
End If
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = "Creando mapa de carácteres ... " & Timer1.Tag
Application.DoEvents()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
LoadCharMap()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim Random As New Random()
Dim Caracter As String = DataGridView1.Rows(Random.Next(0, DataGridView1.Rows.Count)).Cells(Random.Next(0, DataGridView1.Columns.Count)).Value.ToString()
If TextBox1.Text = StrDefaultMSG Then
TextBox1.Text = Caracter
Else
TextBox1.Text = TextBox1.Text & Caracter
End If
End Sub
End Class