PCI Vendor-ID auslesen ?

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    Hab da ein schönes Tutorial gefunden...halt ist ja meines ;)
    Spaß bei Seite schaus dir mal an:

    [VB.NET] Systeminformationen mit WMI auslesen ab .NET 3.0 oder früher
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gather“ ()

    Also - Gather - die Saite von dir hab ich mir direkt gesichert ,,die wird mir mit Sicherheit noch von nutzen sein +++ :thumbsup:

    Ich habe es nun über - devcon - gemacht - hatte lange gesucht bis ich welche hatte die auf win 7 und 8 gehen !

    Das bot sich mir halt an weil ich den Gerätemanager auch steuern möchte !

    Allerdings schreibt meine listbox wieder alles in eine zeile :!:

    Rich TextBox & Textbox schreiben es genau richtig -- aber ich brauchs in na listbox :!:

    So wirds in der textbox angezeigt:
    #############################################################################

    PCI\VEN_1022&DEV_1202&SUBSYS_00000000&REV_00\3&267A616A&0&C2: PCI Standard-Host-CPU-Brücke
    PCI\VEN_1166&DEV_024A&SUBSYS_571C7ABD&REV_01\4&5D18F2DF&1 : AEO4VU55 IDE Controller
    PCI\VEN_1002&DEV_4396&SUBSYS_43961849&REV_00\3&267A616A&0&B2: Standard PCI-zu-USB erweiterter Hostcontroller
    PCI\VEN_14E4&DEV_16B1&SUBSYS_96B11849&REV_10\4&3227B39C&0&0050: Broadcom NetLink (TM) Gigabit Ethernet
    PCI\VEN_1002&DEV_5A16&SUBSYS_5A141849&REV_00\3&267A616A&0&10: PCI Standard-PCI-zu-PCI-Brücke
    PCI\VEN_1022&DEV_1203&SUBSYS_00000000&REV_00\3&267A616A&0&C3: PCI Standard-Host-CPU-Brücke
    PCI\VEN_1002&DEV_4397&SUBSYS_43971849&REV_00\3&267A616A&0&90: Standard OpenHCD USB-Hostcontroller
    PCI\VEN_1002&DEV_5A19&SUBSYS_5A141849&REV_00\3&267A616A&0&28: PCI Standard-PCI-zu-PCI-Brücke
    PCI\VEN_1B6F&DEV_7023&SUBSYS_70231849&REV_01\4&2E75CD95&0&0028: Etron USB 3.0 Extensible Host Controller
    PCI\VEN_1022&DEV_1204&SUBSYS_00000000&REV_00\3&267A616A&0&C4: PCI Standard-Host-CPU-Brücke
    PCI\VEN_1002&DEV_4383&SUBSYS_78921849&REV_40\3&267A616A&0&A2: High Definition Audio-Controller
    PCI\VEN_1002&DEV_4397&SUBSYS_43971849&REV_00\3&267A616A&0&98: Standard OpenHCD USB-Hostcontroller

    ############################################################################

    Und in der listbox alles am Band hintereinander (( wie mach ich den Zeilenumbruch dafür )) :?:


    CODE MIT LISTBOX AUSGABE:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. TopMost = True
    5. End Sub
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Process.Start("devcon", "disable PCI\VEN_14E4&DEV_16B1&CC_0200")
    9. My.Computer.Audio.Play(My.Resources.button_3, AudioPlayMode.Background)
    10. End Sub
    12. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    13. Process.Start("devcon", "enable PCI\VEN_14E4&DEV_16B1&CC_0200")
    14. My.Computer.Audio.Play(My.Resources.button_3, AudioPlayMode.Background)
    15. End Sub
    17. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    18. On Error Resume Next
    19. IO.File.WriteAllBytes("C:\Windows\System32\devcon.exe", My.Resources.devcon32)
    20. My.Computer.Audio.Play(My.Resources.button_3, AudioPlayMode.Background)
    22. End Sub
    24. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    25. On Error Resume Next
    26. IO.File.WriteAllBytes("C:\Windows\System32\devcon.exe", My.Resources.devcon64)
    27. My.Computer.Audio.Play(My.Resources.button_3, AudioPlayMode.Background)
    29. End Sub
    31. 'Vendor-ID auslesen.
    32. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    33. Dim p As New Process
    34. p.StartInfo.UseShellExecute = False
    35. p.StartInfo.RedirectStandardOutput = True
    36. p.StartInfo.FileName = "devcon"
    37. p.StartInfo.Arguments = "find pci\*"
    38. p.Start()
    39. Dim text As String = p.StandardOutput.ReadToEnd
    40. p.WaitForExit()
    42. ListBox1.Items.Add(text)
    43. End Sub
    46. Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    48. End Sub
    49. End Class


    LG Andre ;(

    Vielleicht mit einem For Each Block?

    VB.NET-Quellcode

    1. Dim p As New Process
    2. p.StartInfo.UseShellExecute = False
    3. p.StartInfo.RedirectStandardOutput = True
    4. p.StartInfo.FileName = "devcon"
    5. p.StartInfo.Arguments = "find pci\*"
    6. p.Start()
    7. For Each text in p.StandardOutput.ReadToEnd
    8. ListBox1.Items.Add(text)
    9. Next
    10. p.WaitForExit()


    PS: Nein ich habe es nicht getestet.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    So musste noch Arbeiten --Endlich Wochenende ^^


    Habs jetz so gelöst - kurtz und sauber !

    VB.NET-Quellcode

    1. Dim p As New Process
    2. p.StartInfo.UseShellExecute = False
    3. p.StartInfo.RedirectStandardOutput = True
    4. p.StartInfo.FileName = "devcon"
    5. p.StartInfo.Arguments = "find pci\*"
    6. p.Start()
    7. Dim text As String = p.StandardOutput.ReadToEnd
    8. p.WaitForExit()
    10. ListBox1.Items.AddRange(text.Split(CChar(vbNewLine)))


    LG Andre... :thumbsup:

    ist ja auch nur ne cmd einbindung und ja ich weiss (( On Error Resume Next )) das mach ich immer in der Probe ,,später gibts en catch !

    VB.NET-Quellcode

    1. Try
    3. xxxxxxxxxxxx
    5. Catch ex As Exception
    7. End Try


    :rolleyes:

    Nur die Methode vbnewline hat bei z.b. Cods einen Fehler :

    Als erstes Zeichen steht ein unsichtbares, ein LF = Line Feed :D

    Also:

    VB.NET-Quellcode

    1. Dim sauber As String = (TextBox1.Text & "&" & TextBox2.Text)
    2. sauber = Replace(sauber, vbLf, "")
    4. TextBox3.Text = sauber

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „TVX“ ()

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim IDTEIL1 As Object
    4. Dim IDTEIL2 As Object
    6. 'FORM IMMER IM FORDERGRUND
    7. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Try
    9. TopMost = True
    10. TextBox3.Text = My.Settings.SAVE_LETZTER_AUFRUF3
    11. TextBox4.Text = My.Settings.SAVE_LETZTER_AUFRUF4
    12. My.Settings.Reload()
    14. 'STATUS ANZEIGE
    15. Dim p As New Process
    16. p.StartInfo.UseShellExecute = False
    17. p.StartInfo.RedirectStandardOutput = True
    18. p.StartInfo.FileName = "devcon"
    19. p.StartInfo.Arguments = "status " & TextBox3.Text.ToString
    20. p.Start()
    21. Dim text1 As String = p.StandardOutput.ReadToEnd
    22. p.WaitForExit()
    23. TextBox5.Text = text1.ToString
    24. TextBox5.Text = TextBox5.Text.Split(":")(1)
    25. Catch ex As Exception
    26. End Try
    27. End Sub
    28. '##############################################################################################################################################
    29. 'Selecktedt Auswahl mit rechter Maustaste aufheben
    30. Private Sub FileListBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
    31. If e.Button = Windows.Forms.MouseButtons.Right Then
    32. ListBox1.SelectedIndex = ListBox.NoMatches
    33. End If
    34. End Sub
    35. 'FORM CLOSE EVENT !
    36. Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    37. My.Settings.SAVE_LETZTER_AUFRUF3 = TextBox3.Text
    38. My.Settings.SAVE_LETZTER_AUFRUF4 = TextBox4.Text
    39. My.Settings.Save()
    40. End Sub
    41. '###########################################################################################################################################
    44. 'DEVCON BEFEHL UMSETZEN
    45. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    46. Try
    47. Process.Start("devcon", "disable " & TextBox3.Text.ToString)
    48. Catch ex As Exception
    49. End Try
    50. My.Computer.Audio.Play(My.Resources.button_3, AudioPlayMode.Background)
    51. End Sub
    53. 'DEVCON BEFEHL UMSETZEN
    54. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    55. Try
    56. Process.Start("devcon", "enable " & TextBox3.Text.ToString)
    57. Catch ex As Exception
    58. End Try
    59. My.Computer.Audio.Play(My.Resources.button_3, AudioPlayMode.Background)
    60. End Sub
    62. 'DEVCON 32 BIT INSTALL
    63. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    64. Try
    65. IO.File.WriteAllBytes("C:\Windows\System32\devcon.exe", My.Resources.devcon32)
    66. Catch ex As Exception
    67. End Try
    68. My.Computer.Audio.Play(My.Resources.button_3, AudioPlayMode.Background)
    69. End Sub
    71. 'DEVCON 64 BIT INSTALL
    72. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    73. Try
    74. IO.File.WriteAllBytes("C:\Windows\System32\devcon.exe", My.Resources.devcon64)
    75. Catch ex As Exception
    76. End Try
    77. My.Computer.Audio.Play(My.Resources.button_3, AudioPlayMode.Background)
    78. End Sub
    80. 'Vendor-ID auslesen.
    81. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    82. ListBox1.Items.Clear()
    83. Try
    84. Dim p As New Process
    85. p.StartInfo.UseShellExecute = False
    86. p.StartInfo.RedirectStandardOutput = True
    87. p.StartInfo.FileName = "devcon"
    88. p.StartInfo.Arguments = "find pci\*"
    89. p.Start()
    90. Dim text As String = p.StandardOutput.ReadToEnd
    91. p.WaitForExit()
    92. ListBox1.Items.AddRange(text.Split(CChar(vbNewLine)))
    93. Catch ex As Exception
    94. End Try
    95. End Sub
    98. Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    99. 'ID ANZEIGE
    100. Try
    101. TextBox3.Text = ""
    102. IDTEIL1 = ListBox1.SelectedItem.Split("&")(0)
    103. IDTEIL2 = ListBox1.SelectedItem.Split("&")(1)
    104. TextBox4.Text = ListBox1.SelectedItem.Split(":")(1)
    105. Dim sauber As String = (IDTEIL1 & "&" & IDTEIL2)
    106. sauber = Replace(sauber, vbLf, "")
    107. TextBox3.Text = sauber.ToString
    108. Catch ex As Exception
    109. End Try
    111. Try
    112. 'STATUS ANZEIGE
    113. Dim p As New Process
    114. p.StartInfo.UseShellExecute = False
    115. p.StartInfo.RedirectStandardOutput = True
    116. p.StartInfo.FileName = "devcon"
    117. p.StartInfo.Arguments = "status " & TextBox3.Text.ToString
    118. p.Start()
    119. Dim text1 As String = p.StandardOutput.ReadToEnd
    120. p.WaitForExit()
    121. TextBox5.Text = text1.ToString
    122. TextBox5.Text = TextBox5.Text.Split(":")(1)
    123. Catch ex As Exception
    124. End Try
    125. End Sub
    128. 'FIND ALLE GERÄTE
    129. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    130. ListBox1.Items.Clear()
    131. Try
    132. Dim p As New Process
    133. p.StartInfo.UseShellExecute = False
    134. p.StartInfo.RedirectStandardOutput = True
    135. p.StartInfo.FileName = "devcon"
    136. p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    137. p.StartInfo.Arguments = "listclass usb 1394" 'resources
    138. p.Start()
    139. Dim text As String = p.StandardOutput.ReadToEnd
    140. p.WaitForExit()
    141. ListBox1.Items.AddRange(text.Split(CChar(vbNewLine)))
    142. Catch ex As Exception
    143. End Try
    144. End Sub
    146. 'GERÄTE NEU ERKENNEN ( RESCAN )
    147. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    148. Try
    149. Process.Start("devcon", " rescan")
    150. Catch ex As Exception
    152. End Try
    153. End Sub
    155. Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    156. Me.WindowState = FormWindowState.Minimized
    157. End Sub
    158. End Class



    Geschlossen :D