aview-app 1.0.2

package/aardio/lib/mouse/_.aardio

@@ -0,0 +1,359 @@
+import win; 
+namespace mouse;
+
+var function yToDy( y ){
+	return  ..math.ceil(   y * (65535 / ::User32.GetSystemMetrics(1/*_SM_CYSCREEN*/))  ) ;
+}
+
+var function xToDx( x ){
+	return  ..math.ceil( x * (65535 / ::User32.GetSystemMetrics(0/*_SM_CXSCREEN*/)) );
+} 
+
+class INPUTDATA{
+    INT type; 
+    union input = {
+        struct  mi = MOUSEINPUT(); 
+    };
+} 
+
+class INPUTDATA.MOUSEINPUT{
+    INT dx;
+    INT dy;
+    INT mouseData;
+    INT dwFlags;
+    INT time;
+    INT dwExtraInfo;
+} 
+extraInfo = 0;
+
+//处理鼠标事件( x坐标,y坐标,是否绝对坐标值,事件标志 )
+var send = function( x=0, y=0, abs , dwFlags = 0,mouseData = 0){
+    
+	if(!abs) { 
+		var pt = ::POINT() ;
+		::User32.GetCursorPos(pt);
+
+		x  = pt.x + x;
+		y = pt.y + y; 
+	}
+
+ 	var sendData = {
+		struct array[] = {}
+	} 
+	sendData.array[1] = INPUTDATA(); 
+    sendData.array[1].type = 0/*_INPUT_MOUSE*/;
+    
+    var input = sendData.array[1].input;
+    
+    if( ! mouseData ) { 
+		input.mi.dx  = xToDx(x)+1;
+		input.mi.dy = yToDy(y)+1;
+		input.mi.dwFlags =  0x1/*_MOUSEEVENTF_MOVE*/ | dwFlags | 0x8000/*_MOUSEEVENTF_ABSOLUTE*/;
+	}
+	else{ 
+    	input.mi.dwFlags = 0x800/*_MOUSEEVENTF_WHEEL*/
+    	input.mi.mouseData = mouseData;
+	}
+	input.mi.dwExtraInfo = extraInfo;
+	
+	::User32.SendInput(1,  sendData, ..raw.sizeof( sendData ) ) ;
+ }
+ 
+ var waitCmd = function( vkeyCode ){
+     
+ 	//必须放开
+	while( ( ::GetAsyncKeyState( vkeyCode ) < 0))  {
+		..thread.delay(1)
+	}
+	
+     //必须按下
+ 	while( ::GetAsyncKeyState( vkeyCode ) >= 0 ) {
+ 			..thread.delay(1)
+	}
+	
+	//必须再次放开
+	while( ( ::GetAsyncKeyState( vkeyCode ) < 0))  {
+		..thread.delay(1) //就一直等待
+	}
+  
+ }
+ 
+ var dbSpanTk = ::User32.GetDoubleClickTime() +  10;
+ var waitCmdDb = function(vk){
+     
+	if(dbSpanTk < 300)
+		dbSpanTk = 300;
+
+	var nTick ,nTick_new = 0 , 0; 
+	var pt ,pt_new  = ::POINT() ,::POINT()
+
+	while( true ) {
+		waitCmd( vk );
+		var nTick_new = ..time.tick();
+		if(( nTick_new - nTick )  < dbSpanTk ) {
+				break;
+		}
+			
+		nTick = nTick_new; 
+		..thread.delay(1);
+	}
+}
+
+delayDown = 5;
+delayUp = 1;
+delayDb =10;
+delayMove = 5
+delayClick = 10;
+
+var downDelay = function(){
+	..thread.delay( delayDown )
+}
+var upDelay = function(){
+	..thread.delay( delayUp )	
+}
+var dbDelay = function(){
+	..thread.delay( delayDb )	
+}
+var clickDelay = function(){
+	if( delayClick > delayUp )
+		..thread.delay( delayClick - delayUp )	
+}
+  
+
+getPos = function(){
+	var ptCurPos = ::POINT();
+	::User32.GetCursorPos(ptCurPos);
+	return ptCurPos.x,ptCurPos.y;
+}
+
+setPos = function( x=0, y=0 ){
+	::User32.SetCursorPos( x, y );
+}
+
+wait  = function(){
+	waitCmd( 1 );
+}
+	
+waitDb = function(){
+	waitCmdDb( 1 ); 
+}
+
+moveToWindow = function(x,y,hwnd,step,tk){
+	var x2,y2 = ..win.toScreen(hwnd,x:0,y:0)
+	return moveTo(x2,y2,true,step:8,tk:2);
+}
+
+moveTo = function(x2=0,y2=0,abs,step=8,tk=2)	{ 
+	if( x2[["_struct"]] ) x2,y2,abs = x2.left,x2.top,1;
+
+	var x1,y1 = getPos();
+	if(!abs){
+		x2 = x1 + x2;
+		y2 = y1 + y2;
+	}
+	var x,y;
+	var xx = x2-x1;
+	var yy = y2-y1;
+	var k;
+	if(..math.abs(xx) > ..math.abs(yy) ) {
+		if(x2<x1) 
+			step = -step;
+		k = yy / xx ; //计算斜率
+		for x=x1;x2;step {
+				y = k * (x - x1) + y1  
+				send( x,y, 1, 0x1/*_MOUSEEVENTF_MOVE*/ );
+				..thread.delay(tk)
+		} 
+	}
+	else {
+		if(y2<y1) 
+			step = -step;
+		k = xx / yy  //计算斜率
+		for y=y1;y2;step {
+				x = k * (y - y1) + x1  
+				send( x,y, 1, 0x1/*_MOUSEEVENTF_MOVE*/ );
+				..thread.delay(tk)
+		} 
+	} 
+	send( x2,y2, 1, 0x1/*_MOUSEEVENTF_MOVE*/ );
+	return x2,y2;
+} 
+
+drag = function(x2,y2,abs,step,tk){
+	down()
+	moveTo(x2,y2,abs,step,tk)
+	up()
+}
+
+move = function( x=0, y=0, abs ){
+	send( x, y, abs, 0x1/*_MOUSEEVENTF_MOVE*/ );
+	..thread.delay(delayMove);
+}
+
+down = function( x=0,y=0,abs ){
+	send( x, y, abs,0x2/*_MOUSEEVENTF_LEFTDOWN*/ );
+	downDelay();
+} 
+
+up = function( x=0,y=0,abs ){
+	send( x, y, abs,0x4/*_MOUSEEVENTF_LEFTUP*/ );
+	upDelay()
+}
+
+click = function( x=0,y=0,abs ){
+	down( x,y,abs);
+	up( x,y,abs);
+	clickDelay()
+}
+
+clickDb = function( x=0,y=0,abs ){
+	down( x,y,abs);
+	up( x,y,abs);
+	dbDelay()
+	down( x,y,abs);
+	up( x,y,abs);
+	clickDelay()
+}
+
+namespace mb begin
+	wait = function(){
+		waitCmd( 4 );
+	}
+	
+	waitDb = function(){
+		waitCmdDb( 4 ); 
+	}
+	
+	down = function(x=0,y=0,abs ){
+		send(x,y,abs, 0x20/*_MOUSEEVENTF_MIDDLEDOWN*/);
+		downDelay()
+	}
+		
+		
+	up = function(x=0,y=0,abs ){
+		send(x,y,abs, 0x40/*_MOUSEEVENTF_MIDDLEUP*/);
+		upDelay()
+	} 
+		
+	click = function( x=0,y=0,abs ){
+		down(x,y,abs);
+		up(x,y,abs);
+		clickDelay()
+	}
+	
+	
+	roll = function( x = -120 ){
+		send(,,,,x); 
+		clickDelay()
+	}
+end;
+
+namespace rb begin
+	wait = function(){
+		waitCmd( 2 );
+	}
+	
+	waitDb = function(){
+			waitCmdDb( 2 ); 
+	}
+	
+	down = function(x=0,y=0,abs ){
+    	send(x,y,abs, 0x8/*_MOUSEEVENTF_RIGHTDOWN*/);
+    	downDelay()
+	}
+		
+	up = function(x=0,y=0,abs ){
+    	send(x,y,abs, 0x10/*_MOUSEEVENTF_RIGHTUP*/);
+    	upDelay()
+	} 
+		
+	click = function(x=0,y=0,abs ){
+		down(x,y,abs);
+		up(x,y,abs);
+		clickDelay()
+	}
+		
+	clickDb = function(x=0,y=0,abs ){
+		down(x,y,abs);
+		up(x,y,abs);
+		dbDelay()
+		down(x,y,abs);
+		up(x,y,abs);
+		clickDelay()
+	}
+end;
+
+/*intellisense(mouse)
+extraInfo = 发送消息的自定义附加值\n该值会传入鼠标钩子的extraInfo参数
+delayDown = 鼠标键按下延时,默认为5毫秒;
+delayUp = 鼠标弹起延时,默认为1毫秒
+delayDb = 鼠标键双击间隔时间,默认为10毫秒;
+delayMove = move函数鼠标移动间隔时间,默认为5毫秒
+delayClick = 鼠标击键延时,默认为10毫妙
+getPos() = 返回鼠标当前坐标(x,y)
+setPos(.(x,y) = 设置鼠标位置
+move(.(x,y) = 按相对坐标移动
+move(.(x,y,true) = 按绝对坐标移动
+moveToWindow(.(x坐标,y坐标,窗口句柄,步进,延时) = 移动到指定窗口内部坐标,显示移动轨迹,\n步进,延时参数可省略
+moveTo(.(x,y) = 按相对坐标移动,显示移动轨迹
+moveTo(.(x,y,true) = 按绝对坐标移动,显示移动轨迹 
+moveTo(.(x坐标,y坐标,是否绝对坐标,步进,延时) = 移动显示移动轨迹
+moveTo(.(rect) = 移动到参数 @rect 指定的屏幕位置。\n@rect 必须是 ::RECT 结构体
+drag(.(x,y) = 按相对坐标拖动鼠标
+drag(.(x,y,true) = 按绝对坐标拖动鼠标
+drag(.(x,y,true,步进) = 按绝对坐标拖动鼠标
+drag(.(x,y,true,步进,延时) = 按绝对坐标拖动鼠标
+down() = 左键按下
+up() = 左键弹起
+down(x,y) = 左键在相对坐标按下
+up(x,y) = 左键在相对坐标弹起
+down(x,y,true) = 左键在绝对坐标按下
+up(x,y,true) = 左键在绝对坐标弹起
+click() = 左键单击 
+click(x,y) = 左键在相对坐标单击 
+click(x,y,true) = 左键在绝对坐标单击
+clickDb() = 左键双击 
+clickDb(x,y) = 左键在相对坐标双击 
+clickDb(x,y,true) = 左键在绝对坐标双击
+wait() = 等待左键单击
+waitDb() = 等待左键双击
+end intellisense*/
+
+/*intellisense(mouse.mb)
+move(.(x,y) = 按相对坐标移动
+move(.(x,y,true) = 按绝对坐标移动
+down() = 中键按下
+up() = 中键弹起
+down(x,y) = 中键在相对坐标按下
+up(x,y) = 中键在相对坐标弹起
+down(x,y,true) = 中键在绝对坐标按下
+up(x,y,true) = 中键在绝对坐标弹起
+click() = 中键单击 
+click(x,y) = 中键在相对坐标单击 
+click(x,y,true) = 中键在绝对坐标单击
+clickDb() = 中键双击 
+clickDb(x,y) = 中键在相对坐标双击 
+clickDb(x,y,true) = 中键在绝对坐标双击
+roll(-10__) = 参数为负数向下滚,正数向上滚动
+wait() = 等待中键单击
+waitDb() = 等待中键双击
+end intellisense*/
+
+/*intellisense(mouse.rb)
+move(.(x,y) = 按相对坐标移动
+move(.(x,y,true) = 按绝对坐标移动
+down() = 右键按下
+up() = 右键弹起
+down(x,y) = 右键在相对坐标按下
+up(x,y) = 右键在相对坐标弹起
+down(x,y,true) = 右键在绝对坐标按下
+up(x,y,true) = 右键在绝对坐标弹起
+click() = 右键单击 
+click(x,y) = 右键在相对坐标单击 
+click(x,y,true) = 右键在绝对坐标单击
+clickDb() = 右键双击 
+clickDb(x,y) = 右键在相对坐标双击 
+clickDb(x,y,true) = 右键在绝对坐标双击
+wait() = 等待中键单击
+waitDb() = 等待中键双击
+end intellisense*/

