alias keysend {
var %#,%&
if ($1 == ALT) { var %# %# $+ % | tokenize 32 $2- }
if ($1 == CTRL) { var %# %# $+ ^ | tokenize 32 $2- }
if ($1 == SHIFT) { var %# %# $+ + | tokenize 32 $2- }
if ($1 == ALT) { var %# %# $+ % | tokenize 32 $2- }
if ($1 == CTRL) { var %# %# $+ ^ | tokenize 32 $2- }
if ($1 == SHIFT) { var %# %# $+ + | tokenize 32 $2- }
while ((!%&) || ($com(%&))) {
var %& = key- $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
}
.comopen %& WScript.Shell
if (!$comerr) var %z = $com(%&,SendKeys,3,bstr,%# $+ $1-)
.comclose %&
}