Starten einer Form wenn keine Eingaben ins System erfolgen

  • VB.NET

    Starten einer Form wenn keine Eingaben ins System erfolgen

    Hallo zusammen,

    ich benötige eure Hilfe für ein Problem bei meiner Anwendung. Ich bin selber ziemlich neu in VB und weis nicht wirklich, wie ich das ganze sauber umgesetzt bekomme.

    Das Programm soll folgendens tun:

    Wenn ein Benutzer für x Sekunden ( für meine Test 10s) keine Eingaben tätigt (Tastatur & Maus Systemweit) , soll ein Formular angezeit werden, welches nahezu durchsichtig ist. Bei MouseClick und KeyPress wird die Form ausgebeldent und die Arbeitsstation gesperrt. Ich bekomme es aber irgendwie nicht sauber hin, diese Idle TIme zu erhalten und dann das gewünschte Ereignis auszuführen.



    Es wäre super. wenn ihr mir helfen könntet:


    VB.NET-Quellcode

    1. Option Strict Off
    2. Option Explicit On
    3. Imports VB = Microsoft.VisualBasic
    4. Imports System.Runtime.InteropServices
    5. Friend Class Transparentfrm
    6. Inherits System.Windows.Forms.Form
    7. Private Declare Function GetLastInputInfo Lib "user32.dll" (ByRef inputStructure As inputInfo) As Boolean
    8. Private Structure inputInfo
    9. Dim structSize As Int32
    10. Dim tickCount As Int32
    11. End Structure
    12. Private info As inputInfo
    13. Dim firstTick As Long
    14. Dim lastTick As Long
    16. Private Sub transparentfrm_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    17. Me.Hide()
    18. GetLastInputInfo(info)
    19. Timer1.Start()
    20. End Sub
    21. 'Sperren der Arbeitsstation bei Verlassen der Anwendung
    22. Private Declare Function LockWorkStation Lib "user32.dll" () As Long
    23. Private Sub frmservice_hide()
    24. LockWorkStation()
    25. Me.Hide()
    26. GetLastInputInfo(info)
    27. Timer1.Start()
    28. End Sub
    29. Private Sub frmservice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Click
    30. frmservice_hide()
    31. End Sub
    32. Private Sub frmservice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    33. frmservice_hide()
    34. End Sub
    36. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    37. 'This timer will fire every 1000ms(One Second) or so displaying the last time the user was active.
    38. '
    39. 'The size of the structure for the API call.
    40. info.structSize = Len(info)
    41. '
    42. 'Call the API.
    43. GetLastInputInfo(info)
    44. '
    45. 'Compare the tickcount values to determine if activity has occurred or not.
    46. If firstTick <> info.tickCount Then
    47. Me.Show()
    48. Me.Opacity = 0.1
    49. firstTick = info.tickCount
    50. Timer1.Stop()
    51. End If
    52. End Sub
    53. End Class


    Vielleicht könnt ihr mir helfen.

    Vielen Dank

    Matthias