Question

vbs: wscript.createObject("wscript.shell").run("D

vbs: wscript.createObject("wscript.shell").run("D:\1.txt")是打开1.txt，延迟几秒后，怎么自动关闭

Answer 1

 wscript.sleep 2000'延迟2秒

wscript.createobject("wscript.shell").sendkeys("%{f4}")'Alt+F4

追问

打开txt后，往里面追加内容，几秒后自动关闭。
set ws=wscript.create("wscript.shell")
ws.run("D:\1.txt")
createObject("scripting.fileSystemObject").openTextFile("D:\1.txt",8,true).writeLine("谢谢回答~")
wscript.sleep 2000
ws.sendkeys("%{f4}")
追加内容后，怎样在已经打开的txt中显示出来(在自动关闭窗口之前)

是需要保存一下么,

追答

呃 好复杂 先执行
createObject("scripting.fileSystemObject").openTextFile("D:\1.txt",8,true).writeLine("谢谢回答~")
再执行
ws.run("D:\1.txt")
不行吗？

追问

我想的执行顺序是 打开，修改，关闭。后run的话就是 修改，打开，关闭了。

追答

目前我没想到什么好的办法……

windows的记事本不会对txt文件做锁定处理，同一个文件可以被多个进程同时访问和修改，程序可以随意改动源文件（包括删除），源文件发生的任何改动都不能让记事本重新加载。似乎除了关闭记事本然后再打开这个方法外，没有其它简单的解决手段了。

set ws=wscript.createobject("wscript.shell")

ws.run("d:\1.txt")

wscript.sleep 1000

ws.appactivate "1.txt -记事本"

ws.sendkeys("%{f4}")

createObject("scripting.fileSystemObject").openTextFile("d:\1.txt",8,true).writeLine("谢谢回答~")

ws.run("d:\1.txt")

wscript.sleep 2000

ws.appactivate "1.txt -记事本"

ws.sendkeys("%{f4}")

追问

嗯呢，还有个问题，上面的代码放在fot循环中时，执行到sendkeys就终止运行了，那么就循环不了了。这个问题怎么解决呢

for循环

追答

for 会中断？？
代码是怎么写的？

追问

for j=0 to 2
'这里是上面的代码

msgbox("ok")
next
运行结果是，这个msgbox都没有，然后只在文档中写了一行

追答

呃 代码没有问题 我这边执行起来也是正常的……
可能是对话框没在前台显示吧，你看下任务栏中有没有wscript的图标，或者看下任务管理器里有没有wscript.exe，全部杀掉再试试

或者
你把msgbox("ok")改成
ws.popup "ok",2
试试，popup的对话框可以设定显示时间（2表示2秒）

追问

我的是
set objfso=....
set objfile=objfso.opentextfile(...)
objfile.writeline("xiexieni")

把后两句合成一句再运行就正确的了
谢谢你啊，真是帮了大忙