USUÁRIO:
SENHA:
SALVAR LOGIN ?
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-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site
