CODE:external(INT, "isupper", "isupper", "msvcrt.dll");
win w_KIB = window (-1, "Edit", window (-1, "Notepad", -1));
_sendkey("MoSiN022", w_KIB); // с русскими символами не работает
function _sendkey(string s, win w)
{
char c[999];
strcpy(#c[0], s);
sendlanguage("00000409", w);
for(int i=0; i<size(s); i++)
{
int result = isupper(formatci(c[i]));
if(result==1)
{
keydown(SHIFT);
sendkey(c[i], w);
keyup(SHIFT);
}
else sendkey(c[i], w);
}
} |