aview-app 1.0.2

package/aardio/lib/sys/baseBoard.aardio

@@ -0,0 +1,78 @@
+//baseBoard 主板信息
+import com.wmi;
+import win.reg;
+
+namespace sys.baseBoard;
+
+var wmi = ..com.wmi();
+var boards = wmi.InstancesOf("Win32_BaseBoard")
+
+for index,obj in ..com.each(boards) {
+	if(!obj.HostingBoard) continue;
+	
+	caption = obj.Caption;
+	configOptions = obj.ConfigOptions;
+	creationClassName = obj.CreationClassName;
+	description = obj.Description;
+	manufacturer = obj.Manufacturer;
+	name = obj.Name;
+	product = obj.Product;
+	serialNumber = obj.SerialNumber;
+	sku = obj.SKU;
+	status = obj.Status;
+	tag = obj.Tag;
+	version = obj.Version;
+	break;
+} 
+
+var reg = ..win.reg("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS");
+if(reg){
+	bios = reg.queryValueTable()
+	reg.close();	
+}
+
+getFullName = function(){
+	var p = product;
+	if(!#p) p = bios.BaseBoardProduct;
+	if(!#p) p = bios.SystemProductName;
+	var m = manufacturer;
+	if(!#m) m = bios.BaseBoardManufacturer;
+	if(!#m) m = bios.SystemManufacturer;
+	
+	if(#p && #m) {
+		m = ..string.match(m,"\s*(\S+)")
+		if(!m || ..string.indexOf(p,m) ) return p;
+		return m + " " + p;
+	}
+	return p : "Base Board"; 
+}
+
+/**intellisense(sys.baseBoard)
+name= 名称
+caption=简单说明
+description=描述
+configOption=这是一个表示主板配置的字符串数组
+creationClassName=实例化的第一个 WMI 类名
+manufacturer=厂商
+otherIdentifyingInfo=其他数据 
+partNumber=编。
+product=制造商定义的主板编号
+serialNumber=序列号
+status=对象的当前状态 
+tag=主板的唯一标识符。
+version=版本
+bios.BIOSReleaseDate=BIOS发布日期
+bios.BIOSVendor=BIOS厂商名
+bios.BIOSVersion=BIOS版本代号
+bios.BaseBoardManufacturer=主板厂商
+bios.BaseBoardProduct=主板产品名称
+bios.BaseBoardVersion=主板版本
+bios.BiosMajorRelease=BIOS主版本号
+bios.BiosMinorRelease=BIOS副版本号
+bios.SystemFamily=产品系列
+bios.SystemManufacturer=系统厂商名
+bios.SystemProductName=系统产品名称
+bios.SystemSKU=系统库存编号
+bios.SystemVersion=系统版本
+getFullName() = 返回主板完整名称
+end intellisense**/

package/aardio/lib/sys/comPort.aardio

@@ -0,0 +1,56 @@
+//comPort 串口
+import sys.device;
+import sys.volume;
+
+namespace sys.comPort;
+
+list = function(){
+	var devInfo = ..sys.device("{86E0D1E0-8089-11D0-9CE4-08003E301F73}"
+	,,0x10/*_DIGCF_DEVICEINTERFACE*/|2/*_DIGCF_PRESENT*/);
+	
+	var result = {}
+	for( index,portName,friendlyName,deviceDesc,classGuid in devInfo.each( 
+    	"PortName",  0xC/*_SPDRP_FRIENDLYNAME*/,  0/*_SPDRP_DEVICEDESC*/,  8/*_SPDRP_CLASSGUID*/ ) 
+		){
+			var len,deviceName = ..sys.volume.QueryDosDevice(portName,5000,5000);
+			..table.push(result,{
+				index = index;
+				portName = portName;
+				friendlyName = friendlyName;
+				deviceName = len ? ..string.str(deviceName) : null;
+				description = deviceDesc;
+				classGuid = classGuid;
+				@{_tostring = portName }
+			} )
+	}
+	
+	devInfo.destroy();
+	return result;
+}
+
+find = function(kw){
+	var portInfos = list();
+	if(portInfos){
+		for(i,pi in portInfos){
+			if( (pi.description ? ..string.find(pi.description,kw) ) 
+					|| (pi.friendlyName ? ..string.find(pi.friendlyName,kw))){
+				return pi;
+			} 
+		}
+	}
+}
+
+/**intellisense(sys.comPort)
+list() = 获取串口列表
+find(.(关键字) = 在 COM 端口描述以及设备友好名称中搜索指定的关键字,\n返回找到的 COM 端口信息
+find() = !sysComPort.
+end intellisense**/
+
+/**intellisense(!sysComPort)
+portName = 端口名，例如 COM1, COM2
+friendlyName =  设备友好名称
+deviceName = 设备名
+description = 设备描述
+classGuid = 设备 GUID
+index = 在list函数返回的串口数组中的索引值
+end intellisense**/

package/aardio/lib/sys/cp210x.aardio

@@ -0,0 +1,54 @@
+//cp210x 驱动
+import sys.installed;
+import zlib.installer;
+import win.reg;
+	
+namespace sys.cp210x;
+
+isInstalled = function(){
+	return ..sys.installed.find("@(silabser) Ports");
+}
+
+install = function(){
+	var tempDir = ..io.tmpname("CP210x")
+	var dir = ..zlib.installer("CP210x 驱动"
+		,"https://www.silabs.com/documents/public/software/CP210x_Windows_Drivers.zip"
+		,"/S /Q /SE /SW ",tempDir,"CP210xVCPInstaller_x86.exe","CP210xVCPInstaller_x64.exe")
+		
+	::Kernel32.MoveFileEx(tempDir,null,0x4/*_MOVEFILE_DELAY_UNTIL_REBOOT*/)  
+	return dir && isInstalled(); 	
+}
+
+require = function(){
+	var ret = isInstalled();
+	if(ret){ return ret; }
+	return install();
+}
+
+ignoreHardwareSerialNumber = function(vid,pid){
+	var name = ..string.concat("IgnoreHWSerNum",vid:"10C4",pid:"EA60")
+	var reg = ..win.reg("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\UsbFlags\");
+	var r = reg.queryValue(name)
+	
+	if(r && r[1]==1){
+		reg.close();
+		return true;
+	}
+	
+	if(!..process.regAs(
+		`add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\UsbFlags" /v `+name+` /t REG_BINARY /d 01 /f`
+		) ) return false;
+	
+	var r = reg.queryValue(name)
+	reg.close();
+	
+	return r && r[1]==1;	
+}
+
+/**intellisense()
+sys.cp210x = CP210X USB 转串口驱动
+sys.cp210x.isInstalled() = 检测并返回 CP210X 驱动是否安装,成功返回驱动路径
+sys.cp210x.install() = 下载并重装CP210X 驱动,成功返回驱动路径
+sys.cp210x.require() = 如果未安装 CP210X 驱动则下载并安装此驱动,\n成功返回驱动路径
+sys.cp210x.ignoreHardwareSerialNumber(.(vid,pid) = 禁止设备串口号不断递增,\n成功返回true
+end intellisense**/

package/aardio/lib/sys/cpu.aardio

@@ -0,0 +1,151 @@
+//cpu 处理器信息
+import process;
+import com.wmi;
+ 
+namespace sys.cpu;
+ 
+var app = ..process();
+
+var __cpuId = app.asmCdecl(
+	"void(INT id,struct &cpuid)",
+	'\x55', //push ebp
+	'\x89\xE5', //mov ebp,esp
+	'\x81\xEC\xC0\x00\x00\x00', //sub esp,0C0h
+	'\x53', //push ebx
+	'\x51', //push ecx
+	'\x52', //push edx
+	'\x56', //push esi
+	'\x57', //push edi
+	'\x8B\x45\x08', //mov eax,[ebp+8] ;
+	'\x8B\x75\x0C', //mov esi,[ebp+12] ;
+	'\x0F\xA2', //cpuid
+	'\x89\x06', //mov [esi],eax
+	'\x89\x5E\x04', //mov [esi+4],ebx
+	'\x89\x4E\x08', //mov [esi+8],ecx
+	'\x89\x56\x0C', //mov [esi+12],edx
+	'\x5F', //pop edi
+	'\x5E', //pop esi
+	'\x5A', //pop edx
+	'\x59', //pop ecx
+	'\x5B', //pop ebx
+	'\x89\xEC', //mov esp, ebp
+	'\x5D', //pop ebp
+	'\xC3', //ret
+)
+
+getInfo = function(idx=1,info){
+	if( ! info["_struct"] || ..raw.sizeof(info) != 16 ){
+		error("参数@2 错误",2)
+	}
+	return __cpuId( idx,info); 
+}
+
+getVender = function(){
+	var cpuInfo = __cpuId( 0,{ INT eax;BYTE ebx[4];BYTE ecx[4];BYTE edx[4] })
+	return ..string.str( ..string.concat( cpuInfo.ebx,cpuInfo.edx,cpuInfo.ecx ) ),eax/*Max Standard function*/;
+} 
+
+getMaxExtFunction = function(){
+	return __cpuId(0x80000000,{ INT eax;INT ebx;INT ecx;INT edx }).eax 
+} 
+
+getBrand = function(){
+
+	if( getMaxExtFunction() < 0x80000004 )
+		return;
+	 
+	return ..string.str( ..string.concat( 
+		__cpuId( 0x80000002,{ BYTE str[16] }).str,
+		__cpuId( 0x80000003,{ BYTE str[16] }).str,
+		__cpuId( 0x80000004,{ BYTE str[16] }).str
+	) )
+}
+
+var __rdtsc = app.asmCdecl(
+	"void(pointer pSleep,INT &eax)",//请指定函数原型
+	'\x55', //push ebp
+	'\x89\xE5', //mov ebp,esp
+	'\x53', //push ebx
+	'\x51', //push ecx
+	'\x52', //push edx
+	'\x56', //push esi
+	'\x57', //push edi
+
+	'\x8B\x5D\x0C', //mov ebx,[ebp+12]
+	'\x31\xC9', //xor ecx,ecx
+ 
+	'\x6A\x32', //push 32h;
+	'\xFF\x55\x08', //call [ebp+8] ;Sleep(50);
+
+	'\x31\xC0', //xor eax,eax
+	'\x0F\x31', //rdtsc
+	'\x89\x03', //mov [ebx] ,eax
+	'\x89\xD1', //mov ecx ,edx
+ 
+	'\x68\xF4\x01\x00\x00', //push 1F4h;
+	'\xFF\x55\x08', //call [ebp+8] ;Sleep(500);
+
+	'\x31\xC0', //xor eax,eax
+	'\x0F\x31', //rdtsc
+	'\x2B\x03', //sub eax,[ebx]
+	'\x19\xCA', //sbb edx,ecx
+	'\x89\x03', //mov [ebx], eax
+	'\x89\xD1', //mov ecx,edx
+	
+	'\x5F', //pop edi
+	'\x5E', //pop esi
+	'\x5A', //pop edx
+	'\x59', //pop ecx
+	'\x5B', //pop ebx
+	'\x89\xEC', //mov esp, ebp
+	'\x5D', //pop ebp
+	'\xC3', //ret
+)
+
+getFrequence = function(format){
+	var prio = app.getPriorityClass();
+	app.setPriorityClass(0x80/*_HIGH_PRIORITY_CLASS*/);
+    var eax = __rdtsc( ::Kernel32.api( "Sleep", "void()")  ,0);
+    app.setPriorityClass(prio);
+	var v = eax /(1000*500);
+	if(format) v = ..math.round(v/1000,1) + " GHz";
+	return v;
+}
+
+getInfoByWmi = function(){
+	return ..table.assign({
+		NumberOfCores = 1;
+		NumberOfLogicalProcessors = 1;
+	},..com.wmi.getProperties("win32_processor") );
+}
+
+/**intellisense(sys.cpu)
+getMaxExtFunction() = CPU的扩展信息最大查询索引
+getInfo = @.getInfo(1__/*查询索引*/,{ INT eax;INT ebx;INT ecx;INT edx } )
+getVender() = 返回制造商信息,以及CPU基础信息最大查询索引\nIntel会返回"GenuineIntel",\nAMD会返回"AuthenticAMD"
+getBrand() = 返回CPU商标信息 
+getFrequence() = 返回表示 CPU 频率的数值,以 MHz 为单位
+getFrequence(true) = 返回表示 CPU 频率的友好格式的字符串,\n单位: GHz 小数位数：1
+getInfo() = !sys_cpu_info.
+getInfoByWmi() = 使用 WMI 接口类 win32_processor 查询处理器信息\n参考 https://docs.microsoft.com/en-us/windows/win32/cimwin32prov/win32-processor \n!sys_cpu_wmi_info.
+end intellisense**/
+
+/**intellisense(!sys_cpu_info)
+eax = 整数
+ebx = 整数
+ecx = 整数
+edx = 整数
+end intellisense**/
+
+/**intellisense(!sys_cpu_wmi_info)
+DeviceID = 设备 ID
+Name = 设备名
+NumberOfCores = CPU 核心数
+NumberOfLogicalProcessors = CPU 逻辑核心数
+MaxClockSpeed = CPU 最大速度,单位 MHz,\n该值除 1000 可换算为单位 GHz
+CurrentClockSpeed = CPU 当前速度,单位 MHz,\n该值除 1000 可换算为单位 GHz\n使用 math.round 可以限定小数位数
+AddressWidth =  CPU 位宽,值为 32 或 64
+Manufacturer =  生产厂商,例如"GenuineIntel"
+Architecture =  指令集架构,x86 值为 0,x64 值为 9
+? = 参考 https://docs.microsoft.com/en-us/windows/win32/cimwin32prov/win32-processor
+end intellisense**/

package/aardio/lib/sys/ddcci.aardio

@@ -0,0 +1,198 @@
+//ddcci 控制显示器
+import sys.monitor;
+
+namespace sys;
+
+class ddcci{
+	ctor(hpm,description){
+		this.$hpm = hpm;
+		this.description = description;
+		
+		this.capabilities = {};
+		var r,size = GetCapabilitiesStringLength(this.$hpm,0)
+		if(r && size){
+			var buf = ..raw.buffer(size);
+			if( CapabilitiesRequestAndCapabilitiesReply(this.$hpm,buf,size) ){
+				var str = ..string.match(buf,"\((.+)\)")
+				for name,value in ..string.gmatch(str,"(\w+)(%())") { 
+					value = ..string.match(value,"\((.+)\)")
+					this.capabilities[name] = value;
+				}
+				
+				var vcp = this.capabilities.vcp;
+				if(vcp){
+					var nvcp = {}
+					for name,value in ..string.gmatch(vcp,"(\x+)(<([^\)]+)>?)") { 
+						if(value){
+							 value =  ..string.map(value,"\x+",lambda(v) tonumber(v,16));
+						}
+						else value = {};
+						nvcp[tonumber(name,16)]= value;
+					}
+					
+					this.capabilities.vcpTable = nvcp;
+				}
+			}
+		}
+		
+		..table.gc(this,"destroy");
+	};
+	hasFeature = function(vcpCode){
+		return this.capabilities[["vcpTable"]][[vcpCode]];
+	};
+	getFeature = function(vcpCode){
+		var ok,t,curr,max = GetVCPFeatureAndVCPFeatureReply(this.$hpm, vcpCode, 0,0,0);
+		if(ok) return curr,max,t ;
+	};
+	setFeature = function(vcpCode,value){
+		return SetVCPFeature(this.$hpm,vcpCode,value);
+	};
+	getBrightness = function(){
+		var r,min,cur,max = GetMonitorBrightness(this.$hpm,0,0,0)
+		if(r) return cur,min,max;
+	};
+	setBrightness = function(value){
+		return SetMonitorBrightness(this.$hpm,value)
+	};
+	getContrast = function(){
+		var r,min,cur,max = GetMonitorContrast(this.$hpm,0,0,0)
+		if(r) return cur,min,max;
+	};
+	setContrast = function(value){
+		return SetMonitorContrast(this.$hpm,value)
+	};
+	getColorTemperature  = function(){
+		var r,cur = GetMonitorColorTemperature(this.$hpm,0)
+		if(r) return cur;
+	};
+	setColorTemperature  = function(value){
+		return SetMonitorColorTemperature(this.$hpm,value)
+	};
+	reset = function(){
+		return RestoreMonitorFactoryDefaults(this.$hpm);//return this.setFeature(4,1);
+	};	
+	resetColor = function(){
+		return RestoreMonitorFactoryColorDefaults(this.$hpm);
+	};
+	getInputSource = function(){
+		return (this.getFeature(0x60));
+	}; 
+	setInputSource = function(v){
+		return this.setFeature(0x60,v);
+	}; 
+	getPowerMode = function(){
+		return (this.getFeature(0xD6)); 
+	}; 
+	setPowerMode = function(v){
+		return this.setFeature(0xD6,v);
+	}; 
+	save = function(){
+		return this.SaveCurrentMonitorSettings(this.$hpm);
+	};
+	destroy = function(){
+		if(this.$hpm){
+			return DestroyPhysicalMonitor(this.$hpm);
+			this.$hpm = null;
+		}
+	};
+	@{_topointer = lambda()this.$hp;}
+}
+
+namespace ddcci{
+	::Dxva2 := ..raw.loadDll("Dxva2.dll")
+	DestroyPhysicalMonitor = ::Dxva2.api("DestroyPhysicalMonitor","bool(addr hpm)");
+	
+	GetCapabilitiesStringLength = ::Dxva2.api("GetCapabilitiesStringLength","bool(addr hpm,INT& len)");
+	CapabilitiesRequestAndCapabilitiesReply = ::Dxva2.api("CapabilitiesRequestAndCapabilitiesReply","bool(addr hpm,ptr str,INT len)");
+	GetMonitorCapabilities = ::Dxva2.api("GetMonitorCapabilities","bool(addr hpm,INT& cap,INT& temp)");
+	GetMonitorBrightness = ::Dxva2.api("GetMonitorBrightness","bool(addr hpm,INT& min,INT& cur,INT& max)");
+	SetMonitorBrightness = ::Dxva2.api("SetMonitorBrightness","bool(addr hpm,INT cur)");
+	GetMonitorContrast = ::Dxva2.api("GetMonitorContrast","bool(addr hpm,INT& min,INT& cur,INT& max)");
+	SetMonitorContrast = ::Dxva2.api("SetMonitorContrast","bool(addr hpm,INT cur)");
+	GetMonitorColorTemperature = ::Dxva2.api("GetMonitorColorTemperature","bool(addr hpm,INT& value)"); 
+	SetMonitorColorTemperature = ::Dxva2.api("SetMonitorColorTemperature","bool(addr hpm,INT value)"); 
+	RestoreMonitorFactoryColorDefaults = ::Dxva2.api("RestoreMonitorFactoryColorDefaults","bool(addr hpm)"); 
+	RestoreMonitorFactoryDefaults = ::Dxva2.api("RestoreMonitorFactoryDefaults","bool(addr hpm)");  
+	SaveCurrentMonitorSettings = ::Dxva2.api("SaveCurrentMonitorSettings","bool(addr hpm)");
+	GetVCPFeatureAndVCPFeatureReply = ::Dxva2.api("GetVCPFeatureAndVCPFeatureReply","bool(addr hpm,BYTE vcpCode,INT&type,INT& current,INT &max)"); 
+	SetVCPFeature = ::Dxva2.api("SetVCPFeature","bool(addr hpm,BYTE vcpCode,INT newValue)"); 
+	GetNumberOfPhysicalMonitorsFromHMONITOR = ::Dxva2.api("GetNumberOfPhysicalMonitorsFromHMONITOR","bool(ptr hm,INT& value)"); 
+	GetPhysicalMonitorsFromHMONITOR = ::Dxva2.api("GetPhysicalMonitorsFromHMONITOR","bool(ptr hm,INT len,struct &items)"); 
+	
+	getPhysicalMonitors = function(hMonitor){
+		
+		if(!hMonitor){
+			var ret = {}
+			for( hMonitor,monitorInfo in ..sys.monitor.eachInfo() ){
+				var items = getPhysicalMonitors(hMonitor)
+				if(#items) ..table.append(ret,items);
+			}
+			
+			return ret; 
+		}
+		
+		var r,length = GetNumberOfPhysicalMonitorsFromHMONITOR(hMonitor,0)
+		if(!r && size ){ return {} }
+		
+		var r,physicalMonitor = GetPhysicalMonitorsFromHMONITOR(hMonitor,length,{struct items[] = {
+			{
+				addr index;
+				WORD description[128/*PHYSICAL_MONITOR_DESCRIPTION_SIZE*/];
+			};
+			length = length;
+		}})
+		
+		var ret = {}
+		for i,item in ..table.eachIndex(physicalMonitor.items){ 
+			ret[i] = ..sys.ddcci(item.index,item.description)
+		}
+		
+		return ret; 
+	}
+	
+	each = function(hMonitor){
+		var items = getPhysicalMonitors(hMonitor);
+		
+		var i,item;
+		return function(){
+			i,item = ..table.next(items,i);
+			return item;
+		}
+	}
+}
+
+/**intellisense()
+sys.ddcci = DDC/CI（Display Data Channel Command Interface）\n用于控制显示器，不是所有显示器都支持 DDC/CI
+sys.ddcci( = 创建显示器控制对象
+sys.ddcci(.(hpm,description) = 创建显示器控制对象，\n@hpm 为物理显示器句柄,\n@description 为显示器描述，可选参数
+sys.ddcci() = !stdSysDdcci.
+end intellisense**/
+
+/**intellisense(sys.ddcci)
+getPhysicalMonitors( = 返回所有物理显示器句柄数组
+getPhysicalMonitors(.() = 返回所有物理显示器句柄数组
+getPhysicalMonitors(.(hMonitor) = 返回 @hMonitor 指定句柄的显示器指向的物理显示器句柄数组,\n注意参数 @hMonitor 指定显示器句柄，并非物理显示器句柄
+each() = @for ddcci in sys.ddcci.each() {\n	__/*遍历所有物理显示器，\nddcci 为控制该显示器的 sys.ddcci 对象*/\n}\n!stdSysDdcci.
+end intellisense**/
+
+/**intellisense(!stdSysDdcci)
+description = 显示器描述
+hasFeature(.(vcpCode) = 是否支持 @vcpCode 指定的控制代码\n支持则返回包含可设置值的数组,数组可能为空,\n否则返回 null
+getFeature(.(vcpCode) = 读取设置值\n@vcpCode 为控制代码
+setFeature(.(vcpCode,value) = 写入设置值\n@vcpCode 为控制代码,@value 为新的设置值
+getBrightness(.() = 获取亮度，返回3个值：\n当前亮度，最小值，最大值
+setBrightness(.(value) = 设置亮度
+getContrast() = 获取对比度，返回3个值：\n当前亮度，最小值，最大值
+setContrast(.(value) = 设置对比度
+getColorTemperature() = 获取色温
+setColorTemperature(.(value) = 设置色温
+getInputSource() = 获取输入源
+setInputSource(.(inputSource) = 修改输入源,\n@inputSource 用数值指定输入源
+getPowerMode() = 获取电源状态
+setPowerMode(.(mode) = 修改电源状态,\n@mode 为1表示打开屏幕，\n@mode 为 5 或 4 表示关闭屏幕
+capabilities = 返回描述显示器支持功能的表对象
+reset() = 重置设置
+resetColor() = 重置颜色设置
+save() = 保存设置
+destroy() = 释放对象，\n如果没有调用此函数，则回收对象时自动调用。
+end intellisense**/