API tools faq
paste
Advertisement
Anonim_ID

FB Chat Generator VB.NET (v2) coded by Anon?M ID

Anonim_ID
May 22nd, 2013
160
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 6.95 KB | None | 0 0
raw download clone embed print report
  1. 'Coded by Anon?M ID
  2. Public Class Form1
  3.  
  4.     Private Sub BlueButtonA1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlueButtonA1.Click
  5.         Do Until Me.Height < 3
  6.             Me.Height = Me.Height - 5
  7.             Threading.Thread.Sleep(10)
  8.             If Me.Height < 3 Then
  9.                 End
  10.             End If
  11.         Loop
  12.     End Sub
  13.     Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  14.         If RadioButton1.Checked = True Then
  15.             If TextBox1.Text = "" Then
  16.                 TextBox2.Text = ""
  17.             Else
  18.                 Try
  19.                     Dim str As String, Newstr As String = Nothing
  20.                     str = TextBox1.Text
  21.                     For Each StrText As String In str
  22.                         Select Case True
  23.  
  24.                             Case StrText = "A" : StrText = "[[244961858909298]]" : Case StrText = "B" : StrText = "[[344113652270150]]" : Case StrText = "C" : StrText = "[[344991278847613]]" : Case StrText = "D" : StrText = "[[164461493653696]]" : Case StrText = "E" : StrText = "[[196752423751220]]" : Case StrText = "F" : StrText = "[[301630573215430]]" : Case StrText = "G" : StrText = "[[251496118250464]]" : Case StrText = "H" : StrText = "[[266394220086654]]" : Case StrText = "I" : StrText = "[[164866556948132]]" : Case StrText = "J" : StrText = "[[180599335371968]]" : Case StrText = "K" : StrText = "[[209067005843651]]" : Case StrText = "L" : StrText = "[[238594039545396]]" : Case StrText = "M" : StrText = "[[147702285338528]]" : Case StrText = "N" : StrText = "[[309221402452022]]" : Case StrText = "O" : StrText = "[[180901405340714]]" : Case StrText = "P" : StrText = "[[246506925416551]]" : Case StrText = "Q" : StrText = "[[333343613344059]]" : Case StrText = "R" : StrText = "[[123128367803569]]" : Case StrText = "S" : StrText = "[[316143388416019]]" : Case StrText = "T" : StrText = "[[334073456605673]]" : Case StrText = "U" : StrText = "[[199626093460643]]" : Case StrText = "V" : StrText = "[[224202614323263]]" : Case StrText = "W" : StrText = "[[336032459740792]]" : Case StrText = "X" : StrText = "[[205228226232732]]" : Case StrText = "Y" : StrText = "[[142420399202282]]" : Case StrText = "Z" : StrText = "[[157919817645224]]" : Case StrText = "a" : StrText = "[[244961858909298]]" : Case StrText = "b" : StrText = "[[344113652270150]]" : Case StrText = "c" : StrText = "[[344991278847613]]" : Case StrText = "d" : StrText = "[[164461493653696]]" : Case StrText = "e" : StrText = "[[196752423751220]]" : Case StrText = "f" : StrText = "[[301630573215430]]" : Case StrText = "g" : StrText = "[[251496118250464]]" : Case StrText = "h" : StrText = "[[266394220086654]]" : Case StrText = "i" : StrText = "[[164866556948132]]" : Case StrText = "j" : StrText = "[[180599335371968]]" : Case StrText = "k" : StrText = "[[209067005843651]]" : Case StrText = "l" : StrText = "[[238594039545396]]" : Case StrText = "m" : StrText = "[[147702285338528]]" : Case StrText = "n" : StrText = "[[309221402452022]]" : Case StrText = "o" : StrText = "[[180901405340714]]" : Case StrText = "p" : StrText = "[[246506925416551]]" : Case StrText = "q" : StrText = "[[333343613344059]]" : Case StrText = "r" : StrText = "[[123128367803569]]" : Case StrText = "s" : StrText = "[[316143388416019]]" : Case StrText = "t" : StrText = "[[334073456605673]]" : Case StrText = "u" : StrText = "[[199626093460643]]" : Case StrText = "v" : StrText = "[[224202614323263]]" : Case StrText = "w" : StrText = "[[336032459740792]]" : Case StrText = "x" : StrText = "[[205228226232732]]" : Case StrText = "y" : StrText = "[[142420399202282]]" : Case StrText = "z" : StrText = "[[157919817645224]]"
  25.                             Case True
  26.                         End Select
  27.                         Newstr &= StrText
  28.                     Next
  29.                     TextBox2.Text = Newstr
  30.                 Catch ex As Exception
  31.  
  32.                 End Try
  33.             End If
  34.         Else
  35.             If TextBox1.Text = "" Then
  36.                 TextBox2.Text = ""
  37.             Else
  38.                 Try
  39.                     Dim str As String, Newstr As String = Nothing
  40.                     str = TextBox1.Text
  41.                     For Each StrText As String In str
  42.                         Select Case True
  43.  
  44.                             Case StrText = "A" : StrText = "[[m7.cza]]" : Case StrText = "B" : StrText = "[[m7.czb]]" : Case StrText = "C" : StrText = "[[m7.czc]]" : Case StrText = "D" : StrText = "[[m7.czd]]" : Case StrText = "E" : StrText = "[[m7.cze]]" : Case StrText = "F" : StrText = "[[m7.czf]]" : Case StrText = "G" : StrText = "[[m7.czg]]" : Case StrText = "H" : StrText = "[[m7.czh]]" : Case StrText = "I" : StrText = "[[m7.czi]]" : Case StrText = "J" : StrText = "[[m7.czj]]" : Case StrText = "K" : StrText = "[[m7.czk]]" : Case StrText = "L" : StrText = "[[m7.czl]]" : Case StrText = "M" : StrText = "[[m7.czm]]" : Case StrText = "N" : StrText = "[[m7.czn]]" : Case StrText = "O" : StrText = "[[m7.czo]]" : Case StrText = "P" : StrText = "[[m7.czp]]" : Case StrText = "Q" : StrText = "[[m7.czq]]" : Case StrText = "R" : StrText = "[[m7.czr]]" : Case StrText = "S" : StrText = "[[m7.czs]]" : Case StrText = "T" : StrText = "[[m7.czt]]" : Case StrText = "U" : StrText = "[[m7.czu]]" : Case StrText = "V" : StrText = "[[m7.czv]]" : Case StrText = "W" : StrText = "[[m7.czw]]" : Case StrText = "X" : StrText = "[[m7.czx]]" : Case StrText = "Y" : StrText = "[[m7.czy]]" : Case StrText = "Z" : StrText = "[[m7.czz]]" : Case StrText = "a" : StrText = "[[m7.cza]]" : Case StrText = "b" : StrText = "[[m7.czb]]" : Case StrText = "c" : StrText = "[[m7.czc]]" : Case StrText = "d" : StrText = "[[m7.czd]]" : Case StrText = "e" : StrText = "[[m7.cze]]" : Case StrText = "f" : StrText = "[[m7.czf]]" : Case StrText = "g" : StrText = "[[m7.czg]]" : Case StrText = "h" : StrText = "[[m7.czh]]" : Case StrText = "i" : StrText = "[[m7.czi]]" : Case StrText = "j" : StrText = "[[m7.czj]]" : Case StrText = "k" : StrText = "[[m7.czk]]" : Case StrText = "l" : StrText = "[[m7.czl]]" : Case StrText = "m" : StrText = "[[m7.czm]]" : Case StrText = "n" : StrText = "[[m7.czn]]" : Case StrText = "o" : StrText = "[[m7.czo]]" : Case StrText = "p" : StrText = "[[m7.czp]]" : Case StrText = "q" : StrText = "[[m7.czq]]" : Case StrText = "r" : StrText = "[[m7.czr]]" : Case StrText = "s" : StrText = "[[m7.czs]]" : Case StrText = "t" : StrText = "[[m7.czt]]" : Case StrText = "u" : StrText = "[[m7.czu]]" : Case StrText = "v" : StrText = "[[m7.czv]]" : Case StrText = "w" : StrText = "[[m7.czw]]" : Case StrText = "x" : StrText = "[[m7.czx]]" : Case StrText = "y" : StrText = "[[m7.czy]]" : Case StrText = "z" : StrText = "[[m7.czz]]"
  45.                             Case True
  46.                         End Select
  47.                         Newstr &= StrText
  48.                     Next
  49.                     TextBox2.Text = Newstr
  50.                 Catch ex As Exception
  51.  
  52.                 End Try
  53.             End If
  54.         End If
  55.  
  56.  
  57.  
  58.  
  59.     End Sub
  60. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!