الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ياريت المساعده في هذا الكود

مغلق
بدأه foxxxx في 21 أغسطس 2005 · 1 رد · 428 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني هذا الكود يغلق البرنامج المقصود ومن الكود يتضح انه يقفل النورتن

لكن المشكله عندي انه لما يفقل النورتن او اي برنامج اخر يقفل برنامجي ايضا

المطلوب اريد مساعد في تعديل الكود بحيث عندما يقفل البرنامج المطلوب

يبقى برنامجي بدون ان يفقل حتى اقفله انا

وهذا الكود

Private Sub Form_Load()

Dim lngQuit As Long, hWndProg As Long

hWndProg = FindWindow(vbNullString, "Norton AntiVirus")

lngQuit = PostMessage(hWndProg, WM_QUIT, 0&, 0)

End

تحياتي لكم

#2

أستخدم هذا الكود 

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim Answer As Integer
   Answer = MsgBox("Are you sure you want to exit this program?", _
   vbQuestion + vbYesNo, "Confirmation")
   If Answer = vbNo Then Cancel = -1
End Sub

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة

هذا الموضوع مغلق.

مواضيع مشابهة