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

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

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

高深莫测啊，哈哈。

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

Thank you very much for sharing!The good man!The good life of peace!

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

[求助] vbs如何接收键盘输入的内容

相关帖子

站长推荐 /1