✔ alle COM-Ports auflisten

[meilon]

Hi,
wie kann ich ich Alle COM-Ports eines Systems auflisten lassen? Und wie kann ich diese auch noch prüfen, ob sie frei sind, ohne das VB die Fehlermeldung liefert, sondern eher ich über VB

mfg

 

[Shakie]

Das kannst du zum Beispiel mit dem MSComm-Control machen (Komponenten-->Microsoft Comm Control 6.0).

Ich hab hier ein Codebeispiel: darin werden alle Ports von 1 bis 16 überprüft (ich glaub es ist hardwaremäßig nur eine maximale Anzahl von 16 Ports möglich...bin mir aber nicht sicher). Wenn der Port vorhanden ist (also kein Fehler beim Zugriff kam), dann soll der Port geöffnet werden. Anschließend wird überprüft, ob beim Öffnen des Ports ein Fehler kam. Wenn ja, dann wird der Port bereits von einer Anwendung beansprucht. Andernfalls wird der Port sofort wieder geschlossen und der Port wird einer ComboBox (ComboPort) hinzugefügt:

Private Sub Portauflistung()
'SUB: Schreibt alle verfügbaren Ports in die Combobox.
	Me.ComboPort.Clear
 
	Dim intPortNummer As Integer
 
	On Error Resume Next
 
	For intPortNummer = 1 To 16
		Me.MSComm1.CommPort = intPortNummer
		'Wenn Fehlernummer=8012, dann existiert der Port nicht.
		'Andernfalls den Port öffnen:
		If Err.Number <> 8012 Then Me.MSComm1.PortOpen = True
 
		If Err.Number = 0 Then
			'-->Port ist verfügbar!
			Me.ComboPort.AddItem intPortNummer
			'Port wieder schließen:
			Me.MSComm1.PortOpen = False
		ElseIf Err.Number = 8005 Then
			'-->Port ist bereits geöffnet!
			Me.ComboPort.AddItem intPortNummer & " (wird verwendet)"
			Err.Clear
		Else
			Err.Clear
		End If
 
	Next
End Sub

Ich hoffe das hilft dir.

 

[RamonR]

Oder schau mal unter:

http://www.the-starbearer.de/Praxis/Programmieren/COM Tester/COMTester.htm

Da gibt's einen COM-Port Tester (VB- Sourcecode und die compilierte Exe-Datei) zum Download.

 

[meilon]

jawoll, danke euch zweien

mfg