- Cara Membuat @l4y G3n3R4t0R -

Membuat alay generator menggunakan vb6 - DC_Nanda23 - 12-22-2011 06:17 PM 

ass..
buka vb6

yang kita perlukan adalah :
2.textbox yang bernama text1 & text2 ( default )
1.command button berinama command1 ( default )
1.module

seperti ini



buka module
lalu isikan code berikut

PHP Code:

Public Function Alay(ByVal Str As String) As String
Dim s As String, h As String, i As Integer
Str = LCase(Str)
For i = 1 To Len(Str)s = Mid(Str, i, 1)Select Case sCase "a": s = "4@"Case "b": s = "8"Case "c": s = "Ç"Case "d": s = "Ð"Case "e": s = "3"Case "g": s = "9"Case "i": s = "1"Case "n": s = "Ñ"Case "o": s = "0"Case "p": s = "Þ"Case "s": s = "$§5"Case "t": s = "7"Case "u": s = "ù"Case "x": s = "×"Case "y": s = "¥"Case Else: s = IIf(CInt(Rnd * 1) = 0, UCase(s), s)End Select

Randomize
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)Next
Alay = h
End Function 

lalu klik2 x command1
isi kan code berikut

PHP Code:

Text2.Text = Alay(Text1.Text) 

kira kira seperti ini lah :

dan coba kira run ( f5 )
jadi deh aplikasi nya seperti ini

Thank's to:devilzc0de.org

Related Posts:

Tweet