vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Sch?tzen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im [email protected] gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im [email protected]
Re: Alternative zur SendKeys-Anweisung 
Autor: NoRoutine
Datum: 23.05.14 23:00

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!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 542: Alternative zur SendKeys-Anweisung8.841Kartoffel30.06.08 11:38
Re: Alternative zur SendKeys-Anweisung4.843Bazi20.04.10 19:05
Re: Alternative zur SendKeys-Anweisung4.653Andreas M.09.07.11 12:46
Re: Alternative zur SendKeys-Anweisung4.511Andreas M.09.07.11 20:18
Re: Alternative zur SendKeys-Anweisung192Paul Schäfer01.03.22 09:54
Re: Alternative zur SendKeys-Anweisung3.940stev-e8719.09.12 13:37
Re: Alternative zur SendKeys-Anweisung3.307NoRoutine23.05.14 22:55
Re: Alternative zur SendKeys-Anweisung3.083NoRoutine23.05.14 22:57
Re: Alternative zur SendKeys-Anweisung3.049NoRoutine23.05.14 23:00
Re: Alternative zur SendKeys-Anweisung3.068NoRoutine23.05.14 23:03
Re: Alternative zur SendKeys-Anweisung3.108NoRoutine23.05.14 23:04
Re: Alternative zur SendKeys-Anweisung3.253NoRoutine23.05.14 23:04

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 [email protected] Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel