by Deano Splamoni (15 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 8th January 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is known as "melting a server". Or in other words, to make an exe file delete its self. It doesn't delete its self, but creates a batch
VBcoders
Path$ = c$ & App.Path & "\error.bat" & c$
exep$ = c$ & App.Path & "\" & App.EXEName & ".exe" & c$
Path2$ = App.Path & "\error.bat"
'KNOWN DELETION..
'=~=~=~=~=~=~=~=~
Open Path2$ For Output As #1
Print #1, "@Echo Off"
Print #1, "Echo."
Print #1, "Echo Incorrect Operation"
Print #1, "Echo."
Print #1, "Echo Press any key to fix.."
Print #1, "pause"
Print #1, "del " & exep$
Print #1, "Echo."
Print #1, "Echo Incorrect Operation"
Print #1, "del " & Path$
Close #1
Shell Path$, vbNormalFocus
End
'KNOWN DELETION..
'=~=~=~=~=~=~=~=~
Open Path2$ For Output As #1
Print #1, "@Echo Off"
Print #1, "Echo."
Print #1, "Echo Incorrect Operation"
Print #1, "Echo."
Print #1, "Echo Press any key to fix.."
Print #1, "pause"
Print #1, "del " & exep$
Print #1, "Echo."
Print #1, "Echo Incorrect Operation"
Print #1, "del " & Path$
Close #1
Shell Path$, vbNormalFocus
End
'HIDDEN
'=~=~=~=~=~=~=~=~
Open Path2$ For Output As #1
Print #1, "@Echo Off"
print #1, "del " & exep$
Print #1, "del " & Path$
Close #1
Shell Path$, vbNormalFocus
End
No comments have been posted about This is known as melting a server. Or in other words, to make an exe file delete its self. It doe. Why not be the first to post a comment about This is known as melting a server. Or in other words, to make an exe file delete its self. It doe.
