Option Explicit

Public TargetName As String
Public TargetHwnd As Long

Public Const GWL_STYLE = - 16 
Public Const WS_DISABLED = &H8000000
Public Const WS_CANCELMODE = &H1F
Public Const WM_CLOSE = &H10

Public Declare Function EnumWindows Lib "user32" ( _
                                    ByVal lpEnumFunc As Long, _
                                    ByVal lParam As Long) As Long

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
                               ByVal hWnd As Long, _
                               ByVal lpString As String, _
                               ByVal cch As Long) As Long

Declare Function IsWindow Lib "user32" ( _
                          ByVal hWnd As Long) As Long

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
                               ByVal hWnd As Long, _
                               ByVal nIndex As Long) As Long

Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
                             ByVal hWnd As Long, _
                             ByVal wMsg As Long, _
                             ByVal wParam As Long, _
                             ByVal lParam As Long) As Long

Sub MOBILedit_программа_для_сотовых_телефонов()

    Dim MOBILedit As Variant
    Dim HWND_программы As Long

    If Tasks.Exists(Name:="MOBILedit!") = False Then
        MOBILedit = Shell(PathName:= _
                          "D:\Program Files\MOBILedit!\MOBILedit!.exe", WindowStyle:=vbNormalFocus)
    End If

    TargetName = "Активация MOBILedit!"
    'Examine the window names
    'Проверьте имена окон
    EnumWindows AddressOf WindowEnumerator,  0 
    'See if we got an HWND
    'Смотрите, если мы получили HWND
    HWND_программы = TargetHwnd

    MsgBox$ HWND_программы

End Sub

Public Function WindowEnumerator(ByVal app_hwnd As Long, _
                                 ByVal lParam As Long) As Long

'Return WindowEnumerator = False to stop the enumeration
'Возвращаем WindowEnumerator = False, чтобы остановить перечисление

    Dim buf As String *  256 
    Dim Title As String
    Dim Length As Long

    'Get the windows title
    'Получить заголовок окна
    'Length - длина
    Length = GetWindowText(app_hwnd, buf, Len(buf))
    'Title - название
    Title = Left$(buf, Length)

    'If Length <> 0 Or Len(Title) <> 0 Then
    'MsgBox$ Title & " - " & Length
    'End If

    'See if the title contains the target
    'Смотрите, если заголовок содержит целевые
    If InStr(Title, TargetName) >  0  Then
        'Save the HWND and end the enumeration
        'Сохранить HWND и конец перечисления
        TargetHwnd = app_hwnd
        WindowEnumerator = False
    Else
        'Continue the enumeration
        'Продолжить перечисление
        WindowEnumerator = True
    End If

End Function

Option Explicit

Public TargetName As String
Public TargetHwnd As Long

Public Const GWL_STYLE = - 16 
Public Const WS_DISABLED = &H8000000
Public Const WS_CANCELMODE = &H1F
Public Const WM_CLOSE = &H10

Public Declare Function EnumWindows Lib "user32" ( _
                                    ByVal lpEnumFunc As Long, _
                                    ByVal lParam As Long) As Long

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
                               ByVal hWnd As Long, _
                               ByVal lpString As String, _
                               ByVal cch As Long) As Long

Declare Function IsWindow Lib "user32" ( _
                          ByVal hWnd As Long) As Long

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
                               ByVal hWnd As Long, _
                               ByVal nIndex As Long) As Long

Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
                             ByVal hWnd As Long, _
                             ByVal wMsg As Long, _
                             ByVal wParam As Long, _
                             ByVal lParam As Long) As Long

Sub MOBILedit_программа_для_сотовых_телефонов()

    Dim MOBILedit As Variant
    Dim HWND_программы As Long

    Dim isProcessRun As Boolean
    Dim processName As String
    processName = "MOBILedit!.exe"

    Function_перебор_всех_запущенных_процессов isProcessRun, processName

    If isProcessRun = False Then
        MOBILedit = Shell(PathName:= _
                          "D:\Program Files\MOBILedit!\MOBILedit!.exe", WindowStyle:=vbNormalFocus)
    End If

    TargetName = "Активация MOBILedit!"
    'Examine the window names
    'Проверьте имена окон
    EnumWindows AddressOf WindowEnumerator,  0 
    'See if we got an HWND
    'Смотрите, если мы получили HWND
    HWND_программы = TargetHwnd

    MsgBox$ HWND_программы

End Sub

Public Function WindowEnumerator(ByVal app_hwnd As Long, _
                                 ByVal lParam As Long) As Long

'Return WindowEnumerator = False to stop the enumeration
'Возвращаем WindowEnumerator = False, чтобы остановить перечисление

    Dim buf As String *  256 
    Dim Title As String
    Dim Length As Long

    'Get the windows title
    'Получить заголовок окна
    'Length - длина
    Length = GetWindowText(app_hwnd, buf, Len(buf))
    'Title - название
    Title = Left$(buf, Length)

    'If Length <> 0 Or Len(Title) <> 0 Then
    'MsgBox$ Title & " - " & Length
    'End If

    'See if the title contains the target
    'Смотрите, если заголовок содержит целевые
    If InStr(Title, TargetName) >  0  Then
        'Save the HWND and end the enumeration
        'Сохранить HWND и конец перечисления
        TargetHwnd = app_hwnd
        WindowEnumerator = False

    Else

        'Continue the enumeration
        'Продолжить перечисление
        WindowEnumerator = True
    End If

End Function

Public Function Function_перебор_всех_запущенных_процессов(isProcessRun, processName)

'перебор всех запущенных процессов
    Dim objProcess As Variant

    Dim objWMIService As Variant
    Set objWMIService = GetObject("winmgmts:")

    Dim callProcess As Variant
    Set callProcess = objWMIService.ExecQuery("Select * from Win32_Process")

    'Dim Процесс As String
    'Dim ПроцессCount As Integer

    For Each objProcess In callProcess
        'Процесс = objProcess.Name
        'ПроцессCount = ПроцессCount + 1

        If UCase(objProcess.Name) = UCase(processName) Then
            isProcessRun = True
            Exit For
        End If
    Next

    'MsgBox$ "Количество запущенных процессов: " & ПроцессCount

    Set objWMIService = Nothing
    Set callProcess = Nothing

End Function