Foro de elhacker.net

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
 
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" _
(ByVal hwnd As Long, ByVal wFlag As Long) As Long
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 Const GW_HWNDNEXT = 2
 Const GW_CHILD = 5
 
 
Private Sub Command2_Click()
Dim TITULODELAVENTANA As String
Dim hPhoto_Lightweight_Viewer As Long
Dim hPhotos_NavigationPane As Long
Dim hPhotos_NavigationBar As Long
Dim hPhotos_ButtonEx_1 As Long
Dim hPhotos_ButtonEx_2 As Long
Dim hPhotos_ButtonEx_3 As Long
Dim hPhotos_ButtonEx_4 As Long
Dim hPhotos_ButtonEx_5 As Long
TITULODELAVENTANA = "24TL510V.jpg - Visualizador de fotos de Windows"
'Orden de padre a hijos
'1.Photo_Lightweight_Viewer
'-----Photos_NavigationPane
'------------Photos_NavigationBar
'----------------------Photos_ButtonEx
 
'//handle de la ventana
hPhoto_Lightweight_Viewer = FindWindow("Photo_Lightweight_Viewer", TITULODELAVENTANA)
 
'//handle del panel
'handle de Photo_Lightweight_Viewer
handlePhotos_NavigationPane = FindWindowEx(hPhoto_Lightweight_Viewer, ByVal 0&, "Photos_NavigationPane", vbNullString)
 
'//Handle del control de botones
'handle de hPhotos_NavigationBar
handlePhotos_NavigationBar = FindWindowEx(handlePhotos_NavigationPane, ByVal 0&, "Photos_NavigationBar", vbNullString)
 
 
'//BOTONES
'//Como Photos_ButtonEx no tiene hijos a partir de aquí se usa  GW_HWNDNEXT
'//para obtener el handle del siguiente botón (ventana)
 
'handle de Photos_ButtonEx (la lupa)
hPhotos_ButtonEx_1 = FindWindowEx(handlePhotos_NavigationBar, ByVal 0&, "Photos_ButtonEx", vbNullString)
 
'handle de Photos_ButtonEx (botón maximizar)
hPhotos_ButtonEx_2 = GetWindow(hPhotos_ButtonEx_1, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón "izquierda")
hPhotos_ButtonEx_3 = GetWindow(hPhotos_ButtonEx_2, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón diapositivas)
hPhotos_ButtonEx_4 = GetWindow(hPhotos_ButtonEx_3, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón "derecha")
hPhotos_ButtonEx_5 = GetWindow(hPhotos_ButtonEx_4, GW_HWNDNEXT)
 
 
MsgBox "LUPA = " & Hex(hPhotos_ButtonEx_1)
MsgBox "MAXIMIZAR = " & Hex(hPhotos_ButtonEx_2)
MsgBox "IZQUIERDA = " & Hex(hPhotos_ButtonEx_3)
MsgBox "DIAPOSITIVAS = " & Hex(hPhotos_ButtonEx_4)
MsgBox "DERECHA = " & Hex(hPhotos_ButtonEx_5)
 
 
End Sub
 
 

Photo_Lightweight_Viewer
   - Photos_CommandBar
           - Photos_ButtonEx (Arc&hivo)
           - Photos_ButtonEx (&Imprimir)
           - Photos_ButtonEx (Correo &electrónico)
           - Photos_ButtonEx (&Grabar)
           - Photos_ButtonEx  (&Abrir)
           - Photos_ButtonEx ("") objeto oculto
           - Photos_ButtonEx ("") objeto oculto
   - Photos_PhotoCanvas
   - ATL:568ED690
           - Photos_ButtonEx  ("") objeto oculto
           - Photos_ButtonEx  ("") objeto oculto
           - Photos_ButtonEx  ("") objeto oculto
   - Photos_NavigationPane
            - Photos_NavigationBar
                   - Photos_ButtonEx (control de navegación)
                   - Photos_ButtonEx (control de navegación)
                   - Photos_ButtonEx (control de navegación)
                   - Photos_ButtonEx (control de navegación)
                   - Photos_ButtonEx (control de navegación)
                   - Photos_ButtonEx (control de navegación)
                   - Photos_ButtonEx (control de navegación)
                   - Photos_ButtonEx (control de navegación)

hPhoto_Lightweight_Viewer = FindWindow("Photo_Lightweight_Viewer", TITULODELAVENTANA)

hPhotos_commandbar = FindWindowEx(hPhoto_Lightweight_Viewer, ByVal 0&, "Photos_commandbar", vbNullString)

