【Access小品】欲练此功 －－定时自毁示例

时　间:2013-07-03 20:07:01
作　者:煮江品茶   ID：10802  城市：武汉
摘　要:【Access小品】欲练此功 －－定时自毁示例
正　文:

　　版友“久石让的粉丝”者得一葵花宝典，名曰：自杀程序。研究数日，不得其要领，遂上网求助。

　　余观此例，甚觉不妥。以注入之法写批处理程序删除文件，多有病毒嫌疑。

　　寻死之法颇多，不必一棵树上吊死，弄个尸首全无更为不当。于是乎便写此例，以解其惑。

　　写罢此例，忽记起一句笑谈，其曰：欲练此功，需先自宫，如不自宫，也可成功，就算自宫，未必成功。

Public Function DelFroms(ByVal d As Date)
    Dim frm As AccessObject
    Dim dbs As Object
    Dim n As Long
    Set dbs = Application.CurrentProject
    n = DateDiff("d", Date, d)
   Select Case n
        Case 5 To 10
                MsgBox "兄弟，钱准备好了吗？"
        Case 2 To 4
                MsgBox "哥们，我等钱买米下锅，请抓紧付款！"
        Case 1
                MsgBox "老弟，今天不给钱，明天我就饿死了！"
        Case Is <= 0
                MsgBox "我饿死了！"
                Do While dbs.AllForms.Count > 0
                    DoCmd.DeleteObject acForm, dbs.AllForms(0).Name
                Loop
    End Select
End Function