标题: 谁能帮忙写一个5分钟保存一次文本的脚本 [打印本页]

---

作者: junchen2     时间: 2007-9-23 20:00    标题: 谁能帮忙写一个5分钟保存一次文本的脚本

自己写了一个脚本，只有被保存的文本最前端显示的时候才有效。各位大哥帮忙写一个好吗？
主要是在轮坛看了一些贴子，保存到文本，防止断电而又没有保存
先谢谢了！！！（方法不限）

---

作者: HAT     时间: 2007-9-23 21:23
不明白楼主的意图
建议用计划任务

---

作者: junchen2     时间: 2007-9-23 22:25
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

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

谁能帮忙写一个
谢谢了