Dritter Teil
Oha! Drei reichen ja immer noch nicht! Hoffentlich geht beim zerhacken nichts verloren.
If sChar = ")" Then ' Reset
' Control Keys if closing round Bracket found
If bRound Then
sChar = "" ' No
' Character to be sent
bRep = True ' Last
' Repetition; used for resetting of Control Keys
If SendKeyDebug Then Kdebug "before Reset Control Keys" & _
"ahead round Brackets; " & sChar
SendKeysEx bRep, sChar ' Reset
' Control Keys
If SendKeyDebug Then Kdebug "after Reset Control Keys ahead" & _
"round Brackets"
bRep = False
bRound = False
Else
I = I + 1 ' Ignore
' and get next Character
sChar = Mid(sText, I, 1)
End If
End If
If InStr("()[]}~+%^", sChar) = 0 Then ' Control
' Characters as Output only allowed inside curly Brackets; treated
' above, ignore here
If SendKeyDebug Then Kdebug "before send single Character; " & _
sChar
SendKeysEx bRep, sChar ' Send
' single Character
If SendKeyDebug Then Kdebug "after send single Character"
If Not bRound And (bShift Or bAlt Or bCtrl) Then
If SendKeyDebug Then Kdebug "before reset Control Keys" & _
"after sending single Character; " & sChar
SendKeysEx True, "" ' Reset all
' Control Keys (for example in Case shifted single
' Character had been sent)
If SendKeyDebug Then Kdebug "after reset Control Keys after" & _
"sending single Character"
End If
ElseIf sChar = "{" Then ' Handle in
' next loop run
I = I - 1
End If
End If
Next
End Sub ' SendKeyStr
Sub SendKeysEx(bRep As Boolean, sString As String)
Dim VK As eVirtualKeyCode, VK_Special As eVirtualKeyCode, strChar As String
Dim J As Integer, VKStart As Integer, VKLen As Integer ' Loop Counter,
' Start and Length of Special Key
Dim bShiftS As Boolean ' Flag for
' single Capital Letter
Dim nScan As Long
Dim nExtended As Long
' Send Control Key(s) if any
If bShift And Not bShiftd Then
keybd_event VK_SHIFT, 0, 0, 0
bShiftd = True ' Set
' "pressed"-Flag
End If
If bCtrl And Not bCtrld Then
keybd_event VK_CONTROL, 0, 0, 0
bCtrld = True
End If
If bAlt And Not bAltd Then
keybd_event VK_MENU, 0, 0, 0
bAltd = True
End If Das muß doch irgendwie gehen! |