vstupy:
- text, který se má opakovat (řetězec)
- počáteční zpoždění [sekundy]- čas, po který bude skript čekat, než se spustí - to abyste měli čas označit aplikaci, do které se bude text psát (číslo)
- zpoždění mezi psanými znaky [milisekundy] - prodleva mezi stisky kláves (číslo)
- počet opakování - kolikrát se má text napsat (číslo)
- prodleva mezi opakováními - čas mezi jednotlivými opakovanými psaními (číslo)
Otevřete si notepad a zkopírujte do něj text v Code. NE! WORD apod. Uložte s příponou .vbs. Spustit poklepáním. Po zadání parametrů klikněte na okno aplikace, ve které má psaní probíhat. Psát se do ní začně po uplynutí času počátečního zpoždění.
Kód: Vybrat vše
'************************************************
'* Skript simuluje psaní na klávesnici *
'* Volitelné parametry: *
'* - text - text, který se má psát *
'* - počáteční zpoždění - přepnutí do aplikace *
'* - zpoždění mezi psanými znaky *
'* - počet opakování *
'* - prodleva mezi opakováními *
'* *
'* Vytvořeno pro PC-HELP *
'* Etienn@Script v. 1.0 *
'************************************************
Option Explicit
Dim txt, lag, delay, repeat, prodleva, delka
Dim wshshell, i, k, pismeno
txt = InputBox("Zadej text")
lag = InputBox("Zadej prodlevu mezi znaky [ms]")
delay = InputBox("Zadej prodlevu při startu [s]")
repeat = InputBox("Zadej počet opakování")
prodleva = InputBox("Zadej prodlevu mezi opakováními [s]")
delka = Len(txt)
delay = delay * 1000
prodleva = prodleva * 1000
Set wshshell = wscript.CreateObject("WScript.Shell")
WScript.Sleep delay
For i = 1 To repeat
For k = 1 To delka
pismeno = Mid (txt, k, 1)
wshshell.sendkeys pismeno
WScript.Sleep lag
Next
wshshell.sendkeys vbCr
WScript.Sleep lag
WScript.Sleep prodleva
Next
WScript.Echo "Konec"
Set wshshell = Nothing
Vyzkoušejte si funkci třeba v notepadu nebo jiném editoru. Skript si nekontroluje správné zadání, pokud zadáte blbost, pravděpodobně skončí chybou. Konec práce skript oznámí hláškou "konec".
Občas je škoda, že tu není tlačítko poděkovat, takže alespoň zde, děkuji mnohokrát!
