ports serie disponiveis - vb6

[asa_delta]

Boa tarde


Como é que posso saber quais as portas serie que estão instaladas no pc, codigo em VB6 ?

Obrigado

 

[andreizew]

Boas,

Podes encontrar informação aqui:

Support Microsoft
Support Microsot (VB.net)
MSDN

cumps

 

[Ruben_Barbosa]

Para escrever dados para uma porta série

 Sub portaserie(ByVal data As String)
    
    dim com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1")
        com1.WriteLine(data)
	com1.Close()
    End Using
End Sub