Office中国论坛/Access中国论坛

标题: 【Access小品】欲练此功－－定时自毁示例 [打印本页]

作者: todaynew 时间: 2013-7-3 20:10
标题: 【Access小品】欲练此功－－定时自毁示例
本帖最后由 todaynew 于 2013-7-4 10:30 编辑

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

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

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

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

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

[attach]52083[/attach]

[attach]52082[/attach]

作者: mclly2000 时间: 2013-7-3 21:19
谢谢老汉分享

作者: mclly2000 时间: 2013-7-3 21:36
n = DateDiff("d", d, Date)
改成 n = DateDiff("d", Date,d )
可能更符合逻辑吧

作者: admin 时间: 2013-7-3 22:31
谢谢分享!

作者: 盗梦 时间: 2013-7-4 09:46
谢谢分享!

作者: todaynew 时间: 2013-7-4 10:23
示例中有一个小错误，请下载的版友按照3楼mclly2000 同志的意见自行修改。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)