package/aardio/lib/mouse/cursor.aardio

@@ -0,0 +1,43 @@
+//cursor 光标
+namespace mouse.cursor;
+
+var name2cursor = {
+	appStarting = ::User32.LoadCursorP(,32650/*_IDC_APPSTARTING*/);
+	arrow = ::User32.LoadCursorP(,32512/*_IDC_ARROW*/);
+	cross = ::User32.LoadCursorP(,32515/*_IDC_CROSS*/);
+	help = ::User32.LoadCursorP(,32651/*_IDC_HELP*/);
+	iBeam = ::User32.LoadCursorP(,32513/*_IDC_IBEAM*/);
+	icon = ::User32.LoadCursorP(,32641/*_IDC_ICON*/);
+	No = ::User32.LoadCursorP(,32648/*_IDC_NO*/);
+	size = ::User32.LoadCursorP(,32640/*_IDC_SIZE*/);
+	sizeAll = ::User32.LoadCursorP(,32646/*_IDC_SIZEALL*/);
+	sizeNesw = ::User32.LoadCursorP(,32643/*_IDC_SIZENESW*/);
+	sizeNs = ::User32.LoadCursorP(,32645/*_IDC_SIZENS*/);
+	sizeNwse = ::User32.LoadCursorP(,32642/*_IDC_SIZENWSE*/);
+	sizeWe = ::User32.LoadCursorP(,32644/*_IDC_SIZEWE*/);
+	upArrow = ::User32.LoadCursorP(,32516/*_IDC_UPARROW*/);
+	wait = ::User32.LoadCursorP(,32514/*_IDC_WAIT*/);	
+}
+
+..table.assign(self,name2cursor);
+
+var cursor2name = {}
+for(k,p in name2cursor) cursor2name[p] = k;
+
+getInfo = function(){
+	var info = {INT cbSize = 20; INT flags; pointer hCursor;struct pt = ::POINT() };
+	if(::User32.GetCursorInfo(info)) return info;
+}
+
+getName = function(){
+	var info = {INT cbSize = 20; INT flags; pointer hCursor;struct pt = ::POINT() }
+	if(::User32.GetCursorInfo(info) ){
+	 	return cursor2name[info.hCursor];
+	}
+}
+
+/**intellisense()
+mouse.cursor = 鼠标指针光标（Cursor）\n操作界面光标请改用 win.cur
+mouse.cursor.getInfo() = 返回全局鼠标指针光标信息
+mouse.cursor.getName() = 返回全局鼠标指针光标预定义名称，\n非预定义光标返回 null
+end intellisense**/

package/aardio/lib/mouse/draw.aardio

@@ -0,0 +1,314 @@
+//draw 鼠标画线 
+//鼠标画线//在屏幕上使用鼠标画线
+namespace mouse.draw 
+import mouse
+import math;
+
+//返回屏幕宽度,高度
+function getScreenWidthHeight(){
+	return ::User32.GetSystemMetrics(0x0/*_SM_CXSCREEN*/), ::User32.GetSystemMetrics(0x1/*_SM_CYSCREEN*/ ) 
+}
+
+/*
+画线回调函数
+
+参数:
+ x,y : 当前坐标
+
+返回值: 为true表示继续,返回false表示停止画线
+*/
+move = function(x,y){ 
+	error("使用mouse.draw函数库以前,必须重写mouse.draw.move函数",2);
+	return false;
+} 
+ 
+ 
+/*
+画直线
+
+参数:
+  x1,y1 起始坐标
+  x2,y2 结束坐标  
+*/
+line = function(x1,y1,x2,y2)	{
+	var step = 1;
+	var x,y;
+	var xx = x2-x1;
+	var yy = y2-y1;
+	var k;
+	if(math.abs(xx) > math.abs(yy) ) {
+			if(x2<x1) 
+				step = -1;
+			k = yy / xx ; //计算斜率
+			for x=x1;x2;step {
+					y = k * (x - x1) + y1  
+					if(! move(x,y) ) 
+						return false;;
+			} 
+	}
+	else {
+			if(y2<y1)//坐标如果是反过来的
+				step = -1;
+			k = xx / yy  //计算斜率
+			for y=y1;y2;step {
+					x = k * (y - y1) + x1  
+					if(! move(x,y) ) 
+						return false;;
+			} 
+	} 
+	
+	return true; 	
+} 
+
+ 
+/*
+画矩形
+
+参数:
+	x1,y1 起始坐标
+	x2,y2 结束坐标  
+*/
+rect = function(x1,y1,x2,y2){
+	if ! line(x1,y1,x2,y1) return false;;
+	if ! line(x2,y1,x2,y2) return false;;
+	if ! line(x2,y2,x1,y2) return false;;
+	if ! line(x1,y2,x1,y1) return false;;
+	return true;
+} 
+
+
+/*
+画正弦曲线 
+
+参数:
+	w,h   宽高
+*/
+sin = function(w,h){ 
+    if(!w or !h)
+    	w,h = getScreenWidthHeight();
+    	
+	var y = 1;
+	for x=1;w;1 {		
+			y = 300 - math.sin(x/30) * 100;
+			if(! move(x,y) ) 
+				return false;;
+	}
+	return true;
+} 
+
+
+/*
+画渐开线 
+
+参数:
+	fx,fy   宽高,参数可以忽略(默认为屏幕范围)
+*/
+involute = function(fx,fy){
+	if(! ( fx and fy) ) {
+			fx,fy = getScreenWidthHeight()
+	}
+	
+	var x0,n,y0 = fx/2,1,fy/2;
+	
+	while( n<88 ) { 
+			x = x0+4*( math.cos(n)+n*math.sin(n) );
+			y = y0+3*( math.sin(n)-n*math.cos(n) );
+			if(! move(x,y) ) 
+				return false;;
+			n = n+.2;
+	} 
+	
+	var x1,n,y1 = fx/2,88,fy/2;
+	while( n>1 ) {
+			x = x1+4*( math.cos(n)+n*math.sin(n) );
+			y = y1+3*( math.sin(n)-n*math.cos(n) );
+			if(! move(x,y) ) 
+				return false;;
+			n = n-.2
+	}
+	
+	return true;
+} 
+
+
+/*
+画渐开线2 
+
+参数:
+	x,y   基圆圆心
+	R  	基圆半径
+	n  	渐开线周波数
+
+*/
+involute2 = function(x,y,R,n) {
+	for a=0;2 * 360 * n;2   { 
+			x = x + R * (math.cos(a * math.pi / 360) + (a * math.pi / 360) * math.sin(a * math.pi / 360));
+			y = y + R * (math.sin(a * math.pi / 360) - (a * math.pi / 360) * math.cos(a * math.pi / 360));
+			if(! move(x,y) ) return false;;
+	}
+	
+	return true;
+} 
+
+
+/*
+画方形仿渐开线 
+
+参数:
+	step   步长
+	n  		起始正方形边长,指定中间忽略不扫描的正方形边长(默认等于20)
+	x1,y1   扫描范围坐标,参数可省略(默认等于 1 X 1)
+	x2,y2   扫描范围坐标2,参数可省略(默认等于屏幕大小)
+*/
+rectInvolute = function(step,n,x1,y1,x2,y2){
+	step = step or 1;
+	step = math.abs(step);
+	step = 0 - math.abs(step);
+	n = n or 20;
+	
+	x1 = x1 or 1;
+	y1 = y1 or 1; 
+
+
+	if(! ( x2 and y2) ) {
+			x2,y2 = getScreenWidthHeight()
+	}
+	
+	var fx,fy = 1,1;
+	if(x1<x2){
+			fx = x1;x1=x2;x2=fx;
+	}
+	if(y1<y2){
+			fx = y1;y1=y2;y2=fx;
+	}
+	
+	fx = x1; fy = y1;
+	x1 = fx/2;y1= fy/2;
+	 
+	
+	var x,y = 1,1;
+	for x=x1-n/2;x2;step   {	
+			y = (y2 - y1) / (x2 - x1) * (x - x1) + y1;
+			if ! rect( x,y,x1+(x1-x),y1+(y1-y) ) return false;;
+	}
+	
+	return true;
+} 
+
+
+/*
+画方形仿渐开线2 
+
+参数:
+	x,y   坐标
+	m   扫描范围
+	n   扫描速度,可省略(默认等于5)
+	k   扫描密度,可省略(默认等于50)
+		
+示例:
+	rectInvolute2(322,384,300);
+*/
+function rectInvolute2(x,y,m,n=5,k=50) {	 
+	var l = 0; //控制扫描范围   
+				
+	var tx = {};
+	var ty={};
+	for i=1;5;1   { 
+			..table.insert(tx,x );
+			..table.insert(ty,y )	
+		}
+		
+	while( l<m ) { 
+			tx[1] = tx[1]-k; tx[2] = tx[2]+k;
+			tx[3] = tx[3]+k; tx[4] = tx[4]-k;
+			ty[1] = ty[1]-k; ty[2] = ty[2]-k;
+			ty[3] = ty[3]+k; ty[4] = ty[4]+k;
+	
+			for i=tx[1];tx[2];n   { 
+					if(! move(i ,ty[1]) ) return false;; 
+			}
+																												
+			for i=ty[2];ty[3];n   { 
+					if(! move(tx[2] ,i) ) return false;;
+			}
+																															
+			for i=tx[3];tx[4];0-n   { 
+					if(! move(i ,ty[3]) ) return false;;
+					mouse.move( i ,ty[3],true   ); 
+			}
+																															
+			for i=ty[4];ty[1];0-n   { 
+					if(! move(tx[4] ,i) ) return false;; 
+			}
+			
+		l = l+50
+	} 
+} 
+
+
+
+
+/*
+画多边形 
+
+参数:
+	x,y 中心所在的屏幕坐标(像素)
+	r   多边形外接圆半径(像素)
+	n   多边形的边数
+*/
+function poly(x,y,r,n){
+	var i;
+	var theta=math.pi;
+	var x1=x;
+	var y1=y-r;
+	var x2,y2;
+	for i=1;n;1   {
+			theta=theta - (2*math.pi/n);
+			x2=x+r*math.sin(theta);
+			y2=y+r*math.cos(theta);
+			if ! line(x1,y1,x2,y2) return false;;
+			x1=x2;
+			y1=y2;
+	}
+} 
+
+
+/*
+画椭圆 
+
+参数:
+  x,y 中心所在的屏幕坐标(像素)
+  a,b 长轴和短轴的长度(像素)
+  precision   边缘精细度
+*/
+function ellipse(x,y,a,b,precision){
+	var i;
+	var iMax=2*math.pi;
+	var step=2*math.pi/(precision*math.sqrt(a*b)*4.5); 
+
+
+	for i=1;iMax;step   { 
+			if(! move(x+a*math.cos(i),y+b*math.sin(i)) ) 
+				return false;;
+	}
+}	
+
+
+/**intellisense(mouse.draw)
+move = @.move = function(x,y){ 
+ 
+	mouse.move(x,y,true)
+	sleep(10) 
+	
+	return true;/*继续画线*/
+} 
+ellipse(.(x,y,a,b,precision) = x,y 中心所在的屏幕坐标(像素)\na,b 长轴和短轴的长度(像素)\nprecision   边缘精细度
+poly(.(x,y,r,n)= x,y 中心所在的屏幕坐标(像素)\nr   多边形外接圆半径(像素)\nn   多边形的边数
+rectInvolute2(.(x,y,m,n=5,k=50) = x,y   坐标\nm   扫描范围\nn   扫描速度,可省略(默认等于5)\nk   扫描密度,可省略(默认等于50)
+rectInvolute(.(step,n,x1,y1,x2,y2)=画方形仿渐开线 \nstep   步长\nn  		起始正方形边长,指定中间忽略不扫描的正方形边长(默认等于20)\nx1,y1   扫描范围坐标,参数可省略(默认等于 1 X 1)\nx2,y2   扫描范围坐标2,参数可省略(默认等于屏幕大小)
+involute2(.(x,y,R,n)=画渐开线2 \nx,y   基圆圆心\nR  	基圆半径\nn  	渐开线周波数
+involute(.(fx,fy)=画渐开线\nfx,fy   宽高,参数可以忽略(默认为屏幕范围)
+sin(.(w,h)=画正弦曲线\nw,h 宽,高,可省略(默认取屏幕范围)
+rect(.(x1,y1,x2,y2)=画矩形\nx1,y1 起始坐标\nx2,y2结束坐标
+line(.(x1,y1,x2,y2)=画直线\nx1,y1 起始坐标\nx2,y2结束坐标
+end intellisense**/