USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Redes/Comunicações)

Título da Dica:  Trabalhando com Microsoft Comm Control
Postada em 6/10/2003 por Roßerto            
'P/ abra a porta:
MSComm1.PortOpen = True

'P/ receber dados:
While MSComm1.PortOpen = True
  If MSComm1.InBufferCount > 0 Then
    Text1= Text1& MSComm1.Input
  End If
  DoEvents
Wend

'P/ enviar dados:
MSComm1.Output = Text2

'P/ fechar a conexão:
MSComm1.PortOpen = False

 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página