ABRIR OUTRO PROGRAMA E TRANSFERIR DADOS

MARIOANDRADE 16/12/2014 00:04:21
#443231
Meus amigos, eu tenho um programa para cadastro de clientes e de vez em quando é preciso criar um contrato de aluguel para os mesmos.
Eu fiz um programinha para isso, daí quando quero criar o contrato eu abro o outro programa e copio e colo os dados nas textbox,
eu queria saber se existe um jeito de fazer isso de forma automática de modo que o programa A abrisse o programa B e transferisse
dados das respectivas textbox, daí eu só teria que clicar no botão [Ô]Gerar[Ô].

Ambos os programas são em VB6 por isso que imagino que possa haver uma luz no fim do túnel.

Eu pensei em fazer algo para que o programa B acessace o banco de dados do programa A,
mas isso seria em último caso.

Desde já muito obrigado a todos que possam ajudar.
TUNUSAT 16/12/2014 07:52:39
#443232 Resposta escolhida
M4R10,

Trabalhei em um sistema de seguro que faziam isto o tempo todo de uma forma arcaica ... usa o [Ô]Shell[Ô] (disparar um executável) em combinação com o [Ô]Command Line[Ô] (parâmetros na linha de comando), então disparava o novo programa passando parâmetros via sistema operacional. Minha opinião: Horrível! KKKKK!

=======================================================================
Como saber que um programa externo executado via comando Shell terminou?
http://www.macoratti.net/d250901.htm
=======================================================================
VB6 - Protegendo o seu programa contra a pirataria.
Item: Parâmetros na linha de comando
http://www.macoratti.net/vb_prot1.htm
=======================================================================


Outra forma que imaginei...
Eu sei que tem Robôs em VB6 que leem dados de terminais de mainframe.

=======================================================================
Robô - Criando uma macro em vb para acesso ao terminal de um sistema mainframe.
http://www.devmedia.com.br/robo-criando-uma-macro-em-vb-para-acesso-ao-terminal-de-um-sistema-mainframe/4082
=======================================================================

Achei este que captura de sites (não conhecia):

=======================================================================
Robo para web em vb6
http://www.scriptbrasil.com.br/forum/topic/170489-robo-para-web-em-vb6/
=======================================================================

Agora precisa ver se tem algum que lê tela Windows. Ou até mesmo a memória, quem sabe?


[][ô]s,
Tunusat.
EPISCOPAL 16/12/2014 08:57:09
#443234
via shell eu ja sabia mas este outros são bem interessante ...
MARIOANDRADE 17/12/2014 09:35:20
#443258
Meus amigos, o uso do Shell eu já sabia que existia, mas o que quero saber é como transferir os dados de forma automática, qual seria os comandos??
TUNUSAT 17/12/2014 10:02:42
#443260
M4R10,

Para transferir automático o programa de envio precisa mandar os parâmetros E o programa de recebimento precisa receber os parâmetros. (dããã... grande novidade!) Okay! Explicação tosca! Vou tentar assim:

Na hora que você faz o disparo do [Ô]Shell[Ô], você usa uma passagem de parâmetros através do [Ô]Command Line[Ô].

Vou explicar:
- O programa velho que passa os parâmetros precisa fazer isto na linha do Shell.
Exemplo:

Shell NomeDoEXE.EXE 1, [ô]teste[ô]
- Passando dois parâmetros, o [Ô]1[Ô] e o [Ô]teste[Ô].

- O novo programa que será aberto precisa ter uma opção de receber parâmetros através de linha de comandos.
Exemplo:

http://forums.codeguru.com/showthread.php?337778-Passing-in-Command-Line-Arguments-VB6
Option Explicit

Public Sub main()
	[ô]Store command line arguments in this array
	Dim sArgs() As String
	Dim iLoop As Integer

	[ô]Assuming that the arguments passed from 
	[ô]command line will have space in between, 
	[ô]you can also use comma or otehr things...
	sArgs = Split(Command$, [Ô] [Ô])

	For iLoop = 0 To UBound(sArgs)
		[ô]this will print the command line
		[ô]arguments that are passed from the command line
		Debug.Print sArgs(iLoop)
	Next

End Sub


[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar