51Testing软件测试论坛

标题: vbs如何接收键盘输入的内容 [打印本页]

作者: Charles_H 时间: 2012-10-19 09:13
标题: vbs如何接收键盘输入的内容
vbs如何接收键盘输入的内容，并且以字符串形式写入到指定的文本中。（直接写入其中不需要打开文本）

作者: ws812395 时间: 2012-10-19 16:23
Dim inputNotepadName,inputNotepadText
Set openQq=CreateObject("Wscript.Shell")
inputNotepadName=InputBox("请输入你记事本的名字：")
openQq.Run "notepad"
WScript.Sleep 2000
openQq.SendKeys "^s" '使用快捷键Ctrl+S保存
openQq.SendKeys inputNotepadName '输入记事本的名字
WScript.Sleep 1000
openQq.SendKeys "{ENTER}"
WScript.Sleep 1000
openQq.SendKeys "{ENTER}"
inputNotepadText=InputBox("请输入你记事本的内容：")
openQq.SendKeys inputNotepadText
WScript.Sleep 1000
openQq.SendKeys "{ENTER}"
WScript.Sleep 1000
openQq.SendKeys "%{F4}" '关闭记事本 Alt+F4
openQq.SendKeys "{ENTER}"
WScript.Sleep 1000

参考

作者: joykao 时间: 2012-10-19 16:24
sendkeys能满足你的需求吗？

作者: Charles_H 时间: 2012-10-23 16:00
额，Sendkeys的确不能满足我所需求，似乎vbs不能实现……

作者: 云层 时间: 2012-10-24 13:14
用Inputbox输入，用FSO写文件就行了

作者: Charles_H 时间: 2012-11-7 15:50
回复 5# 云层

额，这个也不行……

作者: 千里 时间: 2012-11-7 20:32

用Inputbox输入，用FSO写文件就行了
云层发表于 2012-10-24 13:14

高深莫测啊，哈哈。

作者: fengerapple 时间: 2013-1-25 18:25
Thank you very much for sharing!The good man!The good life of peace!

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)