中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-05 03:17
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 如何用VBS模拟键盘激活inputbox对话框 查看 1,029 回复 6
楼 主 如何用VBS模拟键盘激活inputbox对话框 发表于 2007-06-22 17:47 ·  中国 浙江 嘉兴 海宁市 电信
中级用户
★★
积分 360
发帖 216
注册 2007-05-29 17:41
19年会员
UID 89677
性别 男
状态 离线
难题!!

我打一个VBS制作的inputbox对话框,怎么用VBS模拟键盘来激活它,并在输入框中输入aaa????
2 发表于 2007-06-22 18:01 ·  中国 湖北 武汉 电信
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
20年会员
UID 59080
状态 离线
用键盘激活?vbs不是有一个“AppActivate”吗?

Set xxx=CreateObject("WScript.shell")
xxx.AppActivate "C:\windows\system32\cmd.exe"
3 发表于 2007-06-22 18:07 ·  中国 上海 联通
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
AppActivate是根据title来激活的吧?后面要跟那个inputbox对话框的title吧?
初学VBS
4 发表于 2007-06-22 21:46 ·  中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
iptStr = InputBox("提示","标题","aaa")
5 发表于 2007-06-23 09:48 ·  中国 浙江 嘉兴 海宁市 电信
中级用户
★★
积分 360
发帖 216
注册 2007-05-29 17:41
19年会员
UID 89677
性别 男
状态 离线
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
6 发表于 2007-06-23 10:02 ·  中国 北京 利达宽带
中级用户
★★
积分 273
发帖 91
注册 2007-05-07 18:12
19年会员
UID 87770
性别 男
状态 离线
Originally posted by bd123456789 at 2007-6-23 09:48 AM:



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

我这里可以。
7 发表于 2007-06-23 10:53 ·  中国 浙江 嘉兴 海宁市 电信
中级用户
★★
积分 360
发帖 216
注册 2007-05-29 17:41
19年会员
UID 89677
性别 男
状态 离线
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函数不支持数字标题????

有谁研究过吗?盼
论坛跳转: