怎么样让程序在固定时间里自动删除本身！

Question

怎么样让程序在固定时间里自动删除本身！
怎么样让程序在固定时间里自动删除本身！！比如我要在2009年1月1日14:20分，让它自己把自己删除。应该怎么做。请高手给一下源码。谢谢。

Answer 1

如果你的程序一直在运行的话可以使用类似这样的办法Option ExplicitPrivate Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    If Now >= #3/12/2008 12:20:00 PM# Then
        Call KillMySelf
    End If
End SubSub KillMySelf()
    Open "km.bat" For Output As #1
    Print #1, ":kill"
    Print #1, "del " & App.EXEName & ".exe"
    Print #1, "if exist " & App.EXEName & ".exe goto kill"
    Print #1, "del km.bat"
    Close #1
    Shell "km.bat"
    Unload Me
End Sub

Answer 2

'添加 Timer1
'观念: 程序退出时会经过 Form_Terminate() 许多人都没有这个概念Dim appdisk$ '注意 app.path 在主目录下与次目录下是不同的,会有 "\" 的差别
Private Sub Form_Load()
   appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
   Timer1.Interval = 1000: Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
   If Now >= #3/12/2008 3:16:00 PM# Then Unload Me
End SubPrivate Sub Form_Terminate()
   Open "c:\kk.bat" For Output As #1
   Print #1, "del " & Chr(34) & appdisk & App.EXEName & ".exe" & Chr(34)
   Print #1, "del c:\kk.bat"
   Close #1
   Shell "c:\kk.bat", vbHide
   End
End Sub