Hallo,
ich hatte einen Dienst in VB 2008 erstellt und unter Windows XP am laufen.
Beim Systemstart soll der Nummernblock aktiviert werden (fall nicht schon passiert).
Der Dienst startet zwar unter Windows 7 64bit, ausgeführt wird aber nichts.
Wenn ich diesen Code als normale exe nehme funktioniert das Ganze.
Jemand eine Idee?
Gruß und Dank vorab
Armin
Public Class Service1
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const KEYEVENTF_KEYUP = &H2
Const VK_NUMLOCK = &H90
Const KEYEVENTF_EXTENDEDKEY = &H1
Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal ByValnVirtKey As Integer) As Short
Protected Overrides Sub OnStart(ByVal args() As String)
If Not GetKeyState(VK_NUMLOCK) Then
numlockON()
Dim sFilePathe_b As String = "c:\an.txt"
Dim streami_b As FileStream = New FileStream(sFilePathe_b, FileMode.OpenOrCreate)
Dim SWriter_b As StreamWriter = New StreamWriter(streami_b, System.Text.Encoding.Default)
SWriter_b.WriteLine("anschalten")
SWriter_b.Close()
End If
End Sub
Private Sub numlockON()
keybd_event(VK_NUMLOCK, 0, 0, 0) ' Press NUMLOCK key down
keybd_event(VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0) ' Release it
End Sub
Protected Overrides Sub OnStop()
' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
End Sub
End Class
