weixin_44866220
weixin_44866220
采纳率100%
2019-04-02 14:51 浏览 379

vb 用api函数getmenu和getsubmenu获取vmware菜单返回值为0

图片说明
Option Explicit
Private Declare Function GetMenu Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetMenuItemID Lib "user32.dll" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetSubMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Const WM_COMMAND As Long = &H111

Private Sub Command1_Click()

   Dim h1 As Long, h2   As Long, id  As Long
   h1 = FindWindow(vbNullString, "Windows XP Professional - VMware Workstation")

   h2 = GetMenu(h1)          '到这里就不行了,h2返回值是0
   h2 = GetSubMenu(h2, 2)
   id = GetMenuItemID(h2, 1)
   SendMessage h1, WM_COMMAND, id, ByVal 0&

End Sub

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

1条回答 默认 最新

  • 已采纳
    caozhy 从今以后生命中的每一秒都属于我爱的人 2019-04-03 00:38

    说明它的菜单不是windows标准的菜单,而是自己实现的,所以用GetWindow而不是用GetMenu/GetSubMenu

    点赞 评论 复制链接分享

相关推荐