vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Serialports, COM Ports 
Autor: Paulix1
Datum: 24.12.20 13:58
Hallo,

ich suche nach einer Möglichkeit, die Com Ports zu listen und einen gewünschten der Anwendung zuzuweisen.

Die Listung sollte eventuell adäquat der Anzeige im Gerätemanager sein.

Bernhard
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: ModeratorDieter (Moderator)
Datum: 26.12.20 13:04
Evtl. hilft dir das hier ja weiter:
COM-Schnittstellen auf Verfügbarkeit prüfen

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: Paulix1
Datum: 26.12.20 16:27
Hallo,
vielen Dank für den Hinweis.
Die Variante 2 wäre schon das was ich suche.
Habe das Microsoft WMI Scripting V1.2 Library unter den Verweisen
eingebunden.
Erhalte bei
Set objWMIService = GetObject("winmgmts:\" & "." & "rootcimv2")
schon einen Fehler.

Habe W10 64 bit und Windows 20H2
Bitte um Hinweis.
Bernhard
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: ModeratorDieter (Moderator)
Datum: 26.12.20 20:03
Was für ein Fehler?

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: Paulix1
Datum: 27.12.20 10:53
Hallo,
Danke für die Antwort.
Ich habe den Originalcode übernommen.
Wenn ich eine Fehlerbehandlung hinzufüge ( on error goto f)
so ist bei der Zeile Set objWMIService = GetObject("winmgmts:\" & "." & "rootcimv2")
und Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPort", , 48)
jeweils ein Sprung in die Fehlerroutine.
Ohne Fehlerbehandlung (on error resume next ) sind die Inhalte der Rückgabewerte Nothing.
Die Variablen bleiben leer.

Was mache ich falsch?

Bernhard
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: ModeratorDieter (Moderator)
Datum: 27.12.20 11:02
Ahh.. ändere mal die erste Zeile wie folgt: 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: Paulix1
Datum: 27.12.20 14:33
Hallo Dieter,
herzlichen Dank, perfekt.

Bernhard
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: Paulix1
Datum: 27.12.20 15:20
Hallo Dieter
leider muss ich nochmals anfragen.
Ich habe drei Ports im Gerätemanager gelistet.
Mit diesem Code wird der dritte Port nicht angezeigt.
Wenn ich die Abfrage richtig verstehe ist das eine Tabelle, ähnlich/wie einer Datenbanktabelle. Deshalb auch der SELECT Abfragestring.

Der letzte Datensatz geht verloren.
Bernhard
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: BTH
Datum: 28.12.20 18:45
https://www.vbarchiv.net/forum/read.php?f=31&i=911&t=911
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Serialports, COM Ports 
Autor: Paulix1
Datum: 31.12.20 13:56
Hallo BTH,
leider bringt auch dieser Code nicht alle COM Ports.

Im Gerätemanager ist in der Reihe:
Com3
Com1
com4
gelistet.
Es wird nur der Reihe nach com3 und Com1 angezeigt.
Der COM4 wird vergessen
Bernhard
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel