中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何让VBS脚本自动在记事本中输入一行文字

flandy
初级用户

积分 94
发帖 40
注册 2007-4-28
状态离线

『楼主』: 如何让VBS脚本自动在记事本中输入一行文字

让VBS脚本自动在记事本中输入一行文字,让脚本自动输入下面两段小短句

This is the most wonderful day of my life
because I'm here with you now

输入短句后自动关闭记事本，并保存文件名为“test”，关闭记事本可以直接使用组合按键Alt＋F4来实现

2007-6-24 23:43

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 2 楼』:

是让它模拟“正在打字输入”的效果么？

2007-6-25 00:26

terse
银牌会员

积分 2404
发帖 946
注册 2005-9-8
状态离线

『第 3 楼』:

搜索一下啊
dim ws
set ws=wscript.createobject("wscript.shell")
str = "This is the most wonderful day of my life$because I'm here with you now"
Num = len(str)
ws.run("notepad.exe")
wscript.sleep 100
for i = 1 to Num
Input = Mid(str, i, 1)
if Input = "$" then Input = vbCr
wscript.sleep 100
ws.sendkeys(Input)
next
WS.SendKeys "^s"
WScript.Sleep 100
WS.SendKeys "test"
WScript.Sleep 100
WS.SendKeys "{ENTER}"
WS.SendKeys "%{f4}"

这个没打字效果
dim ws
set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 100
ws.sendkeys "because I'm here with you now"
wscript.sleep 100
WS.SendKeys "{ENTER}"
ws.sendkeys "This is the most wonderful day of my life"
WS.SendKeys "^s"
WScript.Sleep 100
WS.SendKeys "test"
WScript.Sleep 100
WS.SendKeys "{ENTER}"
WS.SendKeys "%{f4}"

[ Last edited by terse on 2007-6-25 at 12:37 AM ]

此帖被 +1 点积分点击查看详情

2007-6-25 00:29

bd123456789
中级用户

积分 360
发帖 216
注册 2007-5-29
状态离线

『第 4 楼』:

Quote:

Originally posted by terse at 2007-6-25 12:29 AM:
搜索一下啊
dim ws
set ws=wscript.createobject("wscript.shell")
str = "This is the most wonderful day of my life$because I'm here with you now"
Num = len(str)
ws.run(& ...

精彩!

2007-6-25 22:32