Question

VB如何编写计时器,到时间后关闭指定EXE文件.

计时器时间到了,
就马上执行关闭指定文件. 而且窗体内要显示倒计时时间,比如Text标签内显示倒计时数字.或者List显示数字.

Answer 1

两个控件 一个timer 一个text Dim a As Long '声明变量
Private Sub Form_Load()
a = 100 '假设一百秒后
Timer1.Interval = 1000 'timer1 1秒刷新一次 1000是毫秒数 如果timer1.interval=100就是0.1秒刷新一次
End SubPrivate Sub Timer1_Timer()
a = a - 1 'timer1 刷新一次A-1
If a <= 0 Then '如果A小于等于0
MsgBox "时间到", 0, "提示" '就显示提示
End '这是关闭自身程序，如果要关闭其他程序要APP函数
End If
Text1.Text = a ' text1显示倒计时数
End Sub

Answer 2

在窗体上加入两个text控件，text1用来接收用户希望关闭应用程序的时间，text2用来记录用户希望关闭应用程序的程序名。一个timer控件，一个Label控件用于显示倒计时，一个command控件用于确定。进入代码编辑：

Answer 3

关闭自身程序上面已经说了，就不多写了关闭其他指定程序可以用taskkill函数shell "taskkill /f /im exe文件名"

Answer 4

Dim a As Long
Private Sub Form_Load()
a = 10
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
a = a - 1
If a = 0 Then
Timer1.Enabled = False
Shell ("taskkill /f /im qq.exe")End If
Text1.Text = a
End Sub借用楼上的，你可以把qq.exe改成你要关闭的。EXE文件进程名即可。你试下

Answer 5

有控件啊！！自己拖啊！！