|
本帖最后由 mdyblog 于 2013-7-18 00:15 编辑
旧版PECMD 可以用
软键盘.旧.WCS(保内有):
@ENVI^ ForceLocal=1
SET ::WM_LBUTTONDOWN =0x0201
WIN1
_SUB WIN1,W289H249,软键盘,,,-,, -top
SET-def WID0=%&__WinID%
SET-def X=0
SET-def h=0
TIME -t:1 T1,1, CALL ReleaseFocus
ITEM ITEM2,L118T27W72H30,CTR+SHIFT, CALL DoIt VK_CONTROL_;VK_SHIFT_;VK_CONTROL^;VK_SHIFT^,
ITEM ITEMA,L19T72W28H30,a, CALL DoIt a
ITEM ITEMB,L59T72W28H30,b, CALL DoIt b
ITEM ITEMC,L99T72W28H30,c, CALL DoIt c
ITEM ITEMQUIT,L255T15W20H20,X, Kill \
CALL DoIt c
_END
_SUB DoIt
ReleaseFocus
SET-def _cmd=SEND %*
%&_cmd%
WAIT 50
_END
_SUB ReleaseFocus
SET-def h1=0
ENVI @WIN1.Visable=0
LOOP #%h1%=0,
{ CALL $ **ret:&h1 user32.dll,GetForegroundWindow
IFEX $0=%h1%, WAIT 1
}
ENVI @WIN1.Visable=1
IFEX $0=%h1%,! IFEX $%h1%=%&WID0%,! SET h=%h1%
IFEX $0=%h%,! CALL $ **ret:&&ret user32.dll,SetForegroundWindow,#%h%
_END
|
|