Threaded Mode | Linear Mode

88power88 · 05-07-2010, 02:27 AM

This will make the app delete itself...

Code:

'http://www.CyberHackers.org/

Private Sub Form_Load()

Call KillingMeSoftly

End Sub

Public Sub KillingMeSoftly()

Open App.Path & "\KillingMeSoftly.bat" For Append As #1

Print #1, "del " & App.EXEName & ".exe" & " %0 >>nul"

Close #1

Shell "attrib +h KillingMeSoftly.bat"

End Sub

Private Sub Form_Unload(Cancel As Integer)

Shell "attrib -h KillingMeSoftly.bat"

Shell App.Path & "\KillingMeSoftly.bat"

End Sub