高分急求！！弹出窗口/对话框代码

来源：百度知道 编辑：UC知道 时间：2024/05/27 13:12:00
急需一个可以实现在指定日期指定时间自动弹出对话框或打开指定文件的代码，要求代码可以独立运行，且在运行后可以自动将自身删除。最好是vb或c/c++,如有高手汇编也可以。
可以将代码发到我的邮箱里redfox167@163.com，待程序验证通过测试后追加200分。代码最好加上详细的注释！！！
谢谢
十天后收割答案，可能不只一个答案符合要求，但条件限制，只能给最好的那位分数，其他的我可能单独开送分帖作为答谢，我会通知的

'追梦人
'2007-11-15
'VB6+SP6 winXP
'调试通过

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'删除自身
Public Sub DelMe()
Dim WindowsDirectory As String, x As Long
WindowsDirectory = Space(255)
x = GetWindowsDirectory(WindowsDirectory, 255) '获取系统目录

'删除程序体
Open x & "DelMe.bat" For Output As #1
Print #1, "@echooff"
Print #1, "sleep100"
Print #1, "del " & App.EXEName + ".exe"
Print #1, "del DelMe.bat"
Print #1, "cls"
Print #1, "exit"
Close #1

Shell x & "delme.bat", vbHide
End
End Sub

Sub main()
Dim Tim As Long

Do While True
DoE