شريط الإهداءات:


    كود فيجوال بيسك لإغلاق برنامج حسب العنوان

    شاطر
    avatar
    Admin
    Admin
    Admin

    عدد الرسائل : 62
    تاريخ التسجيل : 16/06/2007

    موضوع كود فيجوال بيسك لإغلاق برنامج حسب العنوان

    مُساهمة من طرف Admin في 2007-08-16, 20:43

    كود فيجوال بيسك لإغلاق برنامج حسب العنوان
    هذا الكود لإغلاق مفكرة
    الكود:

    'in Mudele
    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

    'In Command
    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

      الوقت/التاريخ الآن هو 2018-12-15, 05:12