登录
首页 » VB源码 » vb实现调用其他应用程序的菜单

vb实现调用其他应用程序的菜单

于 2022-06-26 发布 文件大小:2.25 kB
0 140
下载积分: 2 下载次数: 1

代码说明:

vb演示如何调用其他应用程序菜单的方法,程序演示了在VB程序中,调用 windows记事本程序的菜单,不过测试发现,本程序在Windows 7中失效了,本代码写于2010年的,有些早了,当时可能只考虑了Windows XP,可能需要对以下代码加以修正,才能适用于windows 7/10环境:   hwnd = FindWindow(vbNullString, "无标题 - 记事本菜单")   If hwnd = 0 Then Exit Sub   hMainMenu = GetMenu(hwnd)   hMenu = GetSubMenu(hMainMenu, 0)   MenuID = GetMenuItemID(hMenu, 3)   AppActivate "无标题 - 记事本菜单"   Ret = SendMessage(hwnd, WM_COMMAND, MenuID, 0&)

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB.NET邮件发送实例 可发附件
    VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
    2022-08-15 21:36:57下载
    积分:1
  • VB求解数学问题,求两个数最大公约数
    VB6.0演示一个求解数学问题,求两个数最大公约数,这是个简单的数学问题,数学基础好,用VB很轻松就编写出本程序了。在运行的窗口中,分别输入两个整数,单击按钮,程序将显示两个数的最大公约数是多少。求解的过程代码描述如下:   If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then    MsgBox "输入的数0或溢出,请重新输入!"    MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"    Text1.Text = ""    Text2.Text = ""    Text1.SetFocus   Else    m = Val(Text1.Text)    n = Val(Text2.Text)   If m < n Then    temp = m: m = n: n = temp   End If   Do    r = m Mod n    m = n    n = r   Loop While r 0   Label3.Caption = "两个正整数m和n的最大公约数为: " & m   End If
    2022-07-16 14:37:29下载
    积分:1
  • VB.NET Try Catch Finally用法演示
    VB.NET 演示带Finally的Try Catch 异常处理用法演示,这个源码就是捕捉VB.NET运行错误的,结合了最常规的try catch组合,并且使用了Finally处理的情况,那么为什么要使用Finally呢?使用Finally的好处是,把资源释放或状态还原的代码放到finally块中,可以保证在try和catch语句执行完后,一定会执行finally语句块,而不用考虑各种复杂的跳转情况。
    2023-05-11 05:35:04下载
    积分:1
  • VB 6.0 AscW将汉字转换为Unicode字符代
    本源码演示VB 6.0 如何将汉字转换为Unicode字符代码,在窗口中输入汉字,单击按钮,即可将汉字转换为Unicode字符,其实这个实现起来也比较简单,用VB内置函数AscW即可实现,代码的编写可参考如下:   Private Sub Command1_Click()    Text2.Text = AscW(Text1)   End Sub   Private Sub Command2_Click()    Unload Me   End Sub
    2022-08-09 07:08:37下载
    积分:1
  • VB Socket获取主机名和IP地址
    VB Socket获取主机名和IP地址,获取主机名是使用了VB中的GetComputerName直接得到,然后对Socket初始化,使用gethostbyname取得主机地址,再获取到IP后进行转化为标准的IP格式。转换过程如下:   RtlMoveMemory host, hostent_addr, LenB(host)   RtlMoveMemory hostip_addr, host.hAddrList, 4   ReDim temp_ip_address(1 To host.hLength)   RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength   For i = 1 To host.hLength    ip_address = ip_address & temp_ip_address(i) & "."   Next i   ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)   MsgBox "IP:" + ip_address
    2022-10-23 19:55:03下载
    积分:1
  • VB程序托盘控件+实例
    VB程序托盘控件+源码实例,VB自定义一个添加程序到Windows托盘图标的控件,编译控件源码后生成Tray.ocx,源码包中附有一个调用本托盘程序的示例,在TrayDEMO文件夹内,在Class1.cls文件中实现了托盘的主要操作:将程序图标添加到系统托盘区,将图标从系统托盘区中删除,设置图标的提示信息,添加图标右键操作等功能。
    2022-07-07 04:23:33下载
    积分:1
  • VB NET写的DVD播放器
    播放器窗口界面中的操作菜单,实现了弹出菜单的功能,把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。   播放器功能支持DVD格式的视频播放,包括了暂停、播放、停止、弹出等功能。   本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
    2023-05-18 15:05:03下载
    积分:1
  • VB6.0检查是否有拨号连接
    VB6.0检查你的电脑是否有拨号连接,获取本机的网络连接列表,重点是检测是否有拨号网络连接。
    2022-07-25 20:56:18下载
    积分:1
  • VB.NET应用程序管理工具-类似360桌布助手
    这是一个用VB.NET开发的应用程序管理工具-类似360桌布助手的某此功能,通过导入保存有常用程序列表的XML文件,来通过程序来管理各应用程序的快捷方式,用户可以把常用的程序收集起来,在这里可以直接双击列表中程序名称或点击【启动程序】来启动每个程序。不用到处找你所安装的程序或软件。方便,快捷,常用程序列表:(用户可以拖放任何文件到下面列表中)。   程序列表的操作有导入和导出。
    2022-08-20 10:25:11下载
    积分:1
  • vb利用数据窗口辅助录入数据
    vb利用数据窗口辅助录入数据,也就是本程序窗口中,生成了一些数据辅助窗口,可对用户的录入工作提供一些帮助,其实就是一些供用户选择的组件之类的,用户了用户,又提升了数据录入的准确性,在VB6.0中,本源码可顺利编译成功,运行后如示例图所示。
    2023-07-26 19:20:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载