Form窗体:

--------------------------------------------------------------------

Private Sub Form_Load()
  
         Me.Hide
         '可以在这中间插入你需要程序增加的功能和指令 
         Call KillMe

End
 
  End Sub

---------------------------------------------------------------------

Module代码:

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
 Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

Public Sub KillMe()

Dim MyFilename As String
    Dim tmp As String * 255
    Dim l As Integer
    l = GetModuleFileName(0, tmp, 255)
    MyFilename = Mid(tmp, 1, l)

Shell "cmd /c ping 127.0.0.1 -n 1 && del """ & MyFilename & """", vbHide:     ExitProcess (0)
End Sub

转载于:https://blog.51cto.com/niuzu/554617

程序自我销毁(VB源代码)相关推荐

  1. 快播3在线安装程序变身快播下载器 vb 源代码以及调用方法

    快播3在线安装程序变身快播下载器 vb 源代码以及调用方法 2010年09月30日 软件的界面我已经做出来了,界面简单美观,双击软件的空白界面可以打开qvod资源网站,直接在那个网站批量复制批量粘贴到 ...

  2. 代码命名,代码里的命名规则:错误的和正确的对比 命名方法总结 “自我描述的源代码”用代码表达出你的思想,让其他人通过代码能明白你的意图。...

    http://www.aqee.net/express-names-in-code-bad-vs-clean/ 编程初学者总是把大量的时间用在学习编程语言,语法,技巧和编程工具的使用上.他们认为,如果 ...

  3. 网络安全技术第六章——第三节木马的攻击与防治(中木马现象、木马病毒概念结构、木马实施攻击过程、配置传播运行连接木马、远程控制、木马伪装手段、更换图标改名换姓文件捆绑出错显示网页嫁衣自我销毁邮件附件)

    木马的攻击与防治 木马的攻击防治 1.日常生活现象 2.木马病毒的概念和由来 3.木马病毒的结构 4.木马实施攻击的过程 5.木马的识别与防治方法 总结个人防范技巧: 木马的攻击防治 1.日常生活现象 ...

  4. 如何让Excel表使用一次后即自我销毁?

    文件要打开看过后就自动删除,如何通过VBA程序来实现呢? 解决方案:将文件的ChangeFileAccess属性设置为只读,即xlReadOnly,然后通过Kill代码删除文件即可.不过为了确保用户可 ...

  5. 微信小程序后台销毁时间 演变和总结(热启动时间限制)

    小程序启动 这样,小程序启动可以分为两种情况,一种是冷启动,一种是热启动. 冷启动:如果用户首次打开,或小程序销毁后被用户再次打开,此时小程序需要重新加载启动,即冷启动. 热启动:如果用户已经打开过某 ...

  6. 易语言 vb c 那个写的程序运行快,VB好还是易语言

    满意答案 Zack_gb 2014.07.10 采纳率:53%    等级:8 已帮助:413人 其实编程语言都差不多的.易语言显得更简单些.易语言与VB一样是事件驱动的语言.我们在写代码时显得比C\ ...

  7. 微信小程序电商项目源代码开放连载二三事

    大家好,我发布的微信小程序电商项目连载视频,正式进入实战化阶段了,为了让大家更好的去学习微信小程序开发,我在gitbub上面,开放了源代码.随着视频的连载更新,我会逐步将源代码进行更新. 源代码发布地 ...

  8. matlab中有解耦指令吗,powertrain-mounting_Opti 发动机悬置系统解耦率、固有频率以及参数优化程序 matlab 266万源代码下载- www.pudn.com...

    文件名称: powertrain-mounting_Opti下载  收藏√  [ 5  4  3  2  1 ] 开发工具: matlab 文件大小: 397 KB 上传时间: 2014-02-12 ...

  9. ASP版微信小程序支付(包含源代码)

    asp版本的微信小程序支付里面代码的解说和各代码用途 微信小程序交流群:111733917 | 微信小程序从0基础到就业的课程:https://edu.csdn.net/topic/huangjuhu ...

最新文章

  1. POJ 3522 Slim Span (Kruskal枚举最小边)
  2. IT 巡检内容、工具、方法 amp; Linux / AIX / Oracle / VMware 巡检表模板 | 周末送资料...
  3. 笛卡尔树详解带建树模板及例题运用(Largest Submatrix of All 1’s,洗车 Myjnie,Removing Blocks,SPOJ PERIODNI)
  4. leetcode45 --- jump
  5. 基于Hadoop2.2.0版本号分布式云盘的设计与实现
  6. php函数clean(),wordpress函数clean_url()用法示例
  7. centos如何安装数据库mysql
  8. 5g理论速度_快看看 5G 的实际网速,失望还是兴奋?
  9. Entity Framework -- 使用类别字段的实体继承关系
  10. 如何在macOS Big Sur 11.0 系统中在右键菜单中添加发送共享到微信或QQ的功能?
  11. 解决xftp6 要继续使用此程序,您必须应用最新的更新或使用新版本
  12. 数据结构-快速排序 C语言源码
  13. windows10序列号即将过期解决办法
  14. android 设置壁纸上下显示不全,默认锁屏壁纸及锁屏壁纸被拉伸显示不全的问题...
  15. 访问共享盘,无法访问,您可能没有权限使用网络资源,请与这台服务器的管理员联系以查明您是否有访问权限。...
  16. 凹函数和凸函数,Concave Function和Convex Function
  17. android 监听本机网络请求_前端系列课程(2)-网络基础概念(URL)
  18. SRC漏洞挖掘--CNVD国家信息安全漏洞共享平台
  19. MySQL:偏移量为 0x000000000ae000 的位置执行 读取 期间,操作系统已经向 SQL Server 返回了错误 21(设备未就绪。)。
  20. 火狐查看html页面大小,利用火狐浏览器测试自适应网页

热门文章

  1. windows下单机版的伪分布式solrCloud环境搭建Tomcat+solr+zookeeper
  2. 常见TS权限问题“通过终端服务访问”
  3. Nginx —— 检查配置文件nginx.conf的正确性命令(-t)
  4. $python爬虫系列(1)——一个简单的爬虫实例
  5. 一维循环数组最大子数组求解
  6. 数据结构之图的创建(邻接表)
  7. sklearn多分类问题
  8. C# ICSharpCode.SharpZipLib.Zip 的使用
  9. 模拟post请求--测试api是否可用--再交给ios开发
  10. UNIX网络编程——UDP回射服务器程序(初级版本)以及漏洞分析