首 页最新软件下载排行文章资讯投稿发布下载专题
维维下载站
您的位置:首页编程开发网络编程编程其它 → VB如何编写打开QQ时会运行我的软件

VB如何编写打开QQ时会运行我的软件

来源:维维整理 发布时间:2010-2-23 11:29:00 人气:

VB怎么设置随QQ启动而启动,如果用VB实现当打开QQ时会运行我指定的软件,下面维维给大家带来相关解答。

这个需要用第三方软件来实现,就是你必需要通过自己另外编一个小程序来监控进程列表,当发现QQ后打开你需要打开的软件,一下是我的代码:你要打开的软件假设为“软件1”,监控程序的代码如下:

Private Sub Timer1_Timer()
Dim s
s = "QQ.exe" '进程名称可以自己更改
Set objwmiservice = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = objwmiservice.ExecQuery("Select * from Win32_Process Where Name='" & s & "'")
For Each objprocess In colProcessList
Shell "cmd /c 软件1 " '这里是你需要打开的软件的路径
Next
Set objprocess = Nothing
Set colProcessList = Nothing
Set objwmiservice = Nothing
End Sub

相关下载
栏目导航
本类热门阅览