Hallo zusammen,
auf der Arbeit wird alle 30 sek der Bildschirmschoner aktiviert. Blöd wenn man am großen Touchscreen Schulungen abhält, und ständig wieder die Maus bewegen muss.
Bitte keine Diskussion wieso weshalb warum.
Ich hatte also die Idee, da ja Excel VB an Bord hat, dort ein paar Zeilen zu schreiben, um einen Tastendruck zu simulieren und das ganze so zu verhindern.
Hier der Code:
Ab dem sendkeys Befehl stürzt das Programm aber leider ab, bzw. alles friert ein.
Was mache ich falsch? Wie kriege ich in Folge die Endlosschleife hin?
Vielen Dank schonmal
Tim
Code-Tags eingefügt. ~Thunderbolt
auf der Arbeit wird alle 30 sek der Bildschirmschoner aktiviert. Blöd wenn man am großen Touchscreen Schulungen abhält, und ständig wieder die Maus bewegen muss.
Bitte keine Diskussion wieso weshalb warum.
Ich hatte also die Idee, da ja Excel VB an Bord hat, dort ein paar Zeilen zu schreiben, um einen Tastendruck zu simulieren und das ganze so zu verhindern.
Hier der Code:
VB.NET-Quellcode
- Public Class Form1
- Private Property msgTime As Object
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim msgTime As New Timer
- Dim stopWatch As New Stopwatch
- With msgTime
- .Enabled = True
- .Interval = 30000 ' 30 Sekunden
- End With
- stopWatch.Start()
- stopWatch.Stop()
- msgTime.Enabled = (stopWatch.ElapsedMilliseconds >= msgTime.Interval)
- ' eine Messagebox nach Zeitintervall schließen
- SendKeys.Send("{NUMLOCK}")
- Do
- Loop While True
- End Sub
- End Class
Ab dem sendkeys Befehl stürzt das Programm aber leider ab, bzw. alles friert ein.
Was mache ich falsch? Wie kriege ich in Folge die Endlosschleife hin?
Vielen Dank schonmal
Tim
Code-Tags eingefügt. ~Thunderbolt
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thunderbolt“ ()