dávkové soubory *.BAT

[Ferdinand]

Chci vytvořit dávkový soubor pro rychlé skenování do aplikace, abych nemusel pokaždé pracně potvrzovat volby File - New - Import from Scanner - Device - Format
Nemohu ale přijít na to, jakým způsobem mám nadefinovat emulaci stisku klávesy Enter (tj. funkci "OK", čili schválení).
Ve standardních příkazech pro dávkový soubor nic takového není, takže asi musí na to existovat nějaká finta...?

[Reklama]

[petr22]

To co chces se jmenuje AutoHotkey a ne CMD nebo BAT.

[Karrex]

Skenování čím?

[petr22]

Podle me tazatel chce od CMD neco, co CMD neumi, ale presne to co umi AutoHotkey - naskriptovat v aplikaci
to, co dela uzivatel rucne.

Umi to i takove srandy, jako otvirat okna presne velikosti v pixelech na konkretni pozici na obrazovce
a v nich klikat na konkretni pozici. Okna od aplikaci identifikuje podle jejich nazvu a klika i na pozadi.

[Ferdinand]

Skenování čím?

Skenování stolním skenerem (do souboru *.PDF), který je součástí multifunkční tiskárny a je zapnuta.

Dodatečně přidáno po 21 minutách 15 vteřinách:

To co chces se jmenuje AutoHotkey a ne CMD nebo BAT.

Dívám se a vidím, že je to něco dost podobného jako v jazyce AutoLisp, který jsem kdysi hodně používal pro vytváření různých utilit v AutoCADu.

[Ferdinand]

To petr22:
OK, takže se mám kvůli tomu pracně naučit programovat skripty v aplikaci AutoHotkey...?
Ne že bych měl o to nějaký valný zájem
Programovací jazyk LISP jsem již také dávno zapomněl...

Uvítal bych, kdyby mi někdo, kdo to už umí, zapsal tu syntaxi - já se v tom AutoHotkey vůbec nevyznám. Sice jsem to zkoušel, ale po 2 hodinách snažení jsem toho nechal a nemám žádný fungující výsledek.

Je to postupnost následujících příkazů:
1) spusť Aplikaci (C:\ProgramFiles\Aplikace\Aplikace.exe)
2) vyber z menu položku File (možnost: Alt+F)
3) z otevírací rolety vyber možnost New... (je to hned první položka v roletě, která je automaticky označena po provedení kroku 1), takže stačí potvrdit Enterem, ale není tam možnost ALt+NECO)
4) z nového vyskakovacího okna vyber možnost Import from scanner (tj. šipkou 1x dolů a potvrdit Enterem, není tam možnost ALt+NECO)
5) v novém vyskakovacím okně potvrď Device (skener) = potvrdit Enterem (volba tlačítka "OK", není tam možnost ALt+NECO)

[Grander]

ferdinand:
Zkusil jsem ti to napsat.
Je to tedy sekvence:

Kód: Vybrat vše

spustit aplikaci
Alt+F
Enter
šipka dolů, Enter
Enter

A zde je kod pro autohotkey, klávesová zkratka je Win+s:

Kód: Vybrat vše

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
#SingleInstance Force
#NoEnv
SetWorkingDir %A_ScriptDir%
SetBatchLines -1
FileEncoding, UTF-8-raw


#s::
Run, "c:\Program Files\Aplikace\Aplikace.exe"
;WinWaitActive,  ahk_class Aplikace, ; Tento řádek zajišťuje čekání, než se aplikace spustí, doplň si třídu aplikace, tu zjistíš v okně Window Spy autohotkey. Nebo jen použij aleternativně ředak Sleep pod tím - ten už je aktivovaný, takže nemusíš nic dělat
Sleep, 150 ; to je pro případ, kdybys neaktivoval předchozí řádek
Send, !f
Sleep, 20
Send, {Enter}
Send, Down
Send, {Enter}
Send, {Enter}
return

[Ferdinand]

To Grander:
Díky za snahu!
Bohužel ale nefunguje to - pouze se otevře Aplikace a nic se dále neděje...
Upřesnil jsem popis v těch krocích.

[petr22]

