Melt Function [Vb6]

[88power88]

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