[求助]灰色菜单突破工具-编程技术-看雪-安全社区|安全招聘|kanxue.com

最新回复 (2)
xPLK 雪币： 375 活跃值： (12) 能力值： ( LV8，RANK：130 ) 在线值：发帖 18 回帖 705 粉丝 0 关注私信	xPLK 3 2 楼 Public Sub TopMenu(ByVal hwnd As Long) Dim n As Integer hMenu = GetMenu(hwnd) TopMenuCount = GetMenuItemCount(hMenu) For n = 0 To TopMenuCount EnableMenuItem hMenu, n, MF_ENABLED + MF_BYPOSITION + MF_BYCOMMAND SubMenu hMenu, n Next n End Sub Public Sub SubMenu(ByVal hMenu As Long, ByVal l As Integer) Dim Y As Integer hSubMenu = GetSubMenu(hMenu, l) SubMenuCount = GetMenuItemCount(hSubMenu) For Y = 0 To SubMenuCount EnableMenuItem hSubMenu, Y, MF_ENABLED + MF_BYPOSITION + MF_BYCOMMAND Next Y End Sub 我以前写的，能激活一些菜单，弹出式的不行，可以参考一下。 2008-7-12 21:03 0
winnip 雪币： 145 活跃值： (85) 能力值： ( LV5，RANK：60 ) 在线值：发帖 100 回帖 902 粉丝 0 关注私信	winnip 1 3 楼谢谢你，大大！ 2008-7-13 12:15 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

最新回复 (2)
xPLK 雪币： 375 活跃值： (12) 能力值： ( LV8，RANK：130 ) 在线值：发帖 18 回帖 705 粉丝 0 关注私信	xPLK 3 2 楼 Public Sub TopMenu(ByVal hwnd As Long) Dim n As Integer hMenu = GetMenu(hwnd) TopMenuCount = GetMenuItemCount(hMenu) For n = 0 To TopMenuCount EnableMenuItem hMenu, n, MF_ENABLED + MF_BYPOSITION + MF_BYCOMMAND SubMenu hMenu, n Next n End Sub Public Sub SubMenu(ByVal hMenu As Long, ByVal l As Integer) Dim Y As Integer hSubMenu = GetSubMenu(hMenu, l) SubMenuCount = GetMenuItemCount(hSubMenu) For Y = 0 To SubMenuCount EnableMenuItem hSubMenu, Y, MF_ENABLED + MF_BYPOSITION + MF_BYCOMMAND Next Y End Sub 我以前写的，能激活一些菜单，弹出式的不行，可以参考一下。 2008-7-12 21:03 0
winnip 雪币： 145 活跃值： (85) 能力值： ( LV5，RANK：60 ) 在线值：发帖 100 回帖 902 粉丝 0 关注私信	winnip 1 3 楼谢谢你，大大！ 2008-7-13 12:15 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复