程序代码：

Option Explicit

Private Sub Timer1_Timer()
'定义为每5秒执行一次.
'不使用 API 函数
'使用 外部命令

Const 进程名 = "iexplore.exe"

'使用 taskkill 命令 强行关闭指定映像的进程
Shell "taskkill /f /im " & 进程名, vbHide

End Sub