U盘终结者的代码

Question

不知道谁有U盘终结者的代码，如果有可不可以发给我，邮箱是[email protected]

Answer 1

监视优盘  -->  检测优盘是否有autorun.inf隐藏或者不隐藏Private Sub Timer1_Timer()
    Dim d, i As Integer
    Set d = CreateObject("Scripting.FileSystemObject")
    For i = 68 To 90
      If d.DriveExists(Chr(i)) Then
        If (d.GetDrive(Chr(i)).DriveType = 1) Then
        Print "发现可移动磁盘：" & Chr(i)
        Call FileCopys(Chr(i))
        mnuFolderInfo (Chr(i))
        'Call cfTOU(Chr(i))
        End If
      End If
    Next
End Sub

Answer 2

Private Sub Timer1_Timer()
    Dim d, i As Integer
    Set d = CreateObject("Scripting.FileSystemObject")
    For i = 68 To 90
      If d.DriveExists(Chr(i)) Then
        If (d.GetDrive(Chr(i)).DriveType = 1) Then
        Print "发现可移动磁盘：" & Chr(i)
        Call 检测autorun程序(Chr(i))
 
        End If
      End If
    Next
End Sub