aview-app 1.0.2

package/aardio/lib/key/_.aardio

@@ -0,0 +1,303 @@
+import key.VK;
+namespace key;
+
+::MapVirtualKey := ::User32.api("MapVirtualKey","INT( INT uCode, INT uMapType)" ); 
+::keybd_event := ::User32.api("keybd_event","void(BYTE bVk,BYTE bScan,INT dwFlags,INT dwExtraInfo)");
+::GetAsyncKeyState := ::User32.api("GetAsyncKeyState","word(int vKey)" );
+::GetKeyState := ::User32.api("GetKeyState","word(int vKey)" );
+
+delayPress = 5;
+delayDown = 5;
+delayUp = 1;
+extraInfo = 0;
+
+getName = function(vk,ext,noLocation){
+	if(noLocation) vk = VK_NLR[vk] : vk;
+	return ( ext ? VK_EXT2NAME[vk]) : VK_NAME[vk] 
+} 
+
+removeLocation = function(vk){
+	return VK_NLR[vk] : vk;
+}
+
+v2scan = lambda(v,e)::MapVirtualKey(v,e?4:0);
+
+scan2v = lambda(s,e)::MapVirtualKey(s,e?3:1);
+
+getCode = function(kn){
+	var vk = (type(kn)==type.number)?kn:VK[..string.upper(kn)] : VK_MAPSHIFT[kn]
+	return (type(vk)==type.number)?vk:null,VK_EXT[vk] : VK_EXT2[kn] : 0
+} 
+
+send = function(str,tk=0){
+	var chars = ..string.split(str);
+	for(i=1;#chars){ 
+		var vk = getCode(chars[i]) 
+		if(vk){press(vk);}
+		else{sendString(chars[i])}
+		..thread.delay(tk);
+	}  
+}
+
+class INPUTDATA {
+	INT type = 1/*_INPUT_KEYBOARD*/;
+	struct  ki = {
+		WORD vk;
+		WORD scan;
+		INT flags;
+		INT time;
+		ADDR extraInfo;
+		INT reserve;
+		INT reserve2;
+	}
+}
+
+sendString = function(str,tk=0){
+	var d = INPUTDATA();
+	var cbSize = ..raw.sizeof(d);
+	var wstr = ..string.toUnicode(str); 
+	for(i=1;#wstr/2;1){    
+		d.ki.scan = wstr[i];
+		d.ki.flags = 4/*_KEYEVENTF_UNICODE*/;
+		::User32.SendInput(1,d, cbSize) ;
+		
+		d.ki.flags = 4/*_KEYEVENTF_UNICODE*/ | 2/*_KEYEVENTF_KEYUP*/;
+		::User32.SendInput(1,d, cbSize ) ;
+		..thread.delay(tk);
+	} 
+}
+
+char = function(n){
+	var d = INPUTDATA();
+	var cbSize = ..raw.sizeof(d);
+		
+	d.ki.scan = n;
+	d.ki.flags = 4/*_KEYEVENTF_UNICODE*/;
+	::User32.SendInput(1,d, cbSize) ;
+	
+	d.ki.flags = 4/*_KEYEVENTF_UNICODE*/ | 2/*_KEYEVENTF_KEYUP*/;
+	::User32.SendInput(1,d, cbSize ) ;
+}
+
+combine = function(...){
+	var vk,ext;
+	var args ={ ... }; 
+	
+	for(i=1;#args;1){
+		vk,ext = getCode(args[i]); 
+		if(!vk)error("输入的键名无效:" + args[i],2); 
+		::keybd_event( vk, ::MapVirtualKey(  vk ,0), ext | 8, extraInfo );  
+		..thread.delay(1)
+	}
+	
+	..thread.delay( delayDown );
+	
+	for(i=1;#args;1){
+		vk,ext = getCode(args[i]); 
+		::keybd_event( vk, ::MapVirtualKey(  vk ,0), ext |  0x2/*_KEYEVENTF_KEYUP*/ | 8, extraInfo );
+		..thread.delay(1)
+	}
+	..thread.delay( delayPress );
+}
+pressEx = combine
+
+press = function(...){
+	//模拟键盘按键  
+	var vk,ext;
+	var args ={ ... };
+	for(i=1;#args;1){ 
+		vk,ext = getCode(args[i]);  
+		if(!vk)error("输入的键名无效:" + args[i],2); 
+		::keybd_event( vk, ::MapVirtualKey(  vk ,0), ext | 8, extraInfo );
+		..thread.delay( delayDown );
+		
+		::keybd_event( vk, ::MapVirtualKey(  vk ,0), ext |  0x2/*_KEYEVENTF_KEYUP*/ | 8, extraInfo );
+		..thread.delay( delayPress );
+	}
+}
+
+repeat = function(k,rep=1,tk=0){
+	var vk,ext = getCode(k);
+	if(!vk)error("输入的键名无效:" + args[i],2);
+	tk :=  delayPress;
+	for(i=1;rep){
+		::keybd_event( vk, ::MapVirtualKey(  vk ,0), ext | 8, extraInfo );
+		..thread.delay( delayDown );
+		
+		::keybd_event( vk, ::MapVirtualKey(  vk ,0), ext |  0x2/*_KEYEVENTF_KEYUP*/ | 8, extraInfo );
+		..thread.delay( tk ); 
+	}
+		
+}
+
+
+down = function( ... ){
+	//按下按键
+	var vk,ext;
+	var args = { ... };
+	for( i=1; #args; 1 ){
+		vk,ext = getCode(args[i]); 
+		if(!vk)error("输入的键名无效:" + args[i],2); 
+		::keybd_event( vk, ::MapVirtualKey(  vk ,0), ext   | 8, extraInfo );
+		..thread.delay(1);
+	}
+	..thread.delay( delayDown );
+}
+
+up = function( ... ){
+	//弹起按键
+	var vk,ext;
+	var args = { ... }; 
+	for( i=1; #args; 1 ){
+		vk,ext = getCode(args[i]); 
+		if(!vk)error("输入的键名无效:" + args[i],2); 
+		::keybd_event( vk, ::MapVirtualKey(  vk ,0), ext |  0x2/*_KEYEVENTF_KEYUP*/ | 8, extraInfo );
+		..thread.delay(1);
+	}
+	..thread.delay( delayUp );
+}
+
+waitUp = function(k){
+	var vk = getCode(k); 
+	if(!vk)error("输入的键名无效:" + k,2); 
+	
+	//必须放开
+	while( ( ::GetAsyncKeyState( vk ) < 0) ){ 
+		..thread.delay(1); //就一直等待
+	}
+}
+
+
+wait = function( k ){ 
+	var vk = getCode(k); 
+	if(!vk)error("输入的键名无效:" + k,2); 
+	
+	var state =  ::GetAsyncKeyState(  vk );
+	
+	//必须放开
+	while( ( ::GetAsyncKeyState( vk ) < 0) ){ 
+		..thread.delay(1); //就一直等待
+	}
+	
+	//必须按下
+	while( ::GetAsyncKeyState(  vk ) >= 0 ){
+		..thread.delay(1);
+	}
+	
+	//必须再次放开
+	while( ( ::GetAsyncKeyState( vk ) < 0) ){
+		//如果没有放开
+		..thread.delay(1); //就一直等待
+	}
+}
+
+getState = function( k ){
+	var vk  = getCode(k); 
+	if(!vk)error("输入的键名无效:" + k,2); 
+	
+	var s = ::GetKeyState(vk);
+	if(vk== 0x14/*_VK_CAPITAL*/ || vk== 0x90/*_VK_NUMLOCK*/ || vk==0x91/*_VK_SCROLL*/ )
+		return ( s & 1 );
+	else
+		return ( s & 0x8000 == 0x8000),s & 1 == 1;	
+}
+	
+setState = function( state,... ){ 
+	var kbState = ..raw.buffer(256);
+	::User32.GetKeyboardState(kbState);
+	
+	var c;
+	var args = { ... }; 
+	for( i=1; #args; 1 ){
+		vk,ext = getCode(args[i]);
+		if(!vk) error("输入的键名无效:" + k,2);  
+		
+		c = (vk== 0x14/*_VK_CAPITAL*/ || vk== 0x90/*_VK_NUMLOCK*/ || vk==0x91/*_VK_SCROLL*/ ) 
+			? 1 : 2_10000000;
+			
+		if(state)
+			kbState[vk+1] |= c;
+		else
+			kbState[vk+1] &= ~c;
+	}
+	return ::User32.SetKeyboardState(kbState);
+}
+
+getStateX = function( k ){
+	var vk = getCode(k); 
+	if(!vk)error("输入的键名无效:" + k,2); 
+	
+	return ( ::GetAsyncKeyState(vk) & 0x8000 == 0x8000);	
+}
+
+isCapsLk = function(){
+	return getState(0x14/*_VK_CAPITAL*/ )
+}
+
+capsLk = function(lk=true){
+	if( ( ::GetKeyState( 0x14/*_VK_CAPITAL*/ ) & 0x01 ) != lk){
+		press( 0x14/*_VK_CAPITAL*/  );
+		..thread.delay( delayPress );
+	}
+}
+
+scrLk = function(lk=true){
+	if( ( ::GetKeyState( 0x91/*_VK_SCROLL*/ ) & 0x01 )!= lk  ){
+		press( 0x91/*_VK_SCROLL*/   );
+		..thread.delay( delayPress );
+	}
+}
+
+nmLk = function(lk=true){
+	if( ( ::GetKeyState( 0x90/*_VK_NUMLOCK*/) & 0x01 )!= lk  ){
+		press( 0x90/*_VK_NUMLOCK*/  );
+		..thread.delay( delayPress );
+	}
+}
+
+block = function(blockIt=true){
+	::User32.BlockInput(blockIt);
+}
+	
+/**intellisense(key)  
+v2scan(__) = 参数@1指定的键盘虚拟码转换为扫描码\n如果参数@2为 true，则返回扫描码区分左手键右手键
+scan2v(__) = 参数@1指定的键盘扫描码转换为虚拟码\n如果参数@2为 true，则返回虚拟码区分左手键右手键
+extraInfo = 发送消息的自定义附加值\n该值会传入键盘钩子的extraInfo参数
+char(__/*字符编码*/) = 直接用编码发送字符,例:\nkey.char(65)
+repeat(.(键名或键码,重复次数) = 重复发送指定的击键\n参数可以是键名字,或者按键的虚拟码(_VK前缀常量)
+repeat(.(键名或键码,重复次数,间隔毫秒) = 重复发送指定的击键\n参数可以是键名字,或者按键的虚拟码(_VK前缀常量)
+sendString("__/*字符串*/") = 发送字符串,支持中英文字符串,\n此函数不受输入法影响直接发送字符
+sendString("__/*字符串*/",100) =  发送字符串,支持中英文字符串\n并在每次按键添加指定的延时(以毫秒为单位),\n此函数不受输入法影响直接发送字符
+send( = 发送键名串指定的按键,\n发送按键而非字符串,不区分双字符键,\n发送字符串请改用 key.sendString 函数
+send(.("键名串",延时) = 发送键名串指定的按键\n每个键名都只能使用单个字符,\n此函数发送按键而不是发送字符串,\n键名串包含双字符键上任一字符发送的是相同按键而非对应字符,\n如果打开了输入法,则由输入法确定输入的字符, \n单纯发送字符串请使用 key.sendString 函数（不受输入法影响）\n可选用参数@2指定每次按键之间的延时（以毫秒为单位）
+getName(.(vk,ext,noLocation) = 返回虚拟键码对应的键名,\n除参数@vk以外，其他参数为可选参数\n如果@ext为true，允许返回扩展键名，主要指小键盘的回车键\n如果参数@noLocation为true，返回键名不区分左右控制键
+removeLocation(__) =  对传入的虚拟键码，移除左右控制键的差别,\n返回转换后的虚拟键码，例如_VK_LCTRL转换_VK_为CTRL
+getCode("__") = 返回虚拟键码、是否扩展键
+combine("CTRL","__") = 发送组合热键,参数个数不限.\n参数可以是键名字,或者按键的虚拟码(_VK前缀常量)
+press(__) = 发送按键,参数个数不限\n参数可以是键名字,或者按键的虚拟码(_VK前缀常量)
+down(__) = 发送键按下指令,参数个数不限\n参数可以是键名字,或者按键的虚拟码(_VK前缀常量)
+up(__) = 发送键弹起指令,参数个数不限\n参数可以是键名字,或者按键的虚拟码(_VK前缀常量)
+wait(__) = 等待指定按键\n参数可以是键名字,或者按键的虚拟码(_VK前缀常量
+waitUp(__) = 等待一个按下的键放开\n参数可以是键名字,或者按键的虚拟码(_VK前缀常量
+getStateX(__) = 返回指定物理按键的按下弹起状态，\n忽略键盘映射，可用于非UI线程，\n该函数不能检测按键开关状态(nmlk,scrlk,capslk)
+getState(__) = 自当前线程消息队列中检测指定按键的是否按下，\n仅可用于UI线程，即使线徎或进程不是前台焦点，函数仍然可以工作，\n对于NumLk,CapsLk,ScrLk返回按键的开关状态
+setState(true,__/*键名或键码*/) = 设置一个或多个键为按下状态\nNumLk,CapsLk,ScrLk等键则置为开启状态\n该函数仅影响当前输入队列,外部线程应先调用 winex.attach 共享输入状态
+setState(false,__/*键名或键码*/)  = 设置一个或多个键为松开状态\nNumLk,CapsLk,ScrLk等键则置为关闭状态
+isCapsLk() = 判断Caps Lock键是否打开大写状态
+nmLk() = 打开Num Lock(数字键盘功能切换)
+nmLk() = 关闭Num Lock(数字键盘功能切换)
+scrLk() = 打开Scroll Lock(翻页键功能切换)
+scrLk(false) = 关闭Scroll Lock(翻页键功能切换)
+capsLk() = 打开Caps Lock,切找到大写状态
+capsLk(false) = 关闭Caps Lock,切换到小写状态
+block() = 锁定键盘鼠标
+block(false) = 解锁键盘鼠标
+delayPress = 更改每次击键并松开后的时间间隔,默认为5毫秒
+delayDown = 每次调用key.down函数的默认时间间隔,默认为5毫秒\n在调用press以及pressEx函数时,按下松开键之间也会按此设定延时
+delayUp = 每次调用key.up函数后的时间间隔,默认为1毫秒
+end intellisense**/
+
+/**intellisense(::)
+::GetKeyState(__) = 此 API 在标准库 win 或 key 中声明,\n参数@1使用数值指定虚拟键码,返回值为 16位数值,\n最高位表示指定按键是否按下,最低位表示 NumLk,CapsLk,ScrLk 是否按下\n用法请参考 key.getState 函数源码
+::GetAsyncKeyState(__) = 此 API 在标准库 win 或 key 中声明,\n参数@1使用数值指定虚拟键码,返回值为 16位数值,\n应当使用返回值与 0x8000 做位与运算取最高位,\n最高位表示指定按键是否按下\n用法请参考 key.getStateX 函数源码
+end intellisense**/

package/aardio/lib/key/hook.aardio

@@ -0,0 +1,76 @@
+//hook 键盘钩子
+import win;
+import key;
+ 
+var SetWindowsHookEx = ::User32.api("SetWindowsHookExW","pointer(int idHook,pointer lpfn, pointer hmod,INT dwThreadId)");
+var CallNextHookEx = ::User32.api("CallNextHookEx","int( POINTER hhk,int nCode,INT wParam,int lParam)");
+var UnhookWindowsHookEx = ::User32.api("UnhookWindowsHookEx","int(pointer hhk)");
+ 
+var WH_KEYBOARD_LL  = 13
+
+var KBDLLHOOKSTRUCT = class{
+    INT vkCode;
+    INT scanCode;
+    INT flags;
+    INT time;
+    INT extraInfo;
+}
+
+var LowLevelKeybdProc  = function( nCode, wParam, lParam){  
+  
+	if ( nCode == 0/*_HC_ACTION*/ ) {  
+		
+    	var ll = KBDLLHOOKSTRUCT();
+		ll = ..raw.convert(topointer(lParam),ll )
+ 	 
+		if( ( type(owner.proc) == type.function)  &&  (owner.proc(wParam,ll.vkCode,ll.scanCode
+			,ll.flags & 0x10/*_LLKHF_INJECTED*/, ll.flags,ll.time,ll.extraInfo) )  ){
+			 	return 1;
+		}
+	}
+  
+	return CallNextHookEx(owner._hhk, nCode, wParam, lParam);   
+}
+
+namespace key  
+	class hook{
+	ctor(){ 
+		this._proc_c = ..raw.tostdcall( LowLevelKeybdProc,"int(int nCode, INT wParam, int lParam)",this) 
+		this.hhk = SetWindowsHookEx(WH_KEYBOARD_LL,this._proc_c,_HINSTANSE,0);   
+		this._hhk = this.hhk;  
+   		..table.gc(this,"close"); 
+	}
+	
+	close  = function(){
+		if(this.hhk){  
+			UnhookWindowsHookEx(this.hhk);
+			this.hhk  = null;
+		}
+	}
+}
+
+/**intellisense()
+key.hook = 低级键盘钩子。\n注意钩子回调函数不要做耗时操作，\n耗时超过一秒或超过注册表限制的更小时间，\n系统会直接删除钩子，没有任何方法可以检查到删除操作。\n应当遵守规则避免滥用，\n一般不应使用 key.hook 实现快捷键、热键功能\n创建快捷键、热键参考:aardio范例->Windows窗口应用->快捷键
+key.hook() = 创建低级键盘钩子\n!stdKeyHook.
+!stdKeyHook.proc = @.proc = function(msg,vkcode,scancode,injected,flags,timeStamp,extraInfo){
+	if( injected ) return;//忽略模拟按键
+	 
+    var kn = key.getName( vkcode );
+    select(msg) {
+    	case 0x100/*_WM_KEYDOWN*/ ,0x104/*_WM_SYSKEYDOWN*/{
+    	    io.print("按下",kn)
+    	}
+    	case 0x101/*_WM_KEYUP*/,0x105/*_WM_SYSKEYUP*/{
+    	    io.print("弹起",kn)
+    	}  
+    }   
+    
+	__/*取消按键调用 return true;\n注意钩子回调函数不要做耗时操作\n耗时操作应改用线程或 winform.setTimeout 异步执行*/
+}
+!stdKeyHook.close() = 释放按键录制钩子
+_LLKHF_EXTENDED=@1/*_LLKHF_EXTENDED*/
+_LLKHF_INJECTED=@0x10/*_LLKHF_INJECTED*/
+_LLKHF_ALTDOWN=@0x20/*_LLKHF_ALTDOWN*/
+_LLKHF_UP=@0x80/*_LLKHF_UP*/
+end intellisense**/
+