Вот
WAITMS(800)
LCLICK(300,15) // клик по окну для фокуса
WAITMS(100)
FOR($a=0,$a<10) // количество строк
KEYDOWN (#CTRL)
WAITMS (40)
KEYPRESS(#C)
KEYUP (#CTRL)
WAITMS (50)
$str = FROMCLIP()
IF(STRLEN(STRFILTER($str, "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890", 1)) = 0)
LOGWRITE ("Пусто")
ELSE
IF(STRLEN(STRFILTER($str, "1234567890", 1)) > 0)
LOGWRITE ("Цифры")
ELSE
IF(STRLEN(STRFILTER($str, "1234567890", 1)) = 0)
LOGWRITE ("Буквы")
END_IF
END_IF
END_IF
KEYPRESS(#ESC)
WAITMS (40)
KEYPRESS(#DOWN)
WAITMS (40)
END_CYC
HALT