Make your own free website on Tripod.com

  فيجوال بيسك إسكربت Visual Basic Script و كلمة المرور :

 

<h2 align="right" >  مثال علي  كلمة المرور باستخدام فيجوال بيسك إسكربت </h2>

<hr>

  <input type="text" name="username" value="مستخدم قديم" size=16>   أدخل اسم المستخدم <br>

<input type="password" name="passwordname" value="mbadr" size=16>

 أدخـل كلمة المرور <br>

<input type="button" name="buttonGo" value= "انقر هنا" >

<hr>

<script  language="vbscript">

Sub ButtonGo_OnClick

if username.value=" " then

msgbox   "عـزيـــــزي المستخــــــــدم" & chr(10) & username.value & chr(10) & "أنت نسيت اسم المستخدم"

exit sub

end if

if username.value <>"مستخدم قديم" then

msgbox   "عـزيـــــزي المستخــــــــدم" & chr(10) & username.value & chr(10) & "أنت أدخلت اسم مستخدم خطأ "

exit sub

end if

 

if passwordname.value="mbadr" then

msgbox "عـزيـــــزي المستخــــــــــدم" & chr(10) & username.value & chr(10)  & "مرحبا بك مع فيجوال بيسك للجميع" 

window.open "E:\vb98\subwindow.htm"

else 

msgbox "عـزيـــــزي المستخــــــــدم" & chr(10) & username.value & chr(10)  & "كلمــة المرور غـير صحيحـة" & chr(10) & "من فضلك حاول مرة أخري" & chr(13)

end if

 

End Sub 

   

</script>

 

 

 

 

h2 تعني أن العنوان ببنط العنوان 2

  <input type="text" name="username" value "مستخدم قديم" size=16>   أدخل اسم المستخدم <br>

 

ينشئ خانة نص لإدخال اسم المستخدم

<input type="password" name="passwordname" value="mbadr" size=16>

 أدخـل كلمة المرور <br>

إنشاء مربع نص خاص بكلمة المرور

<input type="button" name="buttonGo" value= "انقر هنا" >

 

إنشاء زر ينقره المستخدم بعد إدخال بياناته.

Sub ButtonGo_OnClick

ما سوف ينفذ عند نقر الزر ButtonGo

if username.value=" " then

msgbox   "عـزيـــــزي المستخــــــــدم" & chr(10) & username.value & chr(10)  & "أنت نسيت اسم المستخدم"

exit sub

end if

إذا ترك اسم المستخدم خاويا فأخرج الرسالة

 

 if username.value  <>"مستخدم قديم"  then

msgbox   "عـزيـــــزي المستخــــــــدم" & chr(10) & username.value & chr(10)  & "أنت أدخلت اسم مستخدم خطأ "

exit sub

إذا أدخل المستخدم اسم خطأ فأخرج الرسالة :

if passwordname.value="mbadr" then

msgbox "عـزيـــــزي المستخــــــــــدم" & chr(10) & username.value & chr(10)   & "مرحبا بك مع فيجوال بيسك للجميع" 

window.open "E:\vb98\subwindow.htm"

 

إذا أدخل المستخدم كلمة المرور الصحيحة ، فأخرج الرسالة :

 

 

ثم تحميل الملف القادم في نافذة جديدة .

msgbox "عـزيـــــزي المستخــــــــدم" & chr(10) & username.value & chr(10)  & "كلمــة المرور غـير صحيحـة" & chr(10) & "من فضلك حاول مرة أخري" & chr(13)

إذا أدخل المستخدم كلمة مرور غير صحيحة تخرج له الرسالة التالية:

 

 

مثال علي كلمة المرور باستخدام فيجوال بيسك إسكربت

كلمة المرور هي mbadr


أدخل اسم المستخدم
أدخـل كلمة المرور