标题: 如何用VBS模拟键盘激活inputbox对话框 [打印本页]

---

作者: bd123456789     时间: 2007-6-22 17:47    标题: 如何用VBS模拟键盘激活inputbox对话框

难题!!

我打一个VBS制作的inputbox对话框,怎么用VBS模拟键盘来激活它,并在输入框中输入aaa????

---

作者: lxmxn     时间: 2007-6-22 18:01
用键盘激活？vbs不是有一个“AppActivate”吗？

---

作者: HAT     时间: 2007-6-22 18:07
AppActivate是根据title来激活的吧？后面要跟那个inputbox对话框的title吧？
初学VBS

---

作者: slore     时间: 2007-6-22 21:46
iptStr = InputBox("提示","标题","aaa")

---

作者: bd123456789     时间: 2007-6-23 09:48

Quote:

Originally posted by lxmxn at 2007-6-22 06:01 PM: 用键盘激活？vbs不是有一个“AppActivate”吗？ Set xxx=CreateObject("WScript.shell") xxx.AppActivate "C:\windows\system32\cmd.exe"

不行呀!
我制作了一个名称为a.vbs,代码为"c=inputbox("请输入三个字母","标题","aaa")"
然后在同一文件夹内制作了一个名称为b.vbs 代码为
Set xxx=CreateObject("WScript.shell")
xxx.AppActivate "标题"

首先打开a.vbs,然后点显示桌面,最后双击b.vbs,但结果是不能激活任务栏上的a.vbs

---

作者: sonicandy     时间: 2007-6-23 10:02

Quote:

Originally posted by bd123456789 at 2007-6-23 09:48 AM: 不行呀! 我制作了一个名称为a.vbs,代码为"c=inputbox("请输入三个字母","标题","aaa")" 然后在同一文件夹内制作了一个名 ...

我这里可以。

---

作者: bd123456789     时间: 2007-6-23 10:53

Quote:

Originally posted by sonicandy at 2007-6-23 10:02 AM: 我这里可以。

多谢测试,对了
不过能否再研究一下,如果我将a.vbs中的内容设为c=inputbox("请输入三个字母","000","aaa"),即标题为000,而b.vbs中的内容设为
Set xxx=CreateObject("WScript.shell")
xxx.AppActivate "000"

奇怪的是,为什么又不行了,是不是AppActivate函数不支持数字标题????

有谁研究过吗?盼