VBScript: Porovnání verzí
Smazaný obsah Přidaný obsah
Přidána další ukázka, rozdělení, doplnění informací |
SendKeys |
||
Řádek 39:
<source lang="vb">
MsgBox "Hello, world!"
</source>
=== SendKeys ===
Metoda SendKeys vysílá sekvence znaků do aktivovaného okna (jako při psaní na klávesnici).
SendKeys nemusí fungovat ve všech programech, některé vyžadují skutečné stisky kláves.
Procedura, která po znacích vypíše text, mezi jednotlivými znaky počká požadovaný počet milisekund.
<source lang="vb">
Sub vypsatPoZnacich(text, zpozdeni)
Set shell = createobject("wscript.shell")
For i = 1 To Len(text)
Wscript.Sleep zpozdeni
shell.SendKeys Mid(text, i, 1)
Next
End Sub
</source>
Volání procedury:
<source lang="vb">
Call vypsatPoZnacich("Hello, World!", 250)
</source>
| |||