让脚本在输入短句后自动关闭记事本，并保存文件名为“test”

feifei956998 · 发表于 2009-11-30 12:44:14

Dim WshShell
Set WshShell=WScript.CreateObject("Wscript.Shell")
WshShell.Run"notepad"
WScript.Sleep 2000
WshShell.AppActivate"无标题-记事本"
WshShell.SendKeys"hahahahahaha"
WshShell.SendKeys"%{F4}"
WshShell.SendKeys"s"

然后怎么保存文件名为“test”?

hsjzfling · 发表于 2009-11-30 12:59:46

为什么不用fso来做这件事情

shanxi · 发表于 2009-11-30 13:06:02

Ctrl + S
Send key filepath+name
Ctrl + S

请毋庸于界面自动化这种做法完全错误。

dftx511619 · 发表于 2009-11-30 13:36:34

原帖由 feifei956998 于 2009-11-30 12:44 发表
Dim WshShell
Set WshShell=WScript.CreateObject("Wscript.Shell")
WshShell.Run"notepad"
WScript.Sleep 2000
WshShell.AppActivate"无标题-记事本"
WshShell.SendKeys"hahahahahaha"
WshShell.SendKeys"%{F ...

看到你的名字下面有个“51testing测试培训就业人员”，培训完后，连这个问题都解决不了！

我真的为 51testing 培训感到无语了！

feifei956998 · 发表于 2009-11-30 13:46:13

原帖由 dftx511619 于 2009-11-30 13:36 发表

看到你的名字下面有个“51testing测试培训就业人员”，培训完后，连这个问题都解决不了！

我真的为 51testing 培训感到无语了！

因为我工作得比较早，没学到这个呢。
不懂就问一下应该没错的吧？

nimcok · 发表于 2009-11-30 14:22:11

fso处理好些吧

dftx511619 · 发表于 2009-11-30 17:52:47

原帖由 nimcok 于 2009-11-30 14:22 发表
fso处理好些吧

这位兄弟正解！用FSO对象来处理最简单！

gaoshijie · 发表于 2010-6-4 16:35:27

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run"notepad"
WScript.Sleep 1000
WshShell.AppActivate"无标题-记事本"
WshShell.SendKeys"no means yes!"
WshShell.SendKeys"%FA"
WshShell.SendKeys"name"
WScript.Sleep 1000
WshShell.SendKeys"%s"

ssane1989 · 发表于 2010-12-29 20:42:29

Dim wshshell
Set wshshell=WScript.CreateObject("wscript.shell")
wshshell.Run "notepad"
WScript.Sleep 500
wshshell.AppActivate "vbs学习"
wshshell.SendKeys "This is the most wonderful day of my life"&Chr(13)&"because I'm here With you now"
WScript.Sleep 2000
wshshell.SendKeys "%FA"
wshshell.SendKeys "d:\obp\aaa"
WScript.Sleep 1000
wshshell.SendKeys "%s"

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 让脚本在输入短句后自动关闭记事本，并保存文件名为“test”

相关帖子

站长推荐 /1