الرئيسية
أحدث الصور
السلام عليكم ورحمة الله وبركاته
اهلا بكم ياأخوانى معنا فى هذه السلسلة
والتى قررت انى سوف ابدأها معكم
حتى نبدأ جميعا من ابسط الاكواد حتى الاكواد المحترفة
راجيا من الله عز وجل ان تستفيدوا معنا
سواء مبتدئين او محترفين
♥. ☼ .♥ .. ملحوووووووظة ..♥. ☼ .♥
الاكواد هى لفيجوال بيسك دوت نت
وايضا لفيجوال بيك 6
ولكن سيكون هناك اختلافات بسيطة يجب ان تأخذوها
فى الحسبان
ان شاء الله سيكون هناك مالا يقل عن
1000 كود
وسيكون بكل حلقة كود وبشرحه
وغالبا لن يكون هناك صور للاكواد البسيطة
وسيكون الشرح مصحوبا باللغة الانجليزية
لفهم اعمق وافضل ان شاء الله
والآن نبدأ مع الحلقة32
تسجيل خروج المستخدم
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
Dim ret
Form1.Visible = False
ret = ExitWindowsEx(EWX_LOGOFF, EWX_FORCE)
If ret = False Then
MsgBox "sorry try next time"
End If
End Sub
غير ما بين قوسين بما تريد
هذا وقد انتهت الحلقة 32
الى ان نلتقى فى الحلقة القادمة ان شاء الله
ارجو من الجميع ان يتناقش معى فى الكود
وان يقوم بالتطبيق واخبارنا ماذا حدث
