中国DOS联盟

@echo off rem 隐藏运行进程 if "%1" == "hide" goto begin mshta vbscript:createobject("wscript.shell").run("""%~nx0"" hide",0)(window.close)&&exit :begin rem 设置当前时间的下一分钟 set h=%time:~0,2%&&set m=%time:~3,2%&&set /a m+=1 rem 时分进位 if %m% gtr 59 set /a m=0&&set /a h+=1 rem 获得当前秒 set s=%time:~6,2% rem 如果秒大于或等于56，直接执行切换 if %s% geq 56 goto start rem 如果秒小于56，将剩余秒变微秒 if %s% lss 56 set /a s=(56-%time:~6,2%)*100 rem 执行延时程序 call :ProcDelay %s% :start rem 结束 Explorer.exe 进程 TaskKill /f /im Explorer.exe>nul 2>nul rem 将 at 命令相关的服务设置为自动 sc config schedule start= auto>nul 2>nul rem 添加一个任务计划（下分钟起执行） at %h%:%m% /interactive %SystemRoot%\Explorer.exe>nul 2>nul rem 延时删除全部任务计划 call :ProcDelay 500 at /delete /yes rem 结束 goto end rem 延时程序 :ProcDelay number Setlocal EnableExtensions for /f "tokens=1-4 delims=:. " %%h in ("%TIME%") do set start_=%%h%%i%%j%%k :wait_ for /f "tokens=1-4 delims=:. " %%h in ("%TIME%") do set now_=%%h%%i%%j%%k set /a diff_=%now_%-%start_% if %diff_% lss %1 goto wait_ Endlocal :end

[ Last edited by chishingchan on 2008-11-23 at 12:06 ]

返回到Administrator帐户时连快速启动栏的e快捷方式也没有了，只剩下个桌面的快捷方式。

可能出错的语句：
sc config schedule start= auto>nul 2>nul
at /delete /yes

[ Last edited by chishingchan on 2008-2-19 at 12:34 PM ]

不知道你要干吗?有何意图?

Originally posted by fastslz at 2008-2-19 12:40 PM:
不知道你要干吗?有何意图?

这是一个切换为 SYSTEM 登录帐户的批处理：
表现为：执行批处理后隐藏自身，直到下一分钟起执行切换动作!

但有些 BUG ！
表现为：第一次运行正常，即由 Administrator 切换到 SYSTEM ！注销 SYSTEM 返回到 Administrator 再次运行即停留在空桌面(桌面什么也没有)

现在确定为 at /delete /yes 为出错的语句，注释掉此行即正常，但我不想运行此批处理后在任务计划残留已完成的任务。

请问如何处理？

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

at /delete /yes是否存在权限
这个vbs的话很简单

第二次也在 Administrator 里运行的，权限应该是没问题的。
反正我也说不清，你可以测试一下上面的代码！

Originally posted by chishingchan at 2008-2-19 13:42:
第二次也在 Administrator 里运行的，权限应该是没问题的。
反正我也说不清，你可以测试一下上面的代码！

我这里不存在你说的这个BUG

稍等给你写个vbs~~~~

静候佳音

1、等待空白桌面的时间太长了，能否在运行切换前3秒才执行动作？
2、任务计划残留已过时任务
3、和我的批处理脚本一样，快速启动栏的e快捷方式不见了，只剩下一个桌面的快捷方式!
4、第一项功能我的批处理做到了，其他与我的批处理相当，存在同样的问题！

希望改正！

总结：我还是喜欢批处理的方式，因对VBS不熟悉！

[ Last edited by chishingchan on 2008-2-19 at 03:14 PM ]

Wscript.sleep 120000
2分钟减去等待at执行1分钟,也是是等待1分钟,可能时间长了点,但是也需要的(首次登入的话配置差一点的1分钟可能还未登入到桌面呢)

SithTime = FormatDateTime (DateAdd("s",60,Time) ,0)
这个是设置当前时间的下一分钟(60秒)
Wscript.sleep 1000 = 1秒

fastslz 对顶楼的问题理解错了吧？！
1、非转换或改写为VBS
2、残留任务未得到解决！
3、e 快捷方式未得到解决！
4、新发现还有假死现象，表现为鼠标按桌面图标无反应，调出任务管理器注销登录过才正常！

Originally posted by fastslz at 2008-2-19 02:33 PM:

我这里不存在你说的这个BUG

你不存在这个 BUG 的原因是你没有把残留的过时任务处理掉，我的批处理如果注释掉"at /delete /yes"也不存在（空桌面）错误的，但新问题会出现（残留过时任务）

其它如 e 的快捷方式和假死现象先抛开一边不说了！

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