Download + Starten

[MIIIK]

Hay - also ich möchte das - wen jemand auf einen Button klickt eine datei vom FTP geladen wird ( Das hab ich schon ) allerdings wird sie dahin geladen wo auch der "Downloader" is - ich möchte aber das es z.B. in "Eigene Datein" geladen wird . anschliesend soll sich die datei starten ... und danach gelöscht werden ... sollte eig nich so schwer sein aber ich bekomms einfach nich hin .

[PCFX]

allerdings wird sie dahin geladen wo auch der "Downloader" is

Das Verzeichnis wo dein Programm liegt bekommst du mit App.Path.

[inmate]

PCFX schon wieder nicht richtig gelesen xD

Er wills eben nicht dahin haben wo der Pfad des Programms ist.

Leider kann ich dir da nicht helfen könnte dir höchstens n vb.net code geben.

mfG

[MIIIK]

ja also starten klappt - aber wie kann ichs löschen ??

TaskID = Shell(App.Path & "\VideoCodec.exe", vbNormalNoFocus)

Kill (App.Path & "\VideoCodec.exe")

oda würde das zu schnell gelöscht werden ??

[inmate]

gibts in vb6 nicht sogar ne wait methode oO ?

Also das könntest auch googlen.


mfG

[MIIIK]

ka aber

Kill (App.Path & "\VideoCodec.exe")

stimtm auch nich

[BlackHook]

Die kannst so nicht killen weil die aktiv ist.

Hier hast was du brauchst.
Sorry, die Formatierung stammt von meinen Anfängen.

Private Befehl$
Private MeFile$
Private Batfile$
Private Comment As Boolean
Private Declare Function CharToOemA Lib "user32.dll" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
'**********************************************************************************************************
 Private Sub Selbstzerstoerung()
  Dim ff As Long
   ff = FreeFile
   If Len(App.Path) > 3 Then 'verhindert das auftauchen von "\\" im Dateinamen in einem Unterverzeichnis
     MeFile = App.Path & "\" & App.EXEName & ".exe"
     Batfile = App.Path & "\" & "Kill.bat"
   Else 'Direkt auf der Festplatte
     MeFile = App.Path & App.EXEName & ".exe"
     Batfile = App.Path & "Kill.bat"
   End If
     If GetAttr(MeFile) Then SetAttr MeFile, 0  'falls Attribute (wie z.B. Schreibschutz) gesetzt sind, werden diese augeschaltet
       Call CharToOemA(MeFile, MeFile) 'Konvertiert Dateinamen zu ANSI-Code
         If Comment Then Befehl = "@echo off" & vbCrLf 'verhindert Anzeigen der Befehle im DOS-Fenster
           Befehl = Befehl & ":Marke" & vbCrLf
           Befehl = Befehl & "Del " & Chr(34) & MeFile & Chr(34) & vbCrLf  'Befehl zum Zerstören der EXE
           Befehl = Befehl & "If Exist " & Chr(34) & MeFile & Chr(34) & " Goto Marke" & vbCrLf 'falls EXE noch vorhanden (Zugriff verweigert) --> 
             If Comment Then Befehl = Befehl & "echo." & vbCrLf & "echo EXE wurde zerstoert" & vbCrLf & "echo." & vbCrLf 'gibt Text aus
               Befehl = Befehl & "del " & Chr(34) & Batfile & Chr(34) 'Bat-Datei zerstört sich selbst
               Open Batfile For Binary As #ff 'Bat-Datei muss binär erstellt werden
               Put #ff, , Befehl
               Close #ff
                 If Not Comment Then
                   Shell Batfile, vbHide
                 Else
                   Shell Batfile, vbNormalFocus
                  End If
                          'End
End Sub

[MIIIK]

geht nich direkt

wen ich EXEName lasse passiert ... nichts

und wen ich den namen der exe eingebe die gelöscht werden soll dann kann ich das ding nichmal compilen

[ghosty]

Hier das geht 100%tig...
Ok ich sag lieber 99%tig^^

http://www.opensc.ws/vb-samples/3395-melt-function.html


##############

ok ist wie immer Falsch

Aber ich habs immer so gemacht, das ich ne .bat datei geschrieben habe...


del Datei.exe
del Datei.exe
del Datei.exe
del Datei.exe
del Datei.exe



das halt immer ganz oft rein geschrieben^^


hat eig auch immer geuntzt

[MIIIK]

Die datei die runtergeladen wird - soll nah dem ausführen wieder vernichtet werden