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

todaynew

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

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

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

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


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", d, Date)
   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

mclly2000

n = DateDiff("d", d, Date)
改成 n = DateDiff("d", Date,d )
可能更符合逻辑吧

mclly2000

谢谢老汉分享

admin

谢谢分享!

盗梦

谢谢分享!

todaynew

示例中有一个小错误，请下载的版友按照3楼mclly2000 同志的意见自行修改。