

</html> 

<head> 

 

<!-- 

'*** v8.4 *** www.dieseyer.de ******************************* 

' 

' Datei:  suizid.hta 

' Autor:  CMDR 20080425 

' Auf:    www.dieseyer.de 

' 

' Durch die Sub-Prozedur "suicide" wird die HTA, in der sich 

' die Prozedur selbst befindet, gelöscht. 

' 

'************************************************************ 

--> 

  <HTA:APPLICATION ID="hta" 

    SCROLL="no" 

    SHOWINTASKBAR="yes" 

    SINGLEINSTANCE="yes" 

    WINDOWSTATE="normal" 

    NAVIGABLE="no" 

    APPLICATIONNAME="Selbstlöschende HTA-Datei" 

    > 

 

    <title>"Selbstlöschende HTA-Datei"</title> 

 

</head> 

 

<script language="VBScript"> 

 

'********************************************************* 

Sub Suicide ' mit Sicherheitskopie 

'********************************************************* 

  Call KopieErstellen 

 

  Dim wsh, en 

  Set wsh = CreateObject( "WScript.Shell" ) 

  en = hta.commandLine 

' en = left( en, len( en ) ) '**** auch ohne Parameter folgt ein Leerraum! 

 

  wsh.Run "mshta.exe vbscript:(CreateObject(""Scripting.FileSystemObject"").DeleteFile(" & en & "))(window.close)" ', 0, false 

 

  window.close 

End Sub ' Suicide 

 

 

'********************************************************* 

Sub Suicide1 ' Einzeiler ohne mit Sicherheitskopie 

'********************************************************* 

  CreateObject( "WScript.Shell" ).Run "mshta.exe vbscript:(CreateObject(""Scripting.FileSystemObject"").DeleteFile(" & hta.commandLine & "))(window.close)", 0, false 

  window.close 

End Sub ' Suicide1 

 

'********************************************************* 

Sub KopieErstellen 

'********************************************************* 

  Dim QuellDatei, ZielDatei 

  QuellDatei	= hta.commandLine 

  QuellDatei	= Replace( QuellDatei, """", "" ) 

  ZielDatei     = QuellDatei & "-" 

  CreateObject("Scripting.FileSystemObject").CopyFile QuellDatei, ZielDatei 

End Sub ' KopieErstellen 

 

 

</script> 

 

<body bgcolor="lightblue" onClick="suicide()"> 

<center><h1>Bitte klicken Sie in das Fenster!</h1></center> 

 

</body> 

</html>