AW: leider komme ich da alleine nicht weiter
08.12.2005 22:30:45
chris
Hallo Micha erst mal super vielen dank für die Hilfe.!!!!
Hier ist mein Code den ich bis jetzt habe :)
Danke Rückmeldung wegen deinem Code gebe ich dir morgen noch einmal.Leg mich jetzt hin !!
Public TimerEnabled As Boolean
Public Cnt&
Dim was
Dim hTimer&
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" ( _
ByVal vKey As Long) As Integer
Private Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (lpDest As Any, lpSource As Any, _
ByVal cBytes As Long)
Function LoWord(ByVal dwValue As Long) As Integer
Call CopyMemory(LoWord, dwValue, 2&)
End Function
Private Function HiWord(ByVal dwValue As Long) As Integer
Call CopyMemory(HiWord, ByVal VarPtr(dwValue) + 2, 2&)
End Function
'--------------------------------------------------
Sub stoppen_Click()
Call Terminate
End Sub
Public Sub Init(Interval&)
hTimer = SetTimer(0, 0, Interval, AddressOf TimerProc)
TimerEnabled = True
End Sub
Public Sub Terminate()
Call KillTimer(0, hTimer)
TimerEnabled = False
Close #1
Cells(5, 1) = was
MsgBox was
was = ""
End Sub
Sub starten()
Open "C:\test.txt" For Append Access Write Lock Write As #1
Call Init(50)
End Sub
Private Sub TimerProc(ByVal hWnd&, ByVal Msg&, ByVal idEvent&, ByVal dwTime&)
' Dim i As Long
' Dim nRetVal As Long
' Dim hWnd As Long
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyF10)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
'ausschalten
Call Terminate
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeySpace)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "E gedrückt"
Call AddText(" ")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyA)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "E gedrückt"
Call AddText("a")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyB)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
'Print #1, "b"
Call AddText("b")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyC)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Print #1, "c"
Call AddText("c")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyD)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Print #1, "c"
Call AddText("d")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyC)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("c")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyE)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("e")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyF)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("f")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyG)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("g")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyH)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("h")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyI)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("i")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyJ)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("j")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyK)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("k")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyL)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("l")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyM)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("m")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyN)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("n")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyO)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("o")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyP)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("p")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyQ)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("q")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyR)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("r")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyS)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("s")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyT)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("t")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyU)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("u")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyV)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("v")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyW)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("w")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyX)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("x")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyY)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("y")
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyZ)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
' Write #1, "c"
Call AddText("z")
End If
End Sub
Sub AddText(strText As String)
' Print #1, strText
was = was & strText
'Cells(5, 1) = Cells(5, 1) & strText
End Sub