OWOK Computersperre

    • VB.NET

    Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von mbfan.

      OWOK Computersperre

      Hallo,
      ein klitzekleines Programmchen, welches den Computer nach einer Rainer-SCT-SmartCard durchsucht und ihn sperrt, wenn keine gefunden wurde.

      VB.NET-Quellcode

      1. Imports System.Management
      2. Public Class Form1
      3. Function GetHDDSerial() As String
      4. Dim searcher As New System.Management.ManagementObjectSearcher( _
      5. "SELECT * FROM Win32_PnPEntity")
      7. For Each wmi_HD As System.Management.ManagementObject In searcher.Get()
      8. If wmi_HD.ToString.Contains("SCFILTER") Then
      9. RichTextBox1.Text = RichTextBox1.Text & wmi_HD.ToString & vbNewLine
      10. End If
      11. Next
      13. ' Falls Index nicht gefunden, Leerstring zurückgeben
      14. Return ""
      15. End Function
      16. Function überprüfung() As Boolean
      17. RichTextBox1.Clear()
      18. Dim searcher As New System.Management.ManagementObjectSearcher( _
      19. "SELECT * FROM Win32_PnPEntity")
      21. For Each wmi_HD As System.Management.ManagementObject In searcher.Get()
      22. If wmi_HD.ToString.Contains("SCFILTER") Then
      23. RichTextBox1.Text = RichTextBox1.Text & wmi_HD.ToString & vbNewLine
      24. End If
      25. Next
      27. If RichTextBox1.Text.Contains("SCFILTER\\CID_80\") Then '
      28. Return True
      29. Else
      30. Return False
      31. End If
      32. End Function
      33. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      34. tim_überprüfung.Start()
      35. Me.Visible = False
      36. Me.Opacity = "0"
      37. End Sub
      39. Private Sub tim_überprüfung_Tick(sender As System.Object, e As System.EventArgs) Handles tim_überprüfung.Tick
      40. If überprüfung() = False Then
      41. Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.System) & "\rundll32.exe", "user32.dll,LockWorkStation")
      42. End If
      43. End Sub
      44. End Class

      Sollte mit ein wenig Modifikation auch bei andern Karten funktionieren.
      mbfan
      You should live for that what you belive. - Drag-Drop Beschreibung

      Wäre es dann nicht sinnvoll, dies Programm,wenn es läuft, als Dienst zu schreiben?
      Da kannst Du Dir die ganze Ausgabe mit der RTB sparen und müsstest Dich nicht wundern, dass Du mit Option Strict On Fehler bekommst, z.B.:

      mbfan schrieb:

      VB.NET-Quellcode

      1. Me.Opacity = "0"
      Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
      Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
      Ein guter .NET-Snippetkonverter (der ist verfügbar).
      Programmierfragen über PN / Konversation werden ignoriert!

      Weil ich diese Technik so garnet kenne, habich die Query einfach mal in ein DGV geladen (Form mit 1 MenuItem und 1 DatagridView):

      VB.NET-Quellcode

      1. Imports System.IO
      2. Imports System.Management
      4. Public Class Form1
      6. Private Sub QueryToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles QueryToolStripMenuItem.Click
      7. Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PnPEntity")
      8. DataGridView1.DataSource = searcher.Get.OfType(Of ManagementObject).ToList
      9. End Sub
      11. End Class
      Ergebnis:

      Keine Ahnung, was es bedeutet, aber ist offensichtlich eine riesige Menge an Informationen :D

      RodFromGermany schrieb:

      Wäre es dann nicht sinnvoll, dies Programm,wenn es läuft, als Dienst zu schreiben?
      Da kannst Du Dir die ganze Ausgabe mit der RTB sparen und müsstest Dich nicht wundern, dass Du mit Option Strict On Fehler bekommst, z.B.:

      mbfan schrieb:

      VB.NET-Quellcode

      1. Me.Opacity = "0"

      Hallo,
      irgendwie übernimmt mein VS meine Projekteinstellungen zu OSO immer nicht.
      Nun ja - die Idee ist gut - auch wenn ich RTB ehrlich gesagt nicht verstehe.
      Habes schon kapiert :)
      mbfan
      You should live for that what you belive. - Drag-Drop Beschreibung

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