aview-app 1.0.2

package/aardio/lib/process/token.aardio

@@ -0,0 +1,122 @@
+//token 权限令牌
+import process;
+namespace process;
+
+class token{
+	ctor( processHandle,access ){
+		if(!processHandle[["token"]]){
+			if(!processHandle) processHandle = ::Kernel32.GetCurrentProcessP();
+
+			if(type.isString(processHandle)) {
+				processHandle = ..process.find(processHandle); 
+				if(!processHandle) return;
+			}
+
+			this.processHandle = processHandle;
+			
+			var token = {ptr handle}
+			if(::Advapi32.OpenProcessToken(processHandle,access : 8/*_TOKEN_QUERY*/,token)){
+				this.tokenHandle = token.handle
+			}
+			else {
+				return null;
+			} 
+			
+			..table.gc(this,"close");
+		}
+		else{
+			this.tokenHandle = processHandle[["token"]]
+			if(processHandle[["gc"]]) ..table.gc(this,"close");
+		}
+	};
+	duplicate = function(level=2/*SecurityImpersonation*/){
+		var newToken = {ptr handle}
+		if( ::Advapi32.DuplicateToken(this.tokenHandle,level,newToken) ) return newToken.handle;
+	};
+	info = function(infClass,info){ 
+		if ( this.tokenHandle ) { 
+			var size ={INT v } 
+			var res = ::Advapi32.GetTokenInformation(this.tokenHandle,infClass,null,0,size); 
+			if(!res && !size.v ){  
+				return false
+			} 
+		
+			var buf = ..raw.buffer(size.v); 
+			var ok = ::Advapi32.GetTokenInformation(this.tokenHandle,infClass,buf,#buf,size);
+			if(ok){
+				..raw.convert(buf,info); 
+				info["($safe-buffer)"] = buf; 
+				return info;
+			} 
+		}
+	};
+	user = function(){ 
+		var info,buf = this.info(1/*_TokenUser*/,{ ptr sid;INT attributes;})
+		//避免buf无引用时释放内存( info.sid实际上是指向buf去掉头部8个字节的内存 )
+		var size = ::Advapi32.GetLengthSid(info.sid);
+		info.sid = ..raw.buffer(size,info.sid);
+		return info;
+	};
+	sid = function(){
+		return this.user()[["sid"]]; 
+	};
+	elevation = function(){ 
+		return _WINXP || !! this.info(20/*TokenElevation*/,{ INT TokenIsElevated })[["TokenIsElevated"]];
+	};
+	close = function(){
+		if(this.tokenHandle){
+			..raw.closehandle(this.tokenHandle)
+			this.tokenHandle = null;
+		} 
+	};
+	@{_topointer = lambda() this.tokenHandle}  
+}
+
+namespace token{
+
+    ::Advapi32 := ..raw.loadDll("Advapi32.dll");
+    
+	sid = function(process){
+		var token = ..process.token(process);
+		var sid = token.sid();
+		token.close();
+		return sid;
+	} 
+}
+ 
+
+/**intellisense()
+process.token(.(process,access) = 打开进程令牌,\n@process 参数指定 process 进程对象、句柄、或已执行文件名，省略时取当前进程句柄,\naccess指定访问权限,省略时默认值为 _TOKEN_QUERY\n返回对象在回收时默认自动调用close函数
+process.token(.({token=tokenHandle}) = 绑定参数表中 tokenHandle 属性指定的进程令牌句柄,\n可选用 gc 属性指定是否允许对象回收时自动释放 token
+process.token() = !processToken.
+end intellisense**/
+
+/**intellisense(process.token)
+sid(.(process) = 返回运行进程的用户 SID，返回值为 buffer 类型指针，\n@process 参数指定进程对象、句柄、或已执行文件名，省略时取当前进程句柄
+end intellisense**/
+
+/**intellisense(!processToken)
+user() = 获取进程令牌的用户信息,\n返回TokenUser结构体，返回值不需要手动释放
+sid() = 返回进程的用户 SID，返回值为 buffer 类型指针，\n标准库 sys.acl 提供操作转换sid的函数，\n例如可用 sys.acl.sidToUserName 将 SID 转换为用户名
+info(.(infClass,info) = 获取令牌信息\n@infClass参数使用枚举数值标明要获取的类型,\n@info参数为要获取的结构体,\n成功返回info参数
+elevation() = 当前进程是否使用管理员权限启动
+duplicate(.(level,tokenType,access,tokenAttributes) = 复制 token 并返回 token 句柄，\n打开进程时请指定 4/*_TOKEN_IMPERSONATE*/|2/*_TOKEN_DUPLICATE*/ 权限，\n所有参数可选，用法请参考源码
+close() = 关闭对象
+end intellisense**/
+
+ /**intellisense()
+_TOKEN_ADJUST_SESSIONID=@0x100/*_TOKEN_ADJUST_SESSIONID*/
+_TOKEN_SOURCE_LENGTH=@8/*_TOKEN_SOURCE_LENGTH*/
+_TOKEN_ADJUST_DEFAULT=@0x80/*_TOKEN_ADJUST_DEFAULT*/
+_TOKEN_ADJUST_GROUPS=@0x40/*_TOKEN_ADJUST_GROUPS*/
+_TOKEN_ADJUST_PRIVILEGES=@0x20/*_TOKEN_ADJUST_PRIVILEGES*/
+_TOKEN_ALL_ACCESS=@0xF00FF/*_TOKEN_ALL_ACCESS*/
+_TOKEN_ASSIGN_PRIMARY=@1/*_TOKEN_ASSIGN_PRIMARY*/
+_TOKEN_DUPLICATE=@2/*_TOKEN_DUPLICATE*/
+_TOKEN_EXECUTE=@0x20000/*_TOKEN_EXECUTE*/
+_TOKEN_IMPERSONATE=@4/*_TOKEN_IMPERSONATE*/
+_TOKEN_QUERY=@8/*_TOKEN_QUERY*/
+_TOKEN_QUERY_SOURCE=@0x10/*_TOKEN_QUERY_SOURCE*/
+_TOKEN_READ=@0x20008/*_TOKEN_READ*/
+_TOKEN_WRITE=@0x200E0/*_TOKEN_WRITE*/
+end intellisense**/

package/aardio/lib/process/usage.aardio

@@ -0,0 +1,74 @@
+//usage 内存CPU占用率
+import sys.info;
+import process;
+
+namespace process;
+
+class usage{
+	ctor(pid,parameters,...){
+		if( type(pid) == type.number  && type(parameters)!=type.number )
+			parameters = 0x400/*_PROCESS_QUERY_INFORMATION*/;
+			
+		this = ..process(pid,parameters,...);
+		if(!this) return;
+	};
+	cpu = function(){
+		var tick = ..time.tick()
+		var kernelTime = size64();
+		var userTime = size64();
+		if(!GetProcessTimes(this.handle,0,0,kernelTime,userTime))return;
+
+		var cpuTime = (kernelTime/10000 + userTime/10000)/numberOfProcessors;
+		if(this.lastCpuTick){
+			this.cpuUsage = tonumber(cpuTime - this.lastCpuTime) / tonumber( tick - this.lastCpuTick) * 100;
+		}
+		
+		this.lastCpuTick = tick;
+		this.lastCpuTime = cpuTime;
+		
+		return this.cpuUsage : 0;
+	};
+	mem = function(){
+		var memCounter = {
+    		INT cb = 40;
+    		INT PageFaultCount;
+    		INT PeakWorkingSetSize;
+    		INT WorkingSetSize;
+    		INT QuotaPeakPagedPoolUsage;
+    		INT QuotaPagedPoolUsage;
+    		INT QuotaPeakNonPagedPoolUsage;
+    		INT QuotaNonPagedPoolUsage;
+    		INT PagefileUsage; 
+    		INT PeakPagefileUsage; 
+    		INT PrivateUsage;
+		}
+		if ::Psapi.GetProcessMemoryInfoB(this.handle,memCounter,44){
+			return memCounter;		
+		}
+	};
+	memString = function(){
+		var counter = this.mem();
+		if(counter)return size64(counter.WorkingSetSize).format(),size64(counter.PrivateUsage:counter.PagefileUsage).format()
+	};
+	cpuString = function(){
+		return ..string.format("%d%%",this.cpu());
+	}; 
+}
+
+namespace usage{
+    GetProcessTimes = ::Kernel32.api("GetProcessTimes","bool(pointer hProcess, LONG& creation, LONG& exit, LONG& kernel, LONG& user)" )
+    numberOfProcessors = ..sys.info().dwNumberOfProcessors;
+    size64 = ..math.size64;
+}
+
+/**intellisense()
+process.usage = 进程CPU、内存占用率\n[MSDN文档]( https://docs.microsoft.com/en-us/previous-versions/windows/desktop/legacy/aa965225%28v%3Dvs.85%29)\n[推荐工具:Process Explorer](https://docs.microsoft.com/en-us/sysinternals/downloads/process-explorer)
+process.usage(.(进程ID) = 创建进程CPU、内存占用率获取工具对象,\n参数用法与process完全一样,\n失败返回null
+process.usage() = !processUsage.
+!processUsage.cpu() = 返回表示cpu占用率百分比的数值,\n首次调用返回0
+!processUsage.cpuString() = 返回表示cpu占用率百分比的字符串,\n首次调用返回值无效
+!processUsage.mem() = 返回表示内存占用率的memCounter对象
+!processUsage.memString() = 返回2个表示内存占用的字符串，\n斜杠前为内存工作集大小（Working Set Size），\n后者为提交内存大小（Commit Size）
+!processUsage.stillActive() = 进程是否在运行
+!processUsage.free() = 释放对象
+end intellisense**/

package/aardio/lib/process/vswhere.aardio

@@ -0,0 +1,63 @@
+//vswhere 工具
+import process.popen;
+import web.json;
+
+namespace process;
+
+class vswhere{
+	ctor( cmdline,... ){{
+		var vswhere = ..io.getSpecial(0x26/*_CSIDL_PROGRAM_FILES*/,"\Microsoft Visual Studio\Installer\vswhere.exe");
+		if(!..io.exist(vswhere)){
+			return null,`Could not find "vswhere.exe"`;
+		}
+		
+		if(!cmdline) cmdline = "-latest"
+		var prcs,err = type(...)==type.string ? ..process.popen( vswhere,'-format', 'json', '-utf8',cmdline,...) 
+				: ..process.popen( vswhere," -format json -utf8 " + cmdline );
+				
+		if(!prcs) return null,err;
+		
+		prcs.codepage = 65001;
+		var str = prcs.read(-1);
+		prcs.close();
+		
+		if(str){
+			return ..web.json.tryParse(str);
+		} 
+	}}; 
+}
+
+namespace vswhere{
+	
+	dev = function(workDir){
+		var vswhere,err  = ..process.vswhere("-prerelease -latest -property installationPath")
+		var path = vswhere[[1]][["installationPath"]]
+		if(path){
+			path = ..io.joinpath(path,"Common7\Tools\vsdevcmd.bat")
+			if(..io.exist(path)){
+				return ..process.execute("cmd.exe",{"/k",path},,,workDir);
+			}
+		} 
+	}
+	
+	
+	pdev = function(workDir){
+		var vswhere,err  = ..process.vswhere("-prerelease -latest -property installationPath")
+		var path = vswhere[[1]][["installationPath"]]
+		if(path){
+			path = ..io.joinpath(path,"Common7\Tools\vsdevcmd.bat")
+			if(..io.exist(path)){
+				return ..process.popen("cmd.exe",{"/k",path},{
+					workDir = workDir;
+				});
+			}
+		} 
+	}
+}
+
+/**intellisense()
+process.vswhere = 用于获取 VS2017 以及之后版本的安装信息\n[官网示例]( https://github.com/microsoft/vswhere/wiki/Examples ) \n检测 VC++ 运行时请使用库 sys.vc14
+process.vswhere(__) = 获取 VS2017 以及之后版本的安装信息,返回表对象,\n参数可以是一个名多个字符串类型的命令行参数,\n只有一个参数时可以包含空格,不会添加双引号或转义符,\n如果有多个参数,则包含空格的参数按命令行参数规则添加双引号,\n不指定参数时默认为"-latest"
+process.vswhere.dev() = 打开 VS 开发人员命令行窗口进程,\n可选在参数中指定工作目录\n!process.
+process.vswhere.pdev() = 打开 VS 开发人员命令行管道进程,\n可选在参数中指定工作目录\n!process_popen.
+end intellisense**/

package/aardio/lib/process/wmi.aardio

@@ -0,0 +1,65 @@
+//wmi 进程对象
+import com.wmi;
+namespace process;
+
+class wmi{
+	ctor(pid){
+		if(!pid) pid = ::Kernel32.GetCurrentProcessId();
+		if(!type(pid) == type.number ) error("参数@1未指定正确的进程ID",2); 
+		return  ..com.wmi.getProperties("SELECT * FROM Win32_Process WHERE Handle = @id",,{id=pid});	
+	}; 
+}
+
+/**intellisense()
+process.wmi(__) = 参数@1指定进程ID，返回WMI进程对象\n省略参数则默认取当前进程 ID
+process.wmi() = !processWmi.
+end intellisense**/
+
+//https://docs.microsoft.com/zh-cn/windows/desktop/CIMWin32Prov/win32-process
+/**intellisense(!processWmi)
+CreationClassName = CreationClassName 
+Caption = Caption
+CommandLine = CommandLine 
+CreationDate = CreationDate
+CSCreationClassName = CSCreationClassName
+CSName = CSName
+Description = Description
+ExecutablePath = ExecutablePath
+ExecutionState = ExecutionState
+Handle = Handle
+HandleCount = HandleCount
+InstallDate = InstallDate
+KernelModeTime = KernelModeTime
+MaximumWorkingSetSize = MaximumWorkingSetSize
+MinimumWorkingSetSize = MinimumWorkingSetSize
+Name = Name
+OSCreationClassName = OSCreationClassName
+OSName = OSName
+OtherOperationCount = OtherOperationCount
+OtherTransferCount = OtherTransferCount
+PageFaults = PageFaults
+PageFileUsage = PageFileUsage
+ParentProcessId = ParentProcessId
+PeakPageFileUsage = PeakPageFileUsage
+PeakVirtualSize = PeakVirtualSize 
+PeakWorkingSetSize = PeakWorkingSetSize
+Priority = Priority
+PrivatePageCount = PrivatePageCount
+ProcessId = ProcessId
+QuotaNonPagedPoolUsage = QuotaNonPagedPoolUsage
+QuotaPagedPoolUsage = QuotaPagedPoolUsage
+QuotaPeakNonPagedPoolUsage = QuotaPeakNonPagedPoolUsage 
+QuotaPeakPagedPoolUsage = QuotaPeakPagedPoolUsage
+ReadOperationCount = ReadOperationCount
+ReadTransferCount = ReadTransferCount
+SessionId = SessionId
+Status = Status
+TerminationDate = TerminationDate
+ThreadCount = ThreadCount
+UserModeTime = UserModeTime
+VirtualSize = VirtualSize
+WindowsVersion = WindowsVersion
+WorkingSetSize = WorkingSetSize
+WriteOperationCount = WriteOperationCount 
+WriteTransferCount = WriteTransferCount
+end intellisense**/

package/aardio/lib/process/wow64.aardio

@@ -0,0 +1,34 @@
+//wow64 禁用重定向
+import process;
+import fsys.wow64;
+
+namespace process;
+
+class wow64{
+	ctor(...){
+		return ..fsys.wow64.disableRedirection(..process,...)
+	};
+}
+
+wow64.execute = ..fsys.wow64.disableRedirectionEx( ..process.execute );
+wow64.executeWait = ..fsys.wow64.disableRedirectionEx(..process.executeWait);
+wow64.executeEx = ..fsys.wow64.disableRedirectionEx( ..process.execute );    
+wow64.explore = ..fsys.wow64.disableRedirectionEx( ..process.explore );  
+
+/**intellisense()
+process.wow64 = 用于禁用 64 位重定向并运行目标程序,\n可在64位系统运行64位程序，在32位下兼容运行64位程序
+process.wow64( = 运行执行文件或关联文档。\n如果省略所有参数则打开当前进程\n失败则返回 null,错误信息,错误代码\n成功返回进程对象
+process.wow64(.(进程ID,权限) =  打开指定ID的进程,\n参数@2可选用一个数值指定请求的权限，\n不指定权限时默认尝试 _PROCESS_ALL_ACCESS 权限,\n如果失败则尝试以 _SYNCHRONIZE 权限打开进程,\n_SYNCHRONIZE权限打开时只能使用 wait,waitOne函数,\n非管理权限进程创建管理权限进程时只能以_SYNCHRONIZE权限打开进程
+process.wow64(.(进程句柄,负责释放进程句柄) =  使用指定的进程句柄创建进程对象,\n参数@2为可选参数,默认为true
+process.wow64(.( ,系统命令行) = 如果省略第一个参数,并仅指定命令行,则作为系统命令行启动运行
+process.wow64(.(执行文件,命令行参数,更多命令行参数,->->->) = 命令行参数可以是一个数组、一个或多个字符串参数,\n\n数组或多个命令行参数调用 process.joinArguments 合并,\n不在双引号内、且包含空白或需要转义的参数转义处理后首尾添加双引号,\n命令参数最大长度为8191/0x1FFFF个字符
+process.wow64(.(执行文件,命令行参数,STARTUPINFO) = 命令行参数可以是字符串或由多个字符串组成的数组,\n数组参数调用 process.joinArguments 合并,\n不在双引号内、且包含空白或需要转义的参数转义处理后首尾添加双引号,\nSTARTUPINFO参数为process.STARTUPINFO 结构体,可选参数\n如果该参数是普通table对象.将自动创建为STARTUPINFO结构体
+process.wow64() = !process.
+process.wow64.executeEx( = 禁用 64 位重定向并运行目标程序
+process.wow64.executeEx(.("__", parameters="",operation="open",showCmd,workDir,hwnd,fmask) = 运行应用程序,返回SHELLEXECUTEINFO结构体,\n参数@1指定要运行的执行程序路径,\n参数@2可用一个字符串或字符串数组指定启动参数,\n其他参数详细用法请参考本函数源码以及WINAPI中ShellExecuteEx函数用法\n除参数@1以外所有参数可选
+process.wow64.execute( = 禁用 64 位重定向并运行目标程序,成功返回进程ID,\n参数详细用法请参考本函数源码以及WINAPI中ShellExecuteEx函数用法\n运行UWP应用请使用com.shell.activateApp函数
+process.wow64.execute(.("__", parameters="",operation="open",showCmd,workDir,hwnd) = 参数@1为程序路径或系统命 令\n参数@parameters 可以是字符串或字符串数组，用于指定启动参数,\n参数@operation 为启动模式\n参数@showCmd使用_SW_前缀常量与win.show参数用法相同\n参数@workdir为工作目录\n参数@hwnd 为父窗口句柄
+process.wow64.executeWait( = 禁用 64 位重定向并运行目标程序
+process.wow64.executeWait(.("__", parameters="",operation="open",showCmd,workDir=",hwnd=0) = 运行应用程序\n并等待应用程序关闭\n除参数@1以外所有参数可选
+process.wow64.explore("__/*目录路径*/") = 禁用 64 位重定向并使用资源管理器打开目录\n打开WIN10应用这样写:process.explore("shell:appsFolder\appPath")\n使用 com.shell.eachApp 可列出WIN10所有appPath
+end intellisense**/