VB关闭QQ的问题

来源：百度知道 编辑：UC知道 时间：2024/05/26 01:07:30
我想编写以个工具。在一定的时间内 关闭QQ 或者其他的应用程序。。

比如10点钟关闭QQ 请问大虾们这个怎么做啊。。
不是。。 我只想用VB做啊。。

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Hour(Now) >= 10 And Hour(Now) <= 18 Then
Set objWMIService = CreateObject("winmgmts:{impersonationLevel=Impersonate}!root\cimv2")
Set colProcesslist = objWMIService.ExecQuery("select * from win32_process where name=" & "'QQ.exe'")
For Each objProcess In colProcesslist
objProcess.Terminate
Next
End If
End Sub

想简单的话就直接用wmi作个脚本就行了。
根本用不上vb

加个TIMER控件
Private Sub Form_Load()
Dim a, b
Timer1.Interval = 1000
a = Minute(Time)
b = Hour(Time)
If b = 10 Then Shell "ntsd -c q -pn qq.exe"
End Sub