Stisk klávesy bez klávesnice

Ahoj všem,
možná si někdo řekne, že jsem se asi pomátl, ale vysvětlím
Mám jednu aplikaci na svém notebooku, kterou v pohodě ovládám přes dálkové ovládání, které podporuje další základní funkce pro ovládání Windows bez nutnosti mít multimediální OS. Na tomto dálkači jsou také čtyři hotkey tlačítka, které mohu přiřadit jakékoliv aplikaci na PC, pokud ji dokáži nastavit klávesovou zkratku podporovanou těmi hotkey na dálkači. Třeba potřebuji spustit program xy, vytvořím pouze jeho zástupce a přidělím mu klávesovou zkratku, kterou hotkey tlačítko na dálkači podporuje, třeba Ctrl+Alt+C a funguje vše bez problémů. Nicméně potřebuji pro ovládání jednoho programu ještě dvě tlačítka na klávesnici, konkrétně Q a P, což nelze změnit přimo v programu, který chci ovládat, tam je to totiž pevně dané. Nenapadá někoho, jak si vytvořit nějaký spouštěcí soubor, kterému budu moci přiřadit libovolnou klávesovou zkratku, který by mi následně po jeho spuštění suploval stisk a uvolnění (jeden úhoz) klávesy Q a druhý soubor stisk a uvolnění klávesy P ? Čili pokud bych ten soubor spustil třeba 4x, napsal by mi v případě otevřeného třeba notepadu 4x písmeno Q. Nějak by to snad i mohlo jít, pokud Windows používají pro toto přímo virtuální klávesnici, která je jejich běžnou součástí.

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
VBscript: Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "Notepad.exe" Do Until… pme 04.10.2011 16:41	pme	04.10.2011 16:41
Předpokládám, že stačí uložit kód s příponou vbs. Nicméně netuším, kde se konfiguruje na konkrétní k… Craft 04.10.2011 21:32	Craft	04.10.2011 21:32
Zkus takto: WshShell.SendKeys("Q"); Uložit s příponou vbs, přiřadit zástupci klávesovou zkratku... nový host 04.10.2011 21:45	host	04.10.2011 21:45
Ahoj hoste, zkusil jsem to, ale končí to touhle chybovou hláškou: Skript: Documents and Settings\x… nový Craft 04.10.2011 21:59	Craft	04.10.2011 21:59
Druhý pokus: set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "Q"… nový host 04.10.2011 22:17	host	04.10.2011 22:17
To už je lepší, ale ještě to nefunguje, protože jak jsem to zkoušel, co to vlastně tvoří za znak v n… nový Craft 04.10.2011 22:30	Craft	04.10.2011 22:30
To je divné, mně to vypíše znak jaký zadám. Zkus to ASCII kódem: set WshShell = CreateObject("WScri… nový host 04.10.2011 22:47	host	04.10.2011 22:47
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… poslední Craft 04.10.2011 23:56	Craft	04.10.2011 23:56

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

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

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

Zpět do poradny Odpovědět na původní otázku Nahoru