{"id":291,"date":"2018-12-10T18:14:57","date_gmt":"2018-12-10T17:14:57","guid":{"rendered":"http:\/\/www.acidpool.at\/005_wordpress\/?p=291"},"modified":"2019-05-07T17:57:25","modified_gmt":"2019-05-07T15:57:25","slug":"kontrolle-erlangen","status":"publish","type":"post","link":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/2018\/12\/10\/kontrolle-erlangen\/","title":{"rendered":"Kontrolle erlangen"},"content":{"rendered":"\n
\"\"<\/figure>\n\n\n\n

„SEND KEYS<\/a><\/strong>“ funktioniert wahnsinnig gut. In „MOUSE AREA<\/a><\/strong>“ befindet sich die Anleitung wie man den Mouse Cursor plaziert, das Einzige was mir jetzt noch fehlt ist das Senden von Mouse clicks. <\/p>\n\n\n\n

Advanced Brainfart:<\/strong>
Wenn es m\u00f6glich w\u00e4re den in „SEND KEYS<\/a><\/strong>“ erzeugten Screenshot aus dem Zwischenspeicher in QB64 zu importieren w\u00e4re es (mit kA, wahrscheinlich typisch unendlich hohem Aufwand<\/em>) m\u00f6glich diesen auszuwerten um die Sprites sinnvoll abzulegen (Siehe Sonntag 09\/12\/2018 Punkt#4: „Bild, x-pos, y-pos und Tilenummer“<\/em>). Sich komplett auf Variabeln zu verlassen ist nicht m\u00f6glich da die Tilenummer nicht eruierbar ist.<\/p>\n\n\n\n

Back to topic:
\nDie Zeile die ich wahrscheinlich kopieren und modifizieren muss ist diese:\n\n\n

<\/p>\n\n\n<\/p>

\nSUB SENDKEYS ALIAS<\/strong> keybd_event (BYVAL<\/strong> bVk AS LONG<\/strong>, BYVAL<\/strong> bScan AS LONG<\/strong>, BYVAL<\/strong> dwFlags AS LONG<\/strong>, BYVAL<\/strong> dwExtraInfo AS LONG<\/strong>)
\n<\/code><\/pre>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Zuerst sollte ich mal schauen was zu „keybd_event<\/code>“ in der „user32.dll<\/code>“ steht und ob ein Mouse-equivalent existiert. (\u2026) Oder ich finde sofort die „mouse_event function<\/code>“ und im selben Zug das diese als auch die „Keybd_event function<\/code>“ durch die „SendInput function<\/code>“ ersetzt wurden.<\/p>\n
Und da w\u00e4ren wir in meinem moralischen Dilemma: Soll dieses Programm >jetzt f\u00fcr mich<<\/strong> funktionieren oder >m\u00f6glichst immer f\u00fcr m\u00f6glichst alle<<\/strong>?<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Nachdem sich das Projekt „SR:SNES:DRMM<\/strong>“ jetzt schon seit Jahren (Afair Mittwoch 05.10.2016<\/em>) zieht und keine tats\u00e4chlichen Ergebnisse sondern „nur“ Ideen, Brainfarts, Erkenntnisse und \u00e4hnliches hervorgebracht hat, bin ich eine Runde egoistisch und w\u00e4hle >jetzt f\u00fcr mich<<\/strong>.<\/p>\n
Sollte es so funktionieren wie ich es gerne h\u00e4tte und sollte ich es anwenden k\u00f6nnen und sollte ich Zeit, Lust und Laune haben kann ich es ja immer noch verallgemeinern.
\nWie ich bei meinen Abstechern in VBA gelernt habe ist es aber notwendig alle verwendeten Ressourcen zu notieren und zu speichern.
\n(Der Link zu besten Quelle ever nutzt nichts wenn diese nicht mehr online ist\u2026 und deswegen speichere ich ab nun alle relevanten Seiten als .pdf<\/code> und f\u00fcge sie am Ende der Beitr\u00e4ge an.<\/em>)\n<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>
void keybd_event(\n  BYTE      bVk,\t-> A virtual-key code. The code must be a value in the range 1 to 254.\n  BYTE      bScan,\t-> A hardware scan code for the key.\n  DWORD     dwFlags,\t-> Controls various aspects of function operation. This parameter can be one or more of the following values.\n\t\t\t   Value \t\t\tMeaning\n\t\t\t   KEYEVENTF_EXTENDEDKEY\tIf specified, the scan code was preceded by a prefix byte having the value 0xE0 (224).\n\t\t\t   0x0001\n\t\t\t   KEYEVENTF_KEYUP\t\tIf specified, the key is being released. If not specified, the key is being depressed. \n\t\t\t   0x0002\n  ULONG_PTR dwExtraInfo\t-> An additional value associated with the key stroke.\n);\nDECLARE DYNAMIC LIBRARY \"user32\"\n    SUB SENDKEYS ALIAS keybd_event (BYVAL bVk AS LONG, BYVAL bScan AS LONG, BYVAL dwFlags AS LONG, BYVAL dwExtraInfo AS LONG)\nEND DECLARE\n\nCONST KEYEVENTF_KEYUP = &H2\nCONST VK_SNAPSHOT = &H2C 'PrtScn key\nCONST VK_MENU = &H12 'Alt key\nCONST VK_SHIFT = &H10 'Shift key\nCONST VK_LWIN = &H5B\n\nPRINT \"\"\nPRINT \"SENDKEYS clone example.  Press ENTER to begin...\"\nPRINT\n\nWHILE INKEY$ <> CHR$(13): WEND\n\n'=== Capture Active window to Clipoard as image (Like Alt+PrtSc)\nSENDKEYS VK_MENU, 0, 0, 0\t\t\t\t\t-> dr\u00fcckt Alt key\nSENDKEYS VK_SNAPSHOT, 0, 0, 0\t\t\t\t\t-> dr\u00fcckt PrtScn key\nSENDKEYS VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0\t\t\t-> l\u00e4\u00dft PrtScn key los\nSENDKEYS VK_MENU, 0, KEYEVENTF_KEYUP, 0\t\t\t\t-> l\u00e4\u00dft Alt key los\n\n<\/code><\/pre>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Auf der Suche was „VK_LWIN = &H5B<\/code>“ ist (Antwort: Die Windows-Taste<\/em>) bei den Virtual-Key-Codes entdeckt das auch die Maustasten vorhanden sind:
\nhttps:\/\/docs.microsoft.com\/de-at\/windows\/desktop\/inputdev\/virtual-key-codes<\/a>
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>
Constant\/value    Description\nVK_LBUTTON        Left mouse button\n0x01\nVK_RBUTTON        Right mouse button\n0x02<\/code><\/pre>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Eine Runde wirres gegoogle weiter darf ich mitteilen das 0x01<\/code> anscheinend dem Code &H1<\/code> bzw &H01<\/code> entspricht. (0x02<\/code> ist &H2<\/code> bzw &H02<\/code><\/em>).
\nWas genau das darstellt erchlie\u00dft sich mir hingegen nicht.
\n0x01 = bit set \/ &H1 = decimal 1.<\/code>???<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Okay, theoretisch sollte es also m\u00f6glich sein, VK_LMB = &H1<\/code> und VK_RMB = & &H2<\/code> in das Beispiel einzubauen, den Mousecursor mittels SetCursorPos<\/strong> x, y<\/code> (Eine SUB die in MOUSE AREA<\/a><\/strong> erstellt wird.<\/em>) zu einen bestimmten Punkt zu f\u00fchren und dann per SENDKEYS<\/strong> VK_LMB, 0, 0, 0<\/code> zu dr\u00fccken?<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Sollte funktionieren. Dann basteln wir den Hybrid mal\u2026<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Uhm\u2026 „CONST KEYEVENTF_KEYUP = &H2<\/code>“ ? Ich dachte &H2<\/code> ist gleichbedeutend mit &H02<\/code> alias Right Mouse Button<\/code>?
\nBei den „dwflags<\/code>“ oben findet sich „0x0002<\/code>„\u2026 hm, vielleicht funktioniert das Ganze doch nicht gaaanz so easy wie ich annahm\u2026<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Okay, funktioniert scheinbar ohne „mouse_event<\/code>“ doch nicht\u2026<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Es funktioniert!!! Whoop whoop!<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>
'============================\n'KEYBOARD & MOUSE SCRIPT TEST\n'-----------[kemoscte.bas]---\n'\n'Basierend auf SENDKEY.BAS (Coded for QB64 by Dav, JAN\/2013) und dem\n'\"Mouse Area\"-Beispiel gefunden auf https:\/\/qb64.org\/wiki\/Windows_Libraries\n'\n'Sinn und Zweck ist es den Mouse Cursor auszerhalb des Programmfensters auf dem\n'Bildschirm zu bewegen, zu klicken und Text einzugeben.\n'\n'All (d) by -=[d.s.R.]=- 10.Dec.2018\n\nDECLARE DYNAMIC LIBRARY \"user32\"\n    SUB SetCursorPos (BYVAL x AS LONG, BYVAL y AS LONG) 'move cursor position\n    SUB SENDKEYS ALIAS keybd_event (BYVAL bVk AS LONG, BYVAL bScan AS LONG, BYVAL dwFlags AS LONG, BYVAL dwExtraInfo AS LONG)\n    SUB SENDMOUSE ALIAS mouse_event (BYVAL dwFlags AS LONG, BYVAL dx AS LONG, BYVAL dy AS LONG, BYVAL dwData AS LONG, BYVAL dwExtraInfo AS LONG)\nEND DECLARE\n\nCONST KEYEVENTF_KEYUP = &H2\nCONST VK_SNAPSHOT = &H2C 'PrtScn key\nCONST VK_MENU = &H12 'Alt key\nCONST VK_SHIFT = &H10 'Shift key\nCONST VK_LWIN = &H5B\n\nCONST MOUSEEVENTF_LEFTDOWN = &H2 'The left button is up.\nCONST MOUSEEVENTF_LEFTUP = &H4 'The left button is down.\nCONST MOUSEEVENTF_RIGHTDOWN = &H8 'The right button is up.\nCONST MOUSEEVENTF_RIGHTUP = &H10 'The right button is down.\n\nSHELL _DONTWAIT \"notepad.exe\"\n\nSLEEP 1 'give time to make notepad the active window...\n\n'=== Say Hi...\nSENDKEYS &H48, 0, 0, 0: SENDKEYS &H48, 0, KEYEVENTF_KEYUP, 0 'H\nSENDKEYS &H49, 0, 0, 0: SENDKEYS &H49, 0, KEYEVENTF_KEYUP, 0 'i\n\nSetCursorPos 120, 60 '<- Mousecursor direkt ueber \"Datei\"\nSENDMOUSE MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0\nSENDMOUSE MOUSEEVENTF_LEFTUP, 0, 0, 0, 0\nSetCursorPos 120, 120 '<- Mousecursor direkt ueber \"Speichern\"\nSLEEP 1\nSENDMOUSE MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0\nSENDMOUSE MOUSEEVENTF_LEFTUP, 0, 0, 0, 0\n\nEND<\/code><\/pre>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
Link f\u00fcr morgen: SCREENIMAGE<\/a>
\n„The _SCREENIMAGE function stores the current desktop image or a portion of it and returns an image handle.“
\nGhihihi\u2026<\/p>\n
\n\n\n
<\/p>\n
<\/p>\n\n\n<\/p>\n
.pdf<\/code>-Dateien:
\n001_QB64wiki_windows_libraries_10_12_2018.pdf<\/a> (702kb)
\n002_WinDevCenter_keybd_event_function_10_12_2018.pdf<\/a> (462kb)
\n003_WinDevCenter_mouse_event_function_10_12_2018.pdf<\/a> (458kb)
\n004_WinDevCenter_virtual-key_codes_10_12_2018.pdf<\/a> (419kb)<\/small>\n<\/p>\n
\n\n\n
<\/p>","protected":false},"excerpt":{"rendered":"
„SEND KEYS“ funktioniert wahnsinnig gut. In „MOUSE AREA“ befindet sich die Anleitung wie man den Mouse Cursor plaziert, das Einzige was mir jetzt noch fehlt ist das Senden von Mouse clicks. Advanced Brainfart: Wenn es m\u00f6glich w\u00e4re den in „SEND KEYS“ erzeugten Screenshot aus dem Zwischenspeicher in QB64 zu importieren w\u00e4re es (mit kA, wahrscheinlich … <\/p>\n
\u201eKontrolle erlangen\u201c <\/span>weiterlesen<\/a><\/p>\n","protected":false},"author":1,"featured_media":292,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-291","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-srsnesdrmm"],"_links":{"self":[{"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/posts\/291","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/comments?post=291"}],"version-history":[{"count":37,"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/posts\/291\/revisions"}],"predecessor-version":[{"id":495,"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/posts\/291\/revisions\/495"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/media\/292"}],"wp:attachment":[{"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/media?parent=291"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/categories?post=291"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.acidpool.at\/005_wordpress\/index.php\/wp-json\/wp\/v2\/tags?post=291"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
Okay, zerlegen wir SEND KEYS<\/a><\/strong> in die Angaben auf der Microsoft-Seite<\/a><\/p>\n