Jakto ucit se programovat skripty? To co chces dat i clovek co tomu vubec nerozumi behem par minut.

Priklad, clovek co to videl poprve, ale co vi co chce udelat:
Otevreni Accessu do dvou oken vedle sebe presne na poloviny obrazovky, klik mysi do tlacitka
v levem okne, klik do tlacitka v pravem, opakovat kazdych 60 sekund.

Staci do skriptu pod sebe vypsat doslova to, co chces delat.

[Grander]

Ferdinand: nejsem u pocitace, tak nemohu testovat, napadlo me, jestli se treba u tebe pri kopirovani nezalomil radek s komentem do dvou radku a dalsi radek je tedy chybne bran jako kod, i presto, ze je to stale koment. To chce overit syntaxi.
Nebo zkus nastavit delsi Sleep, pripadne zkus zkopirovat a vlozit Sleep radky mezi jednotlive kroky.
(To vse za predpokladu, ze sekvence, jak jsem ji popsal, plati).
A nezapomen po kazde zmene script znovu nacist.

[ITCrowd]

Dá se to napsat ve vbs.

Kód: Vybrat vše

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad", 5, False

wscript.sleep 100
wshshell.sendkeys "%" '"%(F)"
wscript.sleep 1000
wshshell.sendkeys "{DOWN}"
wscript.sleep 1000
wshshell.sendkeys "{ENTER}"
wscript.sleep 1000
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "b"
wscript.sleep 100
wshshell.sendkeys "c"
wscript.sleep 100
wshshell.sendkeys "d"
wscript.sleep 100
wshshell.sendkeys "e"
wscript.sleep 100
wshshell.sendkeys "f"
wscript.sleep 100
wshshell.sendkeys " g"
wscript.sleep 100
wshshell.sendkeys vbCr
wscript.sleep 100
wshshell.sendkeys "a"
wscript.sleep 100
wshshell.sendkeys "b"
wscript.sleep 100
wshshell.sendkeys "c"
wscript.sleep 100

Uvedený kód otevře notepad, Menu, Nový soubor a do něj napíše znaky.
Pokud to nezvládneš sám, budu potřebovat všechny informace. Cesta rozhodně nebude C:\ProgramFiles\Aplikace.... už jen proto, že v Program Files je mezera.
Kód pro Alt+F je za apostrofem.
Kód zkopíruj do notepadu a ulož s příponou .vbs. Spustíš poklepáním. Zpoždění 1000ms je tam proto, abys viděl, co to dělá. Během práce skriptu se nesmí manipulovat s myší, ani s klávesnicí.

[Ferdinand]

Už jsem to nějak vyšpekuloval.
Takto mi to funguje přesně dle mých představ:

;skenování v Aplikaci
MsgBox, Skenování do vícestránkového souboru *.PDF
Run "C:\Program Files\Aplikace\Aplikace.exe"
Sleep, 50
WinActivate, Untitled - Aplikace
WinWaitActive, Untitled - Aplikace
Sleep, 50
Send, !F
Send, {Enter}
Sleep, 50
WinActivate, Aplikace
Sleep, 50
Send, {Down}
Sleep, 50
Send, {Enter}
Sleep, 50
WinActivate, Create PDF From Scanner - Aplikace
Sleep, 50
Send, {Enter}
Sleep, 50
WinActivate, Xerox Phaser 6121MFP-S TWAIN - Aplikace
WinWaitActive, Xerox Phaser 6121MFP-S TWAIN - Aplikace
return

Děkuji za inspiraci!

Dodatečně přidáno po 15 minutách 38 vteřinách:
To: ITCrowd
Wow... VBS neznám.
"Uvedený kód", jsem nakopíroval do Notepadu a uložil s příponou VBS.
Při pokusu o spuštění se prvně objevila hláška:
Načtení skriptu C:\Users\Já\Dokumenty\Bez názvu.vbs se nezdařilo (Přístup byl odepřen)
ale to bylo od antiviru, po povolení položky jsem to spustil znova - napsalo mi to v Notepadu toto:
abcdef g
abc
Co já s tím? To nemá nic společného s předmětem mého dotazu.