Cara Membuat Program Text Alay Otomatis (Alay Generator)

Posted by Nevos Pedia

Baca Juga

SimBalisme

Mungkin agak sedikit aneh dengan judul postingan kali ini. Cara Membuat Program Text Alay Otomatis (Alay Generator). Yah sekali-sekali buat bereksperimen membuat software berskala ringan sama jadi anak alay. Untuk scriptnya bisa langsung kebawah

Cara Membuat Program Text Alay Otomatis (Alay Generator)

• Pertama buka dahulu notepad di pc sobat
• Kemudian paste kode dibawah ini :

m tex,alaytex,mode,smode
on error resume next
tex=inputbox("Masukan tulisan yang mau dibikin ALAY" & vbcrlf & "Langsung tekan ENTER" & vbcrlf & "=-Created by SimBalisme-=","Alay Generator - Created By Admin - Aditya")
mode=inputbox("Pilih Mode Alay:" & vbcrlf & _
"1. Hÿßr1d" & vbcrlf & _
"2. Huruf-4n6k4" & vbcrlf & _
"3. BesAR kEciL" & vbcrlf & vbcrlf & _
"Tekan ENTER lagi","Alay Generator - Created By SimBalisme",1)
If MsgBox("Apakah tulisannya mau disingkat sprti SMS?", vbQuestion + vbYesNo, "Alay Generator - Created By SimBalisme") = vbYes Then smode=1
tex=Alay(tex,mode,smode)
msgbox "TARAAA.., Inilah hasilnya:" & vbcrlf & vbcrlf & tex, vbInformation, "ALAY GENERATOR"
alaytex=inputbox("Inilah tulisan ALAYnya ^_^" & vbcrlf & "Silakan di-copy-paste dan tekan ENTER untuk menutupnya" & vbcrlf & "=-Created by SimBalisme-=","Alay Generator - Created By Admin - Aditya",tex)
Function Alay(Str,AlayMode,SMSMode)
Dim s, h, i
Dim AlayChars,VoChars
Randomize
If SMSMode = 1 Then
VoChars = "aiueo"
For i = 1 To Len(VoChars)
If CInt(Rnd * 2) = 0 Then
Str = Replace(Str, Mid(VoChars, i, 1), "", 1, -1, vbTextCompare)
End If
Next
End If
Select Case AlayMode
Case 1: AlayChars = Split("aàáÂÃäåAàáÂÃäå@4;bBß8;cçCç¢;Ð;ÈéêëÈéêë£3;gG69;iìíÎïIìíÎï¡!1;" & _
"nÑNÑ;oòóôõöøOòóôõöø0;pPþþ;s$S§5;tT7;uùúûüUùúûüµ;" & _
"×xX;yýÿYý¥;z2Z", ";", -1, vbTextCompare)
Case 2: AlayChars = Split("4;8;c;d;3;69;1;n;0;p;5;7;u;x;y;2", ";", -1, vbTextCompare)
Case 3: AlayChars = Split("Aa;Bb;Cc;Dd;Ee;Gg;Ii;Nn;Oo;Pp;Ss;Tt;Uu;Xx;Yy;Zz", ";", -1, vbTextCompare)
End Select
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = AlayChars(0)
Case "b": s = AlayChars(1)
Case "c": s = AlayChars(2)
Case "d": s = AlayChars(3)
Case "e": s = AlayChars(4)
Case "g": s = AlayChars(5)
Case "i": s = AlayChars(6)
Case "n": s = AlayChars(7)
Case "o": s = AlayChars(8)
Case "p": s = AlayChars(9)
Case "s": s = AlayChars(10)
Case "t": s = AlayChars(11)
Case "u": s = AlayChars(12)
Case "x": s = AlayChars(13)
Case "y": s = AlayChars(14)
Case "z": s = AlayChars(15)
Case Else: If CInt(Rnd * 1) = 0 Then s = UCase(s)
End Select
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function

• Jika sudah klik "Save As"
• Beri nama "Alay Generator.vbs" (tanpa tanda kutip)
• Jangan lupa untuk Save as Type ganti menjadi "All File" 
• Contohnya seperti dibawah ini

   

• Kemudian klik "Save"
• Selesai.

NB : Klik 2x "Alay Generator.vbs" untuk menjalankan aplikasinya.

Semoga bermanfaat

Best Regards

Admin - Aditya

Share This :