Ich hab schon viele Sendkey Listen durchsucht habe aber nie den Key String für "^" gefunden, kennt den vllt jemand?
SendKeys
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von ebrithil.
-
-
schaumal das habe ich gefunden
Die Zeichen Plus (+), Zirkumflex (^), Prozent (%), Tilde (~) sowie die runden Klammern ( )
haben für SendKeys eine besondere Bedeutung.
Zum Angeben eines dieser Zeichen schließen Sie es in geschweifte Klammern ({}) ein.
Geben Sie das Pluszeichen z. B: durch "{+}" an. Geschweifte Klammern geben Sie mit "{{}" und "{}}" an.
Eckige Klammern ([ ]) haben zwar keinerlei Spezialbedeutung für SendKeys,
müssen aber auch in geschweifte Klammern eingeschlossen werden.
In anderen Anwendungen haben eckige Klammern eine besondere Bedeutung,
die möglicherweise für dynamischen Datenaustausch (DDE, Dynamic Data Exchange) relevant ist. -
-
Schau dir den kompletten Thread an.
msdn.microsoft.com/de-de/libra…ndows.forms.sendkeys.aspx
vieleicht habe ich etwas übersehen -
laut google scheint das wirklich ein bug für das deutsche OS zu sein: connect.microsoft.com/VisualSt…end-sends-wrong-characterFür ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!
-
bla schrieb:
laut google scheint das wirklich ein bug für das deutsche OS zu sein: connect.microsoft.com/VisualStud…wrong-character
Was kann ich da nun tuen? :( -
keybd nutzen pinvoke.net/default.aspx/user32.keybd_eventFür ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!
-
-
Mit der Taste ^ Sammelt man Gegenstände ein^^...
@ Bla, da blick ich leider nicht durch, auch nicht wie man die Funktion aufruft -
wiso machst du es nicht mit keydown ?????????? ist simpler
kleines beispiel :
MFG 0x426c61636b4e6574776f726b426974
InOffical VB-Paradise IRC-Server
webchat.freenode.net/
Channel : ##vbparadise -
-
wass den er will doch nur eine funktion dahinter haben (sammel) also dachte ich so würde es gehen ??!!.MFG 0x426c61636b4e6574776f726b426974
InOffical VB-Paradise IRC-Server
webchat.freenode.net/
Channel : ##vbparadise -
Nero021 schrieb:
keydown ??????????
Ich drück nix, es soll was gedrückt werden ^^ -
ach so dann kein plan XD sorryMFG 0x426c61636b4e6574776f726b426974
InOffical VB-Paradise IRC-Server
webchat.freenode.net/
Channel : ##vbparadise -
-
bla schrieb:
keybd nutzen pinvoke.net/default.aspx/user32.keybd_eventFür ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln! -
Und wie funktioniert der aufrauf, für was steht: dwflags dwextrainfo?
-
ist zwar vb6 aber hilft bestiimmt:
Spoiler anzeigen VB.NET-Quellcode
- '--------- Class Name: clsKeys
- Option Explicit
- Private Declare Function MapVirtualKey Lib "user32" Alias _
- "MapVirtualKeyA" (ByVal wCode As Long, _
- ByVal wMapType As Long) As Long
- Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal _
- cChar As Byte) As Integer
- 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 Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As _
- Long) As Integer
- Private Const KEYEVENTF_EXTENDEDKEY = &H1
- Private Const KEYEVENTF_KEYUP = &H2
- Public Enum enumKeys
- keyBackspace = &H8
- keyTab = &H9
- keyReturn = &HD
- keyShift = &H10
- keyControl = &H11
- keyAlt = &H12
- keyPause = &H13
- keyEscape = &H1B
- keySpace = &H20
- keyEnd = &H23
- keyHome = &H24
- keyLeft = &H25
- KeyUp = &H26
- keyRight = &H27
- KeyDown = &H28
- keyInsert = &H2D
- keyDelete = &H2E
- keyF1 = &H70
- keyF2 = &H71
- keyF3 = &H72
- keyF4 = &H73
- keyF5 = &H74
- keyF6 = &H75
- keyF7 = &H76
- keyF8 = &H77
- keyF9 = &H78
- keyF10 = &H79
- keyF11 = &H7A
- keyF12 = &H7B
- keyNumLock = &H90
- keyScrollLock = &H91
- keyCapsLock = &H14
- End Enum
- 'Presses the single key represented by sKey
- Public Sub PressKey(sKey As String, Optional bHold As Boolean, Optional _
- bRelease As Boolean)
- Dim nVK As Long
- nVK = VkKeyScan(Asc(sKey))
- If nVK = 0 Then
- Exit Sub
- End If
- Dim nScan As Long
- Dim nExtended As Long
- nScan = MapVirtualKey(nVK, 2)
- nExtended = 0
- If nScan = 0 Then
- nExtended = KEYEVENTF_EXTENDEDKEY
- End If
- nScan = MapVirtualKey(nVK, 0)
- Dim bShift As Boolean
- Dim bCtrl As Boolean
- Dim bAlt As Boolean
- bShift = (nVK And &H100)
- bCtrl = (nVK And &H200)
- bAlt = (nVK And &H400)
- nVK = (nVK And &HFF)
- If Not bRelease Then
- If bShift Then
- keybd_event enumKeys.keyShift, 0, 0, 0
- End If
- If bCtrl Then
- keybd_event enumKeys.keyControl, 0, 0, 0
- End If
- If bAlt Then
- keybd_event enumKeys.keyAlt, 0, 0, 0
- End If
- keybd_event nVK, nScan, nExtended, 0
- End If
- If Not bHold Then
- keybd_event nVK, nScan, KEYEVENTF_KEYUP Or nExtended, 0
- If bShift Then
- keybd_event enumKeys.keyShift, 0, KEYEVENTF_KEYUP, 0
- End If
- If bCtrl Then
- keybd_event enumKeys.keyControl, 0, KEYEVENTF_KEYUP, 0
- End If
- If bAlt Then
- keybd_event enumKeys.keyAlt, 0, KEYEVENTF_KEYUP, 0
- End If
- End If
- End Sub
- 'Loop through a string and calls PressKey for each character (Does not
- ' parse strings like SendKeys)
- Public Sub PressString(ByVal sString As String, Optional bDoEvents As Boolean = True)
- Do While sString <> ""
- PressKey Mid(sString, 1, 1)
- Sleep 20
- If bDoEvents Then
- DoEvents
- End If
- sString = Mid(sString, 2)
- Loop
- End Sub
- 'Presses a specific key (this is used for keys that don't have a
- ' ascii equilivant)
- Public Sub PressKeyVK(keyPress As enumKeys, Optional bHold As Boolean, _
- Optional bRelease As Boolean, Optional bCompatible As Boolean)
- Dim nScan As Long
- Dim nExtended As Long
- nScan = MapVirtualKey(keyPress, 2)
- nExtended = 0
- If nScan = 0 Then
- nExtended = KEYEVENTF_EXTENDEDKEY
- End If
- nScan = MapVirtualKey(keyPress, 0)
- If bCompatible Then
- nExtended = 0
- End If
- If Not bRelease Then
- keybd_event keyPress, nScan, nExtended, 0
- End If
- If Not bHold Then
- keybd_event keyPress, nScan, KEYEVENTF_KEYUP Or nExtended, 0
- End If
- End Sub
- 'Returns (in the boolean variables) the status of the various Lock keys
- Public Sub GetLockStatus(bCapsLock As Boolean, bNumLock As Boolean, _
- bScrollLock As Boolean)
- bCapsLock = GetKeyState(enumKeys.keyCapsLock)
- bNumLock = GetKeyState(enumKeys.keyNumLock)
- bScrollLock = GetKeyState(enumKeys.keyScrollLock)
- End Sub
Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln! -
wenn due damit gegenstände einsammelst ist es bestimmt für ein Game, dann rate ich dir mal dich umzuschauen ob du nicht einfach im Game selbst die Tastenbelegung ändern kannst.
mfg Ebrithil
-
Tags
-
Ähnliche Themen
-
Bestimmte Tastenfolge nach Zeit x
PeterDerMeter - - Sonstige Problemstellungen
-
6 Benutzer haben hier geschrieben
- ThuCommix (7)
- bla (4)
- BlackNetworkBit (3)
- Gast (3)
- EiPott (1)
- ebrithil (1)