من فضلكم كود لبرمجة كلمة المرور على الفيجوال بسيك [الأرشيف]

Xzoubir

06-19-2007, 11:37 AM

السلام عليكم
ارجو ال من يهتم الى هدا الامر ان يرشدني الى كود لكلمة المرور(كلمة السر)في لغة الفيجوال بسيك .... جزاكم الله خيرا و شكرا.:smailes21:

Kingweb007

06-23-2007, 01:36 PM

أخي الكريم ولاتزعل هذا ملف افتحه بالفيجوال بيزك ودخل وشوف الكود وما تنس تغير كلمت السر الي هي 123456 وملاحظه الكلمة المكتوبه بالاحمر هي اسم الصفحه التي ستظهر بعد الضغط على الزر ok
رابط الملف هنا
http://www.megaupload.com/fr/?d=4H09NAUI

وان لم ترد التحميل فهاهو الكود ضعه في زي ok

Private Sub ok_Click()

If t(1) = "123456" Then

MsgBox "mot de passe est EXACT,Bien venu dans le programme ." & Chr(13)
Password.Height = 3600
Unload Me
Accueil.Show
Else
MsgBox "Mot de passe est .. Incorect,Ressayer encore une fois SVP ."

t(1) = "": t(1).SetFocus
End If

End Sub

أخوك المغربي