Dim TITULODELAVENTANA As String
Dim hPhoto_Lightweight_Viewer As Long
Dim hPhotos_commandbar As Long
TITULODELAVENTANA = "demo.jpg - Visualizador de fotos de Windows"
 
hPhoto_Lightweight_Viewer = FindWindow("Photo_Lightweight_Viewer", TITULODELAVENTANA)
hPhotos_commandbar = FindWindowEx(hPhoto_Lightweight_Viewer, ByVal 0&, "Photos_commandbar", vbNullString)
MsgBox "barra = " & Hex(hPhotos_commandbar)

 
 
Do While HWNDParent = 0
   HWNDParent = [Buscar handle visualizador de windows]
   DoEvents '//esto es para evitar que la apliación se quede pillada
Loop
 
 
'Do While hwnd = 0
'[Abrir imagen en el visualizador de windows correspondiente]
'DoEvents
'Loop
 
 
 

 
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
 
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" _
(ByVal hwnd As Long, ByVal wFlag As Long) As Long
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
 Const HIDE_WINDOW = 0
 Const SHOW_OPENWINDOW = 1
 Const GW_HWNDNEXT = 2
 Const GW_CHILD = 5
 
 Dim TITULODELAVENTANA As String
Dim hPhoto_Lightweight_Viewer As Long
Dim hPhotos_NavigationPane As Long
Dim hPhotos_NavigationBar As Long
Dim hPhotos_ButtonEx_1 As Long
Dim hPhotos_ButtonEx_2 As Long
Dim hPhotos_ButtonEx_3 As Long
Dim hPhotos_ButtonEx_4 As Long
Dim hPhotos_ButtonEx_5 As Long
Private Sub Command1_Click()
 
TITULODELAVENTANA = "Desierto.jpg - Visualizador de fotos de Windows"
'Orden de padre a hijos
'1.Photo_Lightweight_Viewer
'-----Photos_NavigationPane
'------------Photos_NavigationBar
'----------------------Photos_ButtonEx
 
'//handle de la ventana
hPhoto_Lightweight_Viewer = FindWindow("Photo_Lightweight_Viewer", TITULODELAVENTANA)
 
'//handle del panel
'handle de Photo_Lightweight_Viewer
handlePhotos_NavigationPane = FindWindowEx(hPhoto_Lightweight_Viewer, ByVal 0&, "Photos_NavigationPane", vbNullString)
 
'//Handle del control de botones
'handle de hPhotos_NavigationBar
handlePhotos_NavigationBar = FindWindowEx(handlePhotos_NavigationPane, ByVal 0&, "Photos_NavigationBar", vbNullString)
 
 
'//BOTONES
'//Como Photos_ButtonEx no tiene hijos a partir de aquí se usa  GW_HWNDNEXT
'//para obtener el handle del siguiente botón (ventana)
 
'handle de Photos_ButtonEx (la lupa)
hPhotos_ButtonEx_1 = FindWindowEx(handlePhotos_NavigationBar, ByVal 0&, "Photos_ButtonEx", vbNullString)
 
'handle de Photos_ButtonEx (botón maximizar)
hPhotos_ButtonEx_2 = GetWindow(hPhotos_ButtonEx_1, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón "izquierda")
hPhotos_ButtonEx_3 = GetWindow(hPhotos_ButtonEx_2, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón diapositivas)
hPhotos_ButtonEx_4 = GetWindow(hPhotos_ButtonEx_3, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón "derecha")
hPhotos_ButtonEx_5 = GetWindow(hPhotos_ButtonEx_4, GW_HWNDNEXT)
 
 
'quitar hPhotos_ButtonEx_1
Call ShowWindow(hPhotos_ButtonEx_1, HIDE_WINDOW)
 
 'quitar hPhotos_ButtonEx_2
Call ShowWindow(hPhotos_ButtonEx_2, HIDE_WINDOW)
 
  'quitar hPhotos_ButtonEx_5
Call ShowWindow(hPhotos_ButtonEx_5, HIDE_WINDOW)
 
End Sub
 
Private Sub Command2_Click()
'mostrar hPhotos_ButtonEx_1
Call ShowWindow(hPhotos_ButtonEx_1, SHOW_OPENWINDOW)
 
 'mostrar hPhotos_ButtonEx_2
Call ShowWindow(hPhotos_ButtonEx_2, SHOW_OPENWINDOW)
 
  'mostrar hPhotos_ButtonEx_5
Call ShowWindow(hPhotos_ButtonEx_5, SHOW_OPENWINDOW)
 
End Sub
 

 
 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
 
 
Private Sub Command1_Click()
Dim hPhotos_PhotoCanvas As Long
Dim hPhoto_Lightweight_Viewer As Long
 
TITULODELAVENTANA = "Desierto.jpg - Visualizador de fotos de Windows"
 
'//handle de la ventana
hPhoto_Lightweight_Viewer = FindWindow("Photo_Lightweight_Viewer", TITULODELAVENTANA)
 
'//handle del Photos_PhotoCanvas
hPhotos_PhotoCanvas = FindWindowEx(hPhoto_Lightweight_Viewer, ByVal 0&, "Photos_PhotoCanvas", vbNullString)
 
Call EnableWindow(hPhotos_PhotoCanvas, vbFalse)
End Sub
 

 
Private Const INVALID_HANDLE_VALUE      As Long = -1
Private Const MAX_PATH                  As Long = 260
Private Const SHORT_PATH                As Long = 14
 
Private Type FILETIME
   dwLowDateTime                        As Long
   dwHighDateTime                       As Long
End Type
Private Type WIN32_FIND_DATA
   dwFileAttributes                     As Long
   ftCreationTime                       As FILETIME
   ftLastAccessTime                     As FILETIME
   ftLastWriteTime                      As FILETIME
   nFileSizeHigh                        As Long
   nFileSizeLow                         As Long
   dwReserved0                          As Long
   dwReserved1                          As Long
   cFileName                            As String * MAX_PATH
   cAlternate                           As String * SHORT_PATH
End Type
 
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
 
 
' Código dle botón que carga la imagen:
Private Sub Command1_Click()
    Dim Ruta As String
 
    cdlg.ShowOpen   ' Cdlg, es un control CommonDialog...
    If (Len(cdlg.FileName) > 0) Then
        Ruta = ResuelveRuta(cdlg.FileName)
        if (len(ruta)>0) then
            Set Picture1.Picture = LoadPicture(Ruta)
        end if
    End If
End Sub
 
' Función que resuelve el problema de los nombres con caracteres Unicode dentro del nombre...
Private Function ResuelveRuta(ByVal Ruta As String) As String
    Dim j As Long, k As Long, WFD As WIN32_FIND_DATA
 
    j = FindFirstFile(Ruta, WFD)
    If (j <> INVALID_HANDLE_VALUE) Then
        k = InStrRev(Ruta, "\")
 
        If (Left$(WFD.cAlternate, 1) <> Chr(0)) Then
            ResuelveRuta = Left$(Ruta, k) & WFD.cAlternate
        Else
            ResuelveRuta = Left$(Ruta, k) & WFD.cFileName
        End If
    Else
        ResuelveRuta = ""
    End If
End Function
 
Private Sub Form_Load()
    cdlg.InitDir = App.Path
End Sub
 

Dim StartX As Single, StartY As Single
 
Private Sub Form_Activate()
    MousePointer = 11
    Picture2.PaintPicture Form1.Picture, 0, 0
    Picture1.PaintPicture Picture2.Image, -20, -20, Picture1.Width + 100, Picture1.Height + 100, _
    Picture1.Left, Picture1.Top, Picture1.Width, Picture1.Height
    Picture1.Line (0, 0)-(Picture1.Width - 1, Picture1.Height - 1), 0, B
    MousePointer = 0
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    StartX = X
    StartY = Y
    Picture1.AutoRedraw = False
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Picture1.Left = IIf(X < StartX, Picture1.Left - (StartX - X), Picture1.Left + (X - StartX))
        Picture1.Top = IIf(Y < StartY, Picture1.Top - (StartY - Y), Picture1.Top + (Y - StartY))
 
        Picture1.PaintPicture Picture2.Image, -20, -20, Picture1.Width + 100, Picture1.Height + 100, _
        Picture1.Left, Picture1.Top, Picture1.Width, Picture1.Height
        Picture1.Line (0, 0)-(Picture1.Width - 1, Picture1.Height - 1), 0, B
    End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.AutoRedraw = True
End Sub
 
 

' previamente hay que añadir la referencia al proyecto de: FileSystemObject
Private fso                             As New FileSystemObject
Private fold                            As Folder
Private f                               As File
 
' 'primer' y 'segundo' tipo, es solo una connotación para la solución y el tiempo que lleva cada caso.
Private Function ResuelveRuta(ByVal Ruta As String, Optional ByRef SegundoIntento As Boolean) As String
    Dim k As Integer, j As Integer, fichero As String
 
    If Existe(Ruta) Then
        k = InStrRev(Ruta, "\")
        If (Left$(WFD.cAlternate, 1) <> Chr(0)) Then
            ' Aqui CAZA: caracteres Unicode (del primer tipo) en el nombre del fichero.
            j = InStr(WFD.cAlternate, Chr(0)) ' este campo tiene 14 caracteres, en nombres muy cortos, tipo 3.jpg, todavía podría haber caracteres null al final del mismo.
            If (j > 0) Then
                ResuelveRuta = Left$(Ruta, k) & Left$(WFD.cAlternate, j - 1)
            Else
                ResuelveRuta = Left$(Ruta, k) & WFD.cAlternate
            End If
        Else
            ResuelveRuta = Ruta ' Left$(Ruta, k) & WFD.cFileName
        End If
    Else
        If (SegundoIntento = False) Then
            SegundoIntento = True
            k = InStrRev(Ruta, "\")
            j = Len(Ruta)
            If (k < j) Then
                ' Aqui CAZA: caracteres Unicode (del segundo tipo) en el nombre del fichero.
                fichero = Right$(Ruta, j - k)
                Set fold = fso.GetFolder(Left$(Ruta, k))
                For Each f In fold.Files
                    If (StrCompUnicode(f.Name, (fichero)) = True) Then
                        ResuelveRuta = ResuelveRuta(Left$(Ruta, k) & f.ShortName)
                        ' usar f.ShortPath  si además de los ficheros, las carpetas también tuvieran 'caracteres raros'...
                        SegundoIntento = False
                        Exit Function
                    End If
                Next
                ResuelveRuta = ""
            Else
                ResuelveRuta = ""
            End If
            SegundoIntento = False
        Else
            ResuelveRuta = ""
        End If
    End If
End Function
 
Private Function Existe(ByVal Ruta As String) As Boolean
    Existe = (FindFirstFile(Ruta, WFD) <> INVALID_HANDLE_VALUE)
End Function
 
' Hace una comparación binaria de los bytes pares
' OJO: No modificar un ápice esta función, basta retirar los 'ASC()' para que falle, lo mismo  si se hace una conversión a arrays...
'      ejemplos que fallan:
'         StrCompUnicode = (Str1 = Str2) Then
'         StrCompUnicode = Strcom(str1, str2, vbTextCompare) ó vbBinaryCompare
'         If (Mid$(Str1, k, 1)) <> (Mid$(Str2, k, 1))) Then Exit Function
Private Function StrCompUnicode(ByRef Str1 As String, ByRef Str2 As String) As Boolean
    Dim k As Long, j As Long
 
    k = Len(Str1): j = Len(Str2)
    If (k = j) Then
        For k = 1 To j
            'Debug.Print CStr(Asc(Mid$(Str1, k, 1))),
            'Debug.Print CStr(Asc(Mid$(Str2, k, 1)))
            If (Asc(Mid$(Str1, k, 1)) <> Asc(Mid$(Str2, k, 1))) Then Exit Function
        Next
 
        StrCompUnicode = True
    End If
End Function
 
 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" _
(ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" _
(ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, _
ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
 
Const WM_COMMAND = &H111
Const WM_SYSCOMMAND = &H112
Const MF_BYPOSITION = &H400&
Const MF_POPUP = &H10&
Const SW_NORMAL = 1
Const SW_HIDE = 0
 
Private Sub Command1_Click()
    Dim n As Variant
    Dim hMainMenu As Long
    Dim hMenu As Long
    Dim MenuID As Long
    Dim MenuCount As Long
    Dim stringmenu As String
    Dim szbuff As String * 128
    Dim cabBuff As String * 128
    Dim HwndParent As Long
    Dim nPos As Integer
    Dim nID As Integer
    HwndParent = FindWindow("Notepad", vbNullString)
    If HwndParent = 0 Then Exit Sub
    hMainMenu = GetMenu(HwndParent)    'Obtiene el handle del menú de Notepad
    MenuCount = GetMenuItemCount(hMainMenu) 'Cuenta el número de menús (no submenus)
    For nPos = 0 To MenuCount - 1 'Bucle como tantos menús tenga notepad (son 5: 0,1,2,3,4)
 
        '//Obtiene las cabeceras
        Call GetMenuString(hMainMenu, nPos, cabBuff, 128, MF_BYPOSITION)
        List1.AddItem nPos & ": " & cabBuff
        For nID = -1 To 1000 'Como no se cuantos submenus tiene bucleo desde -1 al 1000 (se empieza desde -1)
            hMenu = GetSubMenu(hMainMenu, nPos) 'Obtiene el handle del submenú del menú Z
            MenuID = GetMenuItemID(hMenu, nID) 'Obtiene el ID del submenú
            If MenuID > -1 And MenuID > 0 Then
                Call GetMenuString(hMenu, MenuID, szbuff, 128, MF_BYPOSITION & MF_POPUP)
                    List2.AddItem "cab:" & nPos & "-> " & hMenu   '//Handle
                    List3.AddItem "cab:" & nPos & "-> " & MenuID   '//MenuID
                    List4.AddItem "cab:" & nPos & "-> " & szbuff   '//Nombre
                End If
        Next nID
    Next nPos
'//DEMOSTRACIÓN'//
'/////////////////////////////////
'//Envía un mensaje a Notepad
'//para que ejecute el menú Ayuda
'/////////////////////////////////
AppActivate "Sin título: Bloc de notas" '//Activa el notepad
MenuID = 65& '//-<--Introduce el ID del menú en la variable
SendMessage HwndParent, WM_COMMAND, MenuID, 0&    'esto ejecuta el ID 65 (Acerca de bloc de notas)
 
End Sub
 
 
Private Sub Form_Load()
'Inicia notepad.exe
Dim X As Long, hw As Long
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd.exe start  /r notepad.exe", SW_HIDE, 0
 
End Sub
 

 Private Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type
 
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" _
(ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
 

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

 Public Function EliminarMenu(ByVal hwndAPP As Long)
    Dim HWNDMenu As Long
    Dim idpOS As Long
    Dim i As Integer
    Dim N As Long
Dim d As Long
    'hwnd del menu del programa
    HWNDMenu = GetMenu(hwndAPP)
    If HWNDMenu Then
        n_Menu = GetMenuItemCount(HWNDMenu)
        If n_Menu Then
        For i = 1 To n_Menu     'Recorre todos los menú y los elimina
        Call RemoveMenu(HWNDMenu, 0, MF_BYPOSITION)
        Next
        Call DrawMenuBar(hwndAPP)     'Repinta la barra de menú
        End If
    End If
End Function

Call EliminarMenu(hwndAPP)
 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = &H400&
 
Dim hwndAPP As Long
 
Private Sub Form_Load()
Shell "notepad.exe", vbNormalFocus
Do While hwndAPP = 0
hwndAPP = FindWindow("Notepad", vbNullString)
DoEvents
Loop
End Sub
'//Oculgar menú
Private Sub Command1_Click()
Call EliminarMenu(hwndAPP)
End Sub
 
 Public Function EliminarMenu(ByVal hwndAPP As Long)
    Dim HWNDMenu As Long
    Dim idpOS As Long
    Dim i As Integer
    Dim N As Long
Dim d As Long
    'hwnd del menu del programa
    HWNDMenu = GetMenu(hwndAPP)
    If HWNDMenu Then
        n_Menu = GetMenuItemCount(HWNDMenu)
        If n_Menu Then
        For i = 1 To n_Menu     'Recorre todos los menú y los elimina
        Call RemoveMenu(HWNDMenu, 0, MF_BYPOSITION)
        Next
        Call DrawMenuBar(hwndAPP)  
        End If
    End If
End Function
 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const MF_BYPOSITION = &H400&
Private Const WM_COMMAND = &H111
 
Dim hwndAPP As Long
 
Private Sub Form_Load()
Shell "notepad.exe", vbNormalFocus
Do While hwndAPP = 0
hwndAPP = FindWindow("Notepad", vbNullString)
DoEvents
Loop
Call EliminarMenu(hwndAPP)
End Sub
 
Private Sub Command1_Click()
Dim MenuID As Long
MenuID = 65&
AppActivate "Sin título: Bloc de notas"
SendMessage hwndAPP, WM_COMMAND, MenuID, 0&
End Sub
 
 Public Function EliminarMenu(ByVal hwndAPP As Long)
    Dim HWNDMenu As Long
    Dim idpOS As Long
    Dim i As Integer
    Dim N As Long
Dim d As Long
    'hwnd del menu del programa
    HWNDMenu = GetMenu(hwndAPP)
    If HWNDMenu Then
        n_Menu = GetMenuItemCount(HWNDMenu)
        If n_Menu Then
        For i = 1 To n_Menu     'Recorre todos los menú y los elimina
        Call RemoveMenu(HWNDMenu, 0, MF_BYPOSITION)
        Next
        Call DrawMenuBar(hwndAPP)     'Repinta la barra de menú
        End If
    End If
End Function