Charles_H 发表于 2012-10-19 09:13:20

vbs如何接收键盘输入的内容

vbs如何接收键盘输入的内容，并且以字符串形式写入到指定的文本中。（直接写入其中不需要打开文本）

ws812395 发表于 2012-10-19 16:23:44

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:24

sendkeys能满足你的需求吗？

Charles_H 发表于 2012-10-23 16:00:10

额，Sendkeys的确不能满足我所需求，似乎vbs不能实现……

云层 发表于 2012-10-24 13:14:57

用Inputbox输入，用FSO写文件就行了

Charles_H 发表于 2012-11-7 15:50:42

回复 5# 云层


    额， 这个也不行……

千里 发表于 2012-11-7 20:32:13

用Inputbox输入，用FSO写文件就行了
云层 发表于 2012-10-24 13:14 http://bbs.51testing.com/images/common/back.gif


    高深莫测啊，哈哈。

fengerapple 发表于 2013-1-25 18:25:43

Thank you very much for sharing!The good man!The good life of peace!
页: [1]
查看完整版本: vbs如何接收键盘输入的内容