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

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条回答

  • threenewbee 2019-04-03 00:38
    关注

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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题