Stisk klávesy bez klávesnice

Noo. Udělal jsem prográmek, který odesílá 3-sekundy po spuštění zvolenou klávesu.
Ovšem možná není dořešeno, kterému programu by měl odeslat klávesu.
Je totiž dobré vědět, že výchozí chování OS je, že klávesu obdrží jen program, který má tzv. focus.

Send-key program čte ze svého souboru - zkratka.txt - definovanou klávesu, kterou pošle.
Každý řádek představuje jednu klávesu.
Ve výchozím příkladu posílá enter. Seznam zkratek je možné se dočíst z odkazu v prográmku.

DOWNLOAD

Například chceme-li po spuštění programu stisknout CTRL+Shift+ESC bude vypadat obsah souboru následovně:

^%{esc}

Díky moc za prográmek, nicméně v tom odkazu (seznam zkratek) nevidím kódy pro querty klávesnici, čili písmena, která právě potřebuji.

Například chceme-li po spuštění programu stisknout CTRL+Shift+ESC bude vypadat obsah souboru

Já ale nepotřebuji tu klávesovou zkratku spouštět tím programem, pouze potřebuji, aby ten program suploval stisk a uvolnění mnou definované jedné abecední klávesy. Čili jeden exe soubor by suploval stisk a uvolnění klávesy P a druhý exe soubor zase stisk a uvolnění klavesy Q.
Tu klávesovou zkratku vyšle totiž hotkey tlačítko na dalkáči, čili např. tebou uvedené CTRL+Shift+ESC a to zbůsobí aktivaci programu (souboru), který nahradí ruční stisk klávesy na klávesnici. Pokud jeden exe soubor bude suplovat stisk klávesy P a druhý Q, pak stačí pouze vytvořit jejich zástupce a nadefinovat jim ve vlastnostech klávesovou zkratku, která vyvolá jejich spuštění. Snad je to moje vysvětlení aspoň trochu srozumitelné

VBscript:

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "Notepad.exe"
Do Until Success = True
Success = objShell.AppActivate("Notepad")
Wscript.Sleep 1000
Loop
objShell.SendKeys "This is a test."

Předpokládám, že stačí uložit kód s příponou vbs. Nicméně netuším, kde se konfiguruje na konkrétní klávesu Q nebo P. Můžeš mi to prosím tě trochu osvětlit?

Edit: už to chápu, ten skrip spouští konkrétně notepad, čili nějaký exe soubor

objShell.Run "Notepad.exe"

a zřejmě pouze supluje zástupce.
Nicméně jak jsem psal výše potřeboval bych, aby ten skript suploval stiskt a puštění klávesy P. Pak druhý takový skript zase klávesy Q. Zástupcům těchto dvou skriptů bych akorát určil klávesovou zkratku, (pravé tlačítko myši - vlastnosti - klávesová zkratka) a bylo by to vyřešeno. Nicméně zatím mi to nepomůže, ale díky za ochotu.

Zkus takto:

WshShell.SendKeys("Q");

Uložit s příponou vbs, přiřadit zástupci klávesovou zkratku...

Ahoj hoste,

zkusil jsem to, ale končí to touhle chybovou hláškou:

Skript:   Documents and Settings\xy\xy\P.vbs
Řádek:    1
Znak:     23
Chyba:    Byl očekáván konec příkazu.
Kód:      800A0401
Zdroj:    Microsoft VBScript - chyba kompilace

Druhý pokus:

set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "Q"

To už je lepší, ale ještě to nefunguje, protože jak jsem to zkoušel, co to vlastně tvoří za znak v notepadu, tak místo malého p

p

to píše tohle:

ˇp

Zkoušel jsem to nejdříve s písmenem p, ale to bude asi jedno.

A to je ten problém, proč to nefunguje, ale vypadá to na dobré cestě, jenom odstranit ten opačný háček před písmenem.

Edit: zkoušel jsem i q, ale to zase místo malého

q

píše vlnovku

~

To je divné, mně to vypíše znak jaký zadám. Zkus to ASCII kódem:

set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys(Chr(81))

Tak jsem to důkladně odzkoušel na třech počítačích, protože jsem měl pocit, že to může mít na svědomí přídavná numerická klávesnička u netbooku, ale jinde stejný výsledek. Takže jsem to vyzkoušel klasicky pomocí klávesnice a vše ok, jak sám píšeš, čili funguje perfektně.
Problém je totiž v tom dálkači, protože přidává před to písmeno vždycky i nějaký znak. Každopádně ten kód je plně funkční, což jsem potřeboval, takže díky moc
Zkusím na tom dálkači nastavit jinou kombinaci kláves, třeba mu domluvím, aby tam ty znaky nevkládal