如何在Windows后台服务程序启动前台可交互界面程序

zhangbaozi

通过服务启动的EXE只能运行在system的用户上，并不能出现交互界面；用论坛上搜到的源码通过 CreateProcessAsUser 可以实现当前用户创建进程，但还是无法出现界面。请问是什么地方错了吗？

  

窗口程序集名	保 留	保 留	备 注
程序入口

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

调试输出 (RunProcess (“C:\sy\sy.exe”))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
RunProcess	逻辑型		运行进程
参数名	类 型	参考	可空	数组	备 注
ProcessName	文本型				欲运行进程路径

变量名	类 型	静态	数组	备 注
hToken	整数型
si	STARTUPINFO
pi	PROCESS_INFORMATION
bResult	逻辑型

如果真 (ProcessName ＝ “”)
返回 ( #FALSE )

' //获取进程Token
如果真 (取反 (GetTokenByName (“explorer.exe”, hToken)))
返回 ( #FALSE )

' //进程信息设置
si.cb ＝ 68
si.lpDesktop ＝ “WinSta0\Default”
si.dwFlags ＝ #STARTF_USESHOWWINDOW
si.wShowWindow ＝ #SW_SHOW  ' 显示窗口
' //创建新的进程，它将工作在新的session中
bResult ＝ CreateProcessAsUser (hToken, ProcessName, #NULL, #NULL, #NULL, #NULL, 位或 ( #NORMAL_PRIORITY_CLASS, #CREATE_NEW_CONSOLE ), #NULL, #NULL, si, pi)
' //稍微等待处理
延时 (100)
' //创建完成关闭对象句柄
CloseHandle (hToken)
CloseHandle (pi.进程句柄)
CloseHandle (pi.线程句柄)
' //退出
返回 (bResult)

子程序名	返回值类型	公开	备 注
GetTokenByName	逻辑型
参数名	类 型	参考	可空	数组	备 注
lpName	文本型
hToken	整数型

变量名	类 型	静态	数组	备 注
hProcessSnap	整数型
bRet	逻辑型
pe32	PROCESSENTRY32
exefile	文本型
hProcess	整数型

如果真 (lpName ＝ “”)
返回 ( #FALSE )
hProcessSnap ＝ #NULL
bRet ＝ #FALSE
' //获取系统中正在运行的进程信息
hProcessSnap ＝ CreateToolhelp32Snapshot ( #TH32CS_SNAPPROCESS, 0)
如果真 (hProcessSnap ＝ #INVALID_HANDLE_VALUE )
返回 ( #FALSE )

' //数据结构大小
pe32.dwSize ＝ 296
' //遍历进程，取得lpName进程令牌
如果 (Process32First (hProcessSnap, pe32))
循环判断首 ()
' //取得当前进程信息
exefile ＝ 到文本 (pe32.szExeFile)
' //判断是否为lpName进程
如果真 (exefile ＝ lpName)
' //取得当前进程句柄
hProcess ＝ OpenProcess ( #PROCESS_QUERY_INFORMATION, #NULL, pe32.th32ProcessID)
' //打开当前进程令牌
bRet ＝ OpenProcessToken (hProcess, #TOKEN_ALL_ACCESS, hToken)
' //关闭对象句柄
CloseHandle (hProcessSnap)
返回 (bRet)

循环判断尾 (Process32Next (hProcessSnap, pe32))
bRet ＝ #TRUE
bRet ＝ #FALSE
' //关闭对象句柄
CloseHandle (hProcessSnap)
返回 (bRet)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序入口<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 调试输出 (RunProcess (“C:\sy\sy.exe”))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 RunProcess, 逻辑型, , 运行进程<br /> .参数 ProcessName, 文本型, , 欲运行进程路径<br /> .局部变量 hToken, 整数型<br /> .局部变量 si, STARTUPINFO<br /> .局部变量 pi, PROCESS_INFORMATION<br /> .局部变量 bResult, 逻辑型<br /> <br /> .如果真 (ProcessName ＝ “”)<br />     返回 (#FALSE)<br /> .如果真结束<br /> <br /> ' //获取进程Token<br /> .如果真 (取反 (GetTokenByName (“explorer.exe”, hToken)))<br />     返回 (#FALSE)<br /> .如果真结束<br /> <br /> ' //进程信息设置<br /> si.cb ＝ 68<br /> si.lpDesktop ＝ “WinSta0\Default”<br /> si.dwFlags ＝ #STARTF_USESHOWWINDOW<br /> si.wShowWindow ＝ #SW_SHOW  ' 显示窗口<br /> ' //创建新的进程，它将工作在新的session中<br /> bResult ＝ CreateProcessAsUser (hToken, ProcessName, #NULL, #NULL, #NULL, #NULL, 位或 (#NORMAL_PRIORITY_CLASS, #CREATE_NEW_CONSOLE), #NULL, #NULL, si, pi)<br /> <br /> ' //稍微等待处理<br /> 延时 (100)<br /> ' //创建完成关闭对象句柄<br /> CloseHandle (hToken)<br /> CloseHandle (pi.进程句柄)<br /> CloseHandle (pi.线程句柄)<br /> <br /> ' //退出<br /> 返回 (bResult)<br /> <br /> .子程序 GetTokenByName, 逻辑型<br /> .参数 lpName, 文本型<br /> .参数 hToken, 整数型, 参考<br /> .局部变量 hProcessSnap, 整数型<br /> .局部变量 bRet, 逻辑型<br /> .局部变量 pe32, PROCESSENTRY32<br /> .局部变量 exefile, 文本型<br /> .局部变量 hProcess, 整数型<br /> <br /> .如果真 (lpName ＝ “”)<br />     返回 (#FALSE)<br /> .如果真结束<br /> hProcessSnap ＝ #NULL<br /> bRet ＝ #FALSE<br /> <br /> ' //获取系统中正在运行的进程信息<br /> hProcessSnap ＝ CreateToolhelp32Snapshot (#TH32CS_SNAPPROCESS, 0)<br /> .如果真 (hProcessSnap ＝ #INVALID_HANDLE_VALUE)<br />     返回 (#FALSE)<br /> .如果真结束<br /> <br /> ' //数据结构大小<br /> pe32.dwSize ＝ 296<br /> <br /> ' //遍历进程，取得lpName进程令牌<br /> .如果 (Process32First (hProcessSnap, pe32))<br />     .循环判断首 ()<br />         ' //取得当前进程信息<br />         exefile ＝ 到文本 (pe32.szExeFile)<br /> <br />         ' //判断是否为lpName进程<br />         .如果真 (exefile ＝ lpName)<br /> <br />             ' //取得当前进程句柄<br />             hProcess ＝ OpenProcess (#PROCESS_QUERY_INFORMATION, #NULL, pe32.th32ProcessID)<br /> <br />             ' //打开当前进程令牌<br />             bRet ＝ OpenProcessToken (hProcess, #TOKEN_ALL_ACCESS, hToken)<br /> <br />             ' //关闭对象句柄<br />             CloseHandle (hProcessSnap)<br />             返回 (bRet)<br />         .如果真结束<br /> <br />     .循环判断尾 (Process32Next (hProcessSnap, pe32))<br />     bRet ＝ #TRUE<br /> .否则<br />     bRet ＝ #FALSE<br /> <br />     ' //关闭对象句柄<br />     CloseHandle (hProcessSnap)<br /> .如果结束<br /> 返回 (bRet)

气质征服一切

https://bbs.125.la/forum.php?mod ... p;highlight=Session
可以完美解决你的问题