自己写了一个脚本，只有被保存的文本最前端显示的时候才有效。各位大哥帮忙写一个好吗？
主要是在轮坛看了一些贴子，保存到文本，防止断电而又没有保存
先谢谢了！！！（方法不限）
主要是在轮坛看了一些贴子，保存到文本，防止断电而又没有保存
先谢谢了！！！（方法不限）
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 谁能帮忙写一个5分钟保存一次文本的脚本
查看 674 回复 2
楼 主
谁能帮忙写一个5分钟保存一次文本的脚本
发表于 2007-09-23 20:00 · 中国 浙江 杭州 电信
第 2 楼
发表于 2007-09-23 21:23 · 中国 重庆 电信
不明白楼主的意图
建议用计划任务
建议用计划任务
@echo off
rem 5分钟运行一次
schtasks /create /ru system /sc minute /mo 5 /tn SaveFile /tr C:\test.bat
第 3 楼
发表于 2007-09-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
这个脚本，只有被保存的文本最前端显示的时候才有效，
谁能帮忙写一个
谢谢了
@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
这个脚本，只有被保存的文本最前端显示的时候才有效，
谁能帮忙写一个
谢谢了
论坛跳转: