Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

【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


附   :

点击下载此示例


演   :

点击图片查看大图

Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助