تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية اغلاق أي برنامج من خلال الفيجوال بيسك
#1
كاتب الموضوع : AhmedEssawy

رداً على بعض الأسئلة أحببت أن اضيف هذا الكود :


كود :
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

وفي الكوماند على اعتبار أن الملف هو المفكرة


كود :
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Notepad")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "خطأ في عملية ارسال الرسالة"
End If
Else
MsgBox "الدفتر مفتوح"
End If
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج للتحويل بين انظمة العد المختلفة abulayth 6 2,322 06-05-15, 03:49 PM
آخر رد: ro3h
  [مثال] برنامج لضغط مجموعة من الصور دفعة واحدة abulayth 0 389 04-04-15, 05:57 PM
آخر رد: abulayth
  كيف ارسل ايميل دوري من خلال Outlook shalapyx 1 703 03-03-15, 12:38 AM
آخر رد: shalapyx
  تفعيل caps lock عند فتح فورم معين(((فيجوال بيسك 6)))) سانسيفا 8 2,049 26-08-13, 05:06 PM
آخر رد: مهند إلكترو
  احترف قواعد البيانات فى فيجوال بيسك 6 derbaliammar 0 1,394 21-07-13, 06:16 AM
آخر رد: derbaliammar
  الا تحلم بقنوات تلفزية على خيارك .. انتظر ... بامكانك تاثيث برنامج لقنواتك المفضلة derbaliammar 0 684 17-07-13, 05:46 AM
آخر رد: derbaliammar
  افتح ملفّ الوورد والأكسل والباوربوينت من خلال برنامجك RaggiTech 0 940 17-10-12, 03:41 PM
آخر رد: RaggiTech
  برنامج توليد ارقام عشوائية من عشر منازل RaggiTech 0 803 17-10-12, 03:10 PM
آخر رد: RaggiTech
  تفضلو برنامج بسيط (بمناسبة شهر رمضان الكريم) RaggiTech 0 530 17-10-12, 03:09 PM
آخر رد: RaggiTech
  فتح ملف إكسل في الفيجوال RaggiTech 0 630 17-10-12, 02:51 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم