FindWindow

السلام عليكم...

البارامتر الأول للدالة FindWIndow هو اسم الصنف (Class name) للنافذة التي تبحث عنها، و هو ليس بالضرورة اسم الملف التنفيذي للبرنامج. فقط بالصدفة أن اسم الملف التنفيذي للمفكرة هو Notepad.exe و اسم الـ Class هو Notepad.

للوصول إلى نافذة جهاز الكمبيوتر استعمل الاسم CabinetWClass.

للوصول إلى نافذة مستكشف ويندوز استعمل الاسم ExploreWClass.

للوصول إلى نافذة متصفح الإنترنت (Internet Explorer) استعمل الاسم IEFrame.

نرجو الاستفادة و السلام.

أشكرك أخي الكريم علي الرد السريع ... ولكن أنا لدي فكرة للأسف الشديد مش عارف أتمكن منها

المفروض أن فية طريقة للبحث عن اي برنامج بإسم الكلاس الخاص به وذلك بإستخدام FindWindows

ومن ثم من الممكن عمل إغلاق لهذه النافذة بإستخدام الدالة SendMessage

لما عملت الإجراء التالي :

Option Explicit
Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
        ByVal lParam As Long) As Long
Public Declare Sub FatalExit Lib "kernel32" (ByVal code As Long)

Public Sub CloseProgram(ClassName As String)
    Dim logWindow As Long
NextFind:
    logWindow = FindWindow(ClassName, vbNullString)
    Call SendMessage(logWindow, 16, 0, 0)
    If (logWindow <> 0) Then GoTo NextFind
End Sub

صحيح عملية الـ FindWindow نجحت ... ولكن SendMessage لم تنجح نهائياَ !!!

ثاني هام أنا لم أقصد إغلاق الـ Explorer بعينة ... ولكن أرغب في إغلاق سطح المكتبة نفسة !!!

فكنت ظانن أن إغلاق الـ Explorer لوحدة كافي

Call CloseProgram("ExploreWClass")

فهل هناك حل لذلك ؟؟؟؟

شكراً

لو سمحتم يا جماعة أنا محتاج هذا الكود في أسرع وقت ممكن جزاكم الله كل خير

MMA_EG_Cairo كتب:

لو سمحتم يا جماعة أنا محتاج هذا الكود في أسرع وقت ممكن جزاكم الله كل خير

طيب يا جماعة فية كود بيغلق ليا الـ Explorer كما يلي

Private Declare Function FindWindow Lib "user32.dll" _
        Alias "FindWindowA" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Sub FatalExit Lib "kernel32" (ByVal code As Long)
Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, ByVal lParam As Long) As Long

Public Function CloseProj(ClassName As String) As Boolean
    If SendMessage(FindWindow(ClassName, vbNullString), 16, 0, 0) > 0 Then
        Shell App.Path & "\" & App.EXEName & ".exe debugger", vbMaximizedFocus
        FatalExit 0
    End If
End Function

gفي حالة أستدعاء هذا الغرض بالكود التالي

CloseProj "Shell_TrayWnd"

للأسف الشديد بيعرض ليا شاشة الإغلاق الأعتيادية (Turn Off Computer..)

وكل اللي عايزة أغلاق الـ Explorer فقط لا غير دون أغلاق الويندوز كلياً

يا رب ألاقي حل عندكم

السلام عليكم