可被Svchost.exe启动的DLL服务源码，支持32/64位全系统

先锋小七

大家都知道，windows系统下有多个svchost.exe进程，它是从动态链接库 (DLL) 中运行的服务的通用主机进程名称。

本源码是一个完整的可被svchost.exe启动的DLL服务源码，同时包含了穿透Session0隔离来与桌面交互的源码（在Vista以上，如果你想在服务程序中创建窗体，目前是不可能直接显示到你的桌面的，而且在服务中是无法访问桌面任何窗口句柄的，因为服务和你使用的桌面不是同一个桌面，而是隔离开的）。

如上图所示，此源码用黑月编译的dll文件，在xp、server2003、win7x64、win10x64（管理员权限运行）测试通过，XP以上的系统应该全支持。但并不一定要黑月编译，静态编译也可以的。这个可以用来做什么？毕竟是系统服务，在开机的时候就运行了，不必登录到系统，具体能做什么大家发挥想象力...

源码下载： SampleService - SvcHost.rar (135.78 KB, 下载次数: 1624)

2016-11-26 01:21 上传

点击文件名下载附件

补充内容 (2016-12-10 13:12):
那个说测试被拦截的，难道要我给你做个免sha？

luguidong2018

没啥用啊

luguidong2018

学习一下，看看

danshiyuan

2wEn 发表于 2025-8-13 17:15
[e=0].版本 2

.子程序 ServiceWorkerThread, , , 工作线程

这个代码应该加到什么位置，谢谢

lassgo

这操作有点秀啊，老哥玩得挺深呢，小心别把系统搞崩了哈。

lm88818

感谢分享，很给力！~

2wEn

  

子程序名	返回值类型	公开	备 注
ServiceWorkerThread			工作线程

变量名	类 型	静态	数组	备 注
bSuccess	逻辑型
dwSessionID	整数型
hToken	整数型
hDuplicatedToken	整数型
lpEnvironment	整数型
si	STARTUPINFO
pi	PROCESS_INFORMATION

' 当电脑有开机密码，无限等待----------------------------------------------------------------------------------------
判断循环首 (真)
dwSessionID ＝ WTSGetActiveConsoleSessionId ()
bSuccess ＝ WTSQueryUserToken (dwSessionID, hToken)
判断 (bSuccess ＝ 真)
跳出循环 ()
' ShowMessageBox (“Message”, “WTSQueryUserToken failed”)
SuperSleepEx (1000)

判断循环尾 ()
判断循环首 (真)
bSuccess ＝ DuplicateTokenEx (hToken, #MAXIMUM_ALLOWED, 0, 1, 1, hDuplicatedToken)
判断 (bSuccess ＝ 真)
跳出循环 ()
' ShowMessageBox (“Message”, “DuplicateTokenEx failed”)
SuperSleepEx (1000)

判断循环尾 ()

.版本 2<br /> <br /> .子程序 ServiceWorkerThread, , , 工作线程<br /> .局部变量 bSuccess, 逻辑型<br /> .局部变量 dwSessionID, 整数型<br /> .局部变量 hToken, 整数型<br /> .局部变量 hDuplicatedToken, 整数型<br /> .局部变量 lpEnvironment, 整数型<br /> .局部变量 si, STARTUPINFO<br /> .局部变量 pi, PROCESS_INFORMATION<br /> <br /> ' 当电脑有开机密码，无限等待----------------------------------------------------------------------------------------<br /> .判断循环首 (真)<br />     dwSessionID ＝ WTSGetActiveConsoleSessionId ()<br />     bSuccess ＝ WTSQueryUserToken (dwSessionID, hToken)<br />     .判断开始 (bSuccess ＝ 真)<br />         跳出循环 ()<br />     .默认<br />         ' ShowMessageBox (“Message”, “WTSQueryUserToken failed”)<br />         SuperSleepEx (1000)<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> .判断循环首 (真)<br />     bSuccess ＝ DuplicateTokenEx (hToken, #MAXIMUM_ALLOWED, 0, 1, 1, hDuplicatedToken)<br />     .判断开始 (bSuccess ＝ 真)<br />         跳出循环 ()<br />     .默认<br />         ' ShowMessageBox (“Message”, “DuplicateTokenEx failed”)<br />         SuperSleepEx (1000)<br />     .判断结束<br /> <br /> .判断循环尾 ()

beatone

感谢发布原创作品，精易因你更精彩！

gdxchina

我来试试，感谢感谢

不苦小和尚

试试看看效果不好啊，

金叶

我现在怎么运行不了 了   启动 不 行   启动自动停止   WIN11专业版