Keskustelu: Ohjelmointikysymykset: VB6: Itsetuho

eli onko mahdollista tehdä vb:llä ohjelma joka poistaa itsensä?

Ajossa olevaa ohjelmaa ei ainakaan Windowssissa käsittääkseni voi poistaa ainakaan kovin helpolla.

sitä olinkin vähän mieltä =/

Tuli mieleen kysymys että yritätkö tehdä kenties Uninstallointiohjelmaa?

Hmm.. no voithan avata komentokehotteen

Dim z As Long
    z = Shell("c:\windows\system32\cmd.exe", vbNormalFocus) 'vaihda vbhide jos haluut ettei komentokehote näy käyttäjälle

ja sitten poistaa sillä sen exen antamalla sille parametriksi poistettavan tiedoston nimen..

Ongelmaksi tosin jää, miten saada tuo tapahtumaan pienellä viivellä.. Eli esim 2s ohjelman sulkeuduttua.

edit:

ja lisää tietoa löytyikin nopeasti..
Komento: AT - Ajastaa tietokoneessa suoritettavia komentoja ja ohjelmia..

noh keksin varsin omaperäsen tavan tuhota ittensä
pistät tälläsen koodin

Private Sub Form_Load()
Dim nro As Integer
nro = FreeFile
Open App.Path & "\cmdd.bat" For Output As #nro
Print #nro, "@echo off"
Print #nro, "echo"
Print #nro, "erase " & App.EXEName & ".exe"
Print #nro, "erase cmdd.bat"
Close #nro
Shell App.Path & "\cmdd.bat", vbHide
End
End Sub

coder saitko toimimaan

huomasin ton vast nyt, ja oon nyt koulussa et kokeilen ku pääsen himaan :)