Monitorar processo de conex�o (RNAAPP)

Question

[b:9a3440ed13]Caro amigos do Clube, alguem sabe como posso identificar uma chamada ao dial-up do windows, antes de fazer uma conex�o? Tipo assim , deixaria um programa meu em execu��o (monitorando)......

Analyst · Answer

Ninguem sabe?Por favor me ajudem........

Wagsilvasilva · Answer

Cara, tipo assim, naum entendo quase nada de delphi. Mas sei que existem programas que mostram as tarefas e os processos que est�o em execu��o no sistema. Talvez se tu encontrasse algum pela web e tentasse conseguir o fonte acho que resolveria o teu problema. Ou ent�o que tu baixe este programa e tente entrar em contato com o autor tamb�m seria uma outra alternativa.

� isso
Wagner

Analyst · Answer

[quote:b49bf9d944=�wagsilvasilva�]Cara, tipo assim, naum entendo quase nada de delphi. Mas sei que existem programas que mostram as tarefas e os processos que est�o em execu��o no sistema. Talvez se tu encontrasse algum pela web e tentasse conseguir o fonte acho que resolveria o teu problema. Ou ent�o que tu baixe este programa e tente entrar em contato com o autor tamb�m seria uma outra alternativa.� issoWagner[/quote:b49bf9d944][b:b49bf9d944]Obrigado wagsilvasilva, por ser o unico a pelo menos tentar me ajudar.Com muita persistenca e horas a fim, consegui saber a classe do Rnaapp e consegui o meu objetivo, pelo menos para windows 9x, ME, falta ainda descobrir como fazer isso pra NT e XP, quem sabe alguem do forum sabe para esse ambiente operacional n�...Como gosto de ajudar to disponibilizando o que descobri...valeu carinha.if FindWindow(�RnaEngCLASS�, nil) > 0 then // se Rnaapp foi executado   PostMessage(FindWindow(�RnaEngCLASS�, nil), WM_CLOSE,0,0); // fecho o aplicativo[/b:b49bf9d944]...

Tatuweb · Answer

Voc� pode controlar conex�es com a Internet por meio do programa rasdial.exe. Vou mostrar abaixo como o programa funciona e depois mostrar como us�-lo no Delphi.

Toda conex�o (acesso discado) com a Internet � feita via rasdial.exe. Se voc� for at� o prompt do ms-dos e digitar:

C:\rasdial nome_da_conexao usuario senha

voc� ir� se conectar e os dois computadores ao lado do rel�gio ser� exibido. Ex:

C:\rasdial IG tatuweb 123456

ir� chamar a conex�o IG existente no computador e ir� logar se no provedor como usu�rio tatuweb e senha 123456.

Para se disconectar basta fazer o seguinte:

C:\rasdial IG /DISCONNECT

Se vc fizer isso no MS-DOS ver� que todas as mensagens que aparecem na janela de conex�o de rede dial-up v�o aparecer no prompt. Ex: Linha ocupada, senha/usu�rio inv�lido, etc...

Dito isso, vc pode usar o seguinte comando no Delphi para se conectar a um provedor:

ShellExecute (Self.Handle, PChar (�open�), PChar (�rasdial.exe�), PChar (�IG tatuweb 123456�), PChar (�C:�), SW_SHOWMINNOACTIVE);

e usar o seguinte para se desconectar:

ShellExecute (Self.Handle, PChar (�open�), PChar (�rasdial.exe�), PChar (�IG /DISCONNECT�), PChar (�C:�), SW_SHOWMINNOACTIVE);

Para o c�digo acima funcionar � necess�rio declarar a cl�usula uses a unit ShellAPI.

A minha id�ia � usar uma rotina para pegar as informa��es vindas do ms-dos para usar na aplica��o. Ex:

  ShellExecute (Self.Handle, PChar (�open�), PChar (�rasdial.exe�), PChar (�IG /DISCONNECT�), PChar (�C:�), SW_SHOWMINNOACTIVE);
  if MsgRetornadaPeloDOS <> �N�o existe conex�es� then
    // Sinal que o usu�rio est� conectado
    // logo vou exibir uma caixa de dialogo pedindo senha
    // se � tiver executo o comando para desconecta-lo

Essa rotina poderia estar dentro de um componente Timer, de preferencia com uma thread criada so para fazer essa monitora��o para evitar que a performance do programa seja afetada. O fato � que n�o descobri como pegar essas informa��es do prompt do DOS.

Bem essa foi uma id�ia e quem sabe o inicio de uma soluc�o. De repente o c�digo pode ser melhorado ou vc pode implementar outra ideia. S� pra finalizar o rasdial.exe n�o fica na lista de processos como o rnapp e n�o sei se os comandos acimas s�o aceitos no Win 9x (No ME, XP e 2000 s�o aceitos).

Analyst · Answer

[quote:01a4c03978=�TatuWeb�]Voc� pode controlar conex�es com a Internet por meio do programa rasdial.exe. Vou mostrar abaixo como o programa funciona e depois mostrar como us�-lo no Delphi.Toda conex�o (acesso discado) com a Internet � feita via rasdial.exe. Se voc� for at� o prompt do ms-dos e digitar:[code:1:01a4c03978]C:rasdial nome_da_conexao usuario senha[/code:1:01a4c03978]voc� ir� se conectar e os dois computadores ao lado do rel�gio ser� exibido. Ex:[code:1:01a4c03978]C:rasdial IG tatuweb 123456[/code:1:01a4c03978]ir� chamar a conex�o IG existente no computador e ir� logar se no provedor como usu�rio tatuweb e senha 123456.Para se disconectar basta fazer o seguinte:[code:1:01a4c03978]C:rasdial IG /DISCONNECT[/code:1:01a4c03978]Se vc fizer isso no MS-DOS ver� que todas as mensagens que aparecem na janela de conex�o de rede dial-up v�o aparecer no prompt. Ex: Linha ocupada, senha/usu�rio inv�lido, etc...Dito isso, vc pode usar o seguinte comando no Delphi para se conectar a um provedor:[code:1:01a4c03978]ShellExecute (Self.Handle, PChar (�open�), PChar (�rasdial.exe�), PChar (�IG tatuweb 123456�), PChar (�C:�), SW_SHOWMINNOACTIVE);[/code:1:01a4c03978]e usar o seguinte para se desconectar:[code:1:01a4c03978]ShellExecute (Self.Handle, PChar (�open�), PChar (�rasdial.exe�), PChar (�IG /DISCONNECT�), PChar (�C:�), SW_SHOWMINNOACTIVE);[/code:1:01a4c03978]Para o c�digo acima funcionar � necess�rio declarar a cl�usula uses a unit ShellAPI.A minha id�ia � usar uma rotina par...

F�rum Monitorar processo de conex�o (RNAAPP) #220617