rnaufal32 Zero Newbie
Jumlah posting : 15 Points : 109 Cendol : 75 Join date : 25.09.11 Age : 24 Lokasi : Majalengka
| Subyek: SC Form Password kaya pekalongan Thu Dec 08, 2011 3:04 pm | |
| Ok langsung aja dah 1. buat 1 form 1 command button 1 label dan 1 textbox 2. nih scnya - Spoiler:
Private Sub Command1_Click() If Text1.Text = "hack" Then 'Tanda hack itu kamu ganti dengan password yang kamu inginkan misalkan hendra MsgBox "Login successful. Click Ok To Continue", vbApplicationModal, "successful" Form2.Show Unload Me Else Dim s Set s = CreateObject("sapi.spvoice") s.Speak "wakwakwakwak password salah" MsgBox "Wrong Password,Please Try Again", vbInformation, "Oops" Text1.Text = "" End If End Sub
Private Sub Form_Load() Label1.Caption = "Please Input the Password..!!!" Label1.FontBold = True Label1.Font.Size = 11 End Sub
Kalo berguna kasih +++++ dan |
|