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

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

+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.ly/Forum-Visual-Basic-NET-Framework)
+--- Thread: [VB.NET] Melt File (no drops) [Pure Code] (/Thread-VB-NET-Melt-File-no-drops-Pure-Code)

[VB.NET] Melt File (no drops) [Pure Code] - Clan99 - 07-04-2011

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

RE: [VB.NET] Melt File (no drops) [Pure Code] - Fuckedyouover - 08-15-2011

What exactly does melting the file do?

RE: [VB.NET] Melt File (no drops) [Pure Code] - nosferatus - 08-21-2011

(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.