这个完全可以的,有个调用外部程序的函数,在读取系统QQ注册表中记录的QQ路径就可以了.
双击给按钮加命令：
Private Sub Command1_Click()
dim ab
ab = Shell("D:\Program Files\Tencent\QQ.exe", 1)
End Sub
Private Sub Command2_Click()
dim AAshell
AAshell = Shell("D:\Program Files\Tx\QQ.exe", 1)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024