隐藏进程切换系统用户批处理程序 - 中国DOS联盟论坛

Originally posted by fastslz at 2008-2-19 03:30 PM:
1、批处理计算下一分钟是不精确的（即使做到很精确代码还更复杂）,vbs分秒不差
2、残留任务没问题
3、e 快捷方式也没问题
4、也假死现象
5、总之~因个人系统状况而定

1、这个程序无需十分精确，可提前执行几秒或缓迟几秒都不在话下！
2、我的问题就是不想存在已过时的任务计划或留下执行痕迹。
3及4、这个可能跟我的系统有关（用BeTwin拖机中...）

这个情况第一次运行进入 SYSTEM 帐户后，注销 SYSTEM，按 Ctrl + Alt + Del 两次用 Administrator 帐户登录是才不见了此快捷方式的。请其它朋友测试一下顶楼代码是否存在这样的情况。

Set WsShell = CreateObject("WScript.Shell")
Set objWMI = Getobject("Winmgmts:")
Set Process=objWMI.ExecQuery("Select * From Win32_Process Where Name='Explorer.exe'")
For Each objProcess In Process 
intReturn = objProcess.Terminate(1)
Next
WsShell.Run ("%Comspec% /c "&Chr(34) &"sc config Schedule start= auto&net start Schedule" &Chr(34)),vbHide
Wscript.sleep 1000
SithTime = FormatDateTime (DateAdd("s",20,Time) ,0)
WsShell.Run ("%Comspec% /c "&Chr(34) &"at " &SithTime & " /interactive %SystemRoot%\Explorer.exe" &Chr(34)),vbHide
Wscript.sleep 30000
WsShell.Run ("%Comspec% /c "&Chr(34) &"at /delete /yes&echo 查看是否执行成功&pause" &Chr(34))'

Originally posted by chishingchan at 2008-2-19 12:24:
rem 添加一个任务计划（下分钟起执行）
at %h%:%m% /interactive %SystemRoot%\Explorer.exe>nul 2>nul
rem 延时删除全部任务计划
call :ProcDelay 800
......

下分钟起执行at，call :ProcDelay 800也就是等于延迟8秒后删除全部任务计划（不就是没执行at计划就被删除了）

Originally posted by fastslz at 2008-2-19 03:58 PM:
下分钟起执行at，call :ProcDelay 800也就是等于延迟8秒后删除全部任务计划（不就是没执行at计划就被删除了）

都已经登录 SYSTEM 帐户，这个还用说？！

且顶楼的批处理是连执行痕迹也删除掉了。不相信的话登录 SYSTEM 后可查看任务计划（没有 AT？）。

[ Last edited by chishingchan on 2008-2-19 at 04:10 PM ]

@echo off
if "%1" == "hide" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" hide",0)(window.close)&&exit
:begin
>tmp.vbs echo Wscript.echo FormatDateTime (DateAdd("s",20,Time) ,0)
for /f "delims=" %%i in ('cscript.exe //nologo tmp.vbs') do set aDate=%%i
del tmp.vbs
TaskKill /f /im Explorer.exe>nul 2>nul
sc config schedule start= auto>nul 2>nul
net start Schedule>nul 2>nu
at %aDate% /interactive %SystemRoot%\Explorer.exe>nul 2>nul
ping/n 30 127.1.0 >nul 2>nul
at /delete /yes

自己看把这个是精简且不存在时间误差的批处理

一场口水战结束了，原来是拖机惹的祸！

代码没有解决切换前等待太长时间，顶楼批处理不存在这个问题。

第16楼　chishingchan	发表于 2008-02-19 15:35
银牌会员　发帖 538　积分 1,284
Originally posted by fastslz at 2008-2-19 03:30 PM: 1、批处理计算下一分钟是不精确的（即使做到很精确代码还更复杂）,vbs分秒不差 2、残留任务没问题 3、e 快捷方式也没问题 4、也假死现象 5、总之~因个人系统状况而定 1、这个程序无需十分精确，可提前执行几秒或缓迟几秒都不在话下！ 2、我的问题就是不想存在已过时的任务计划或留下执行痕迹。 3及4、这个可能跟我的系统有关（用BeTwin拖机中...）

第17楼　chishingchan	发表于 2008-02-19 15:45
银牌会员　发帖 538　积分 1,284
再次说明一下 e 快捷方式的问题这个情况第一次运行进入 SYSTEM 帐户后，注销 SYSTEM，按 Ctrl + Alt + Del 两次用 Administrator 帐户登录是才不见了此快捷方式的。请其它朋友测试一下顶楼代码是否存在这样的情况。

第18楼　fastslz	发表于 2008-02-19 15:58
铂金会员　发帖 2,315　积分 5,493　来自上海
Set WsShell = CreateObject("WScript.Shell") Set objWMI = Getobject("Winmgmts:") Set Process=objWMI.ExecQuery("Select * From Win32_Process Where Name='Explorer.exe'") For Each objProcess In Process intReturn = objProcess.Terminate(1) Next WsShell.Run ("%Comspec% /c "&Chr(34) &"sc config Schedule start= auto&net start Schedule" &Chr(34)),vbHide Wscript.sleep 1000 SithTime = FormatDateTime (DateAdd("s",20,Time) ,0) WsShell.Run ("%Comspec% /c "&Chr(34) &"at " &SithTime & " /interactive %SystemRoot%\Explorer.exe" &Chr(34)),vbHide Wscript.sleep 30000 WsShell.Run ("%Comspec% /c "&Chr(34) &"at /delete /yes&echo 查看是否执行成功&pause" &Chr(34))' Originally posted by chishingchan at 2008-2-19 12:24: rem 添加一个任务计划（下分钟起执行） at %h%:%m% /interactive %SystemRoot%\Explorer.exe>nul 2>nul rem 延时删除全部任务计划 call :ProcDelay 800 ...... 下分钟起执行at，call :ProcDelay 800也就是等于延迟8秒后删除全部任务计划（不就是没执行at计划就被删除了）

第19楼　chishingchan	发表于 2008-02-19 16:07
银牌会员　发帖 538　积分 1,284
Originally posted by fastslz at 2008-2-19 03:58 PM: 下分钟起执行at，call :ProcDelay 800也就是等于延迟8秒后删除全部任务计划（不就是没执行at计划就被删除了）都已经登录 SYSTEM 帐户，这个还用说？！且顶楼的批处理是连执行痕迹也删除掉了。不相信的话登录 SYSTEM 后可查看任务计划（没有 AT？）。 [ Last edited by chishingchan on 2008-2-19 at 04:10 PM ]

第20楼　fastslz	发表于 2008-02-19 16:16
铂金会员　发帖 2,315　积分 5,493　来自上海
@echo off if "%1" == "hide" goto begin mshta vbscript:createobject("wscript.shell").run("""%~nx0"" hide",0)(window.close)&&exit :begin >tmp.vbs echo Wscript.echo FormatDateTime (DateAdd("s",20,Time) ,0) for /f "delims=" %%i in ('cscript.exe //nologo tmp.vbs') do set aDate=%%i del tmp.vbs TaskKill /f /im Explorer.exe>nul 2>nul sc config schedule start= auto>nul 2>nul net start Schedule>nul 2>nu at %aDate% /interactive %SystemRoot%\Explorer.exe>nul 2>nul ping/n 30 127.1.0 >nul 2>nul at /delete /yes 自己看把这个是精简且不存在时间误差的批处理

第21楼　chishingchan	发表于 2008-02-19 16:21
银牌会员　发帖 538　积分 1,284
ghost 回一个系统（无拖机），所有情况消失了！一场口水战结束了，原来是拖机惹的祸！

第22楼　chishingchan	发表于 2008-02-19 16:25
银牌会员　发帖 538　积分 1,284
复 20 楼代码没有解决切换前等待太长时间，顶楼批处理不存在这个问题。

第23楼　zgren1979	发表于 2008-02-21 16:39
初级用户　发帖 24　积分 52
好论题，受教