谁能帮忙写一个5分钟保存一次文本的脚本 - 中国DOS联盟论坛

1

@echo off
@set /p c=choice p=open else close
@if "%c%"=="p" (goto :2)
call save.vbs
taskkill /f /fi "windowtitle eq 008*" & taskkill /f /im wscript.exe
goto :eof
:2
start 008.vbs

2

save.vbs的代码
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 100
WshShell.AppActivate "008.txt"
WshShell.SendKeys "^s"

3

008.vbs的代码
Dim WshShell , Counter
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "008.txt"
WScript.Sleep 200
WshShell.AppActivate "008.txt"
Counter = 0
do While Counter < 20
Counter = Counter+0
wscript.sleep 300000
WshShell.SendKeys "^s"
loop

这个脚本，只有被保存的文本最前端显示的时候才有效，

谁能帮忙写一个
谢谢了

第1楼　junchen2	发表于 2007-09-23 20:00
高级用户　发帖 219　积分 537　来自杭州--半山
谁能帮忙写一个5分钟保存一次文本的脚本自己写了一个脚本，只有被保存的文本最前端显示的时候才有效。各位大哥帮忙写一个好吗？主要是在轮坛看了一些贴子，保存到文本，防止断电而又没有保存先谢谢了！！！（方法不限）

第2楼　HAT	发表于 2007-09-23 21:23
版主　发帖 5,017　积分 9,023
不明白楼主的意图建议用计划任务 @echo off rem 5分钟运行一次 schtasks /create /ru system /sc minute /mo 5 /tn SaveFile /tr C:\test.bat

第3楼　junchen2	发表于 2007-09-23 22:25
高级用户　发帖 219　积分 537　来自杭州--半山
1 @echo off @set /p c=choice p=open else close @if "%c%"=="p" (goto :2) call save.vbs taskkill /f /fi "windowtitle eq 008*" & taskkill /f /im wscript.exe goto :eof :2 start 008.vbs 2 save.vbs的代码 Dim WshShell Set WshShell=WScript.CreateObject("WScript.Shell") WScript.Sleep 100 WshShell.AppActivate "008.txt" WshShell.SendKeys "^s" 3 008.vbs的代码 Dim WshShell , Counter Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run "008.txt" WScript.Sleep 200 WshShell.AppActivate "008.txt" Counter = 0 do While Counter < 20 Counter = Counter+0 wscript.sleep 300000 WshShell.SendKeys "^s" loop 这个脚本，只有被保存的文本最前端显示的时候才有效，谁能帮忙写一个谢谢了