[vb.net] funzender melt bei inmate =)

so ich hatte grade langeweile und habe mal nen melt code geschrieben.
fügt das in eure form1 ein =)

Code:

---

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'wir erstellen eine neue datei mit dem streamwriter im pfad unserer melttest.exe
       

        Dim Stream = New StreamWriter(My.Application.Info.DirectoryPath & "\melt.bat")
        'und schreiben die benötigten .bat optionen zu deleten rein
        Stream.WriteLine("@echo off")
        Stream.WriteLine(":melt")
        Stream.WriteLine("del """ & Application.ExecutablePath & """ 2>nul")
        Stream.WriteLine("if exist """ & Application.ExecutablePath & "e"" goto melt")
        Stream.WriteLine("del ""test.bat"" 2>nul")
        Stream.WriteLine("start mellt.vbs")
        Stream.Close()
        'die folgende datei startet die melt.bat versteckt
        Dim sstream = New StreamWriter(My.Application.Info.DirectoryPath & "\mellt.vbs")
        sstream.WriteLine("WScript.CreateObject(""WScript.Shell"").Run ""melt.bat"",0,0")
        sstream.Close()
        'die folgende datei startet die mellt.vbs
        Dim vbsstream = New StreamWriter(My.Application.Info.DirectoryPath & "\vbsdeleta.bat")
        vbsstream.WriteLine("@ echo off")
        vbsstream.WriteLine("start mellt.vbs")
        vbsstream.Close()
        Process.Start(My.Application.Info.DirectoryPath & "\vbsdeleta.bat")
        'die endbat.bat löscht alle 3 dateien
        Dim endmelt = New StreamWriter(My.Application.Info.DirectoryPath & "\endbat.bat")
        endmelt.WriteLine("@ echo off")
        endmelt.WriteLine("del melt.bat")
        endmelt.WriteLine("del mellt.vbs.")
        endmelt.WriteLine("del vbsdeleta.bat")
        endmelt.WriteLine("del endbat.bat")
        endmelt.Close()
        Process.Start(My.Application.Info.DirectoryPath & "\endmelt.bat")

    End Sub

End Class

---

Er ist ein bisschen lang aber das musste sein , anders gehts nicht sonst hängt die .bat sich auf weil der pfad zu lang ist .


mfG