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