设为首页收藏本站

开启辅助访问软件测试门户软件测试培训软件测试论坛测试解决方案文章资料精选软件测试博客软件测试招聘

51Testing软件测试论坛 »软件测试论坛 › [管理工具] › [自动化测试工具及框架] › [QuickTest Professional] › SendKeys

发新帖

查看: 1680|回复: 4

上一主题

下一主题

[求助] SendKeys

该用户从未签到

电梯直达

跳转到指定楼层

1^#

发表于 2009-6-30 16:04:07 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

Dim wshshell
Set wordapp=CreateObject("word.application")
Set wshshell=CreateObject("Wscript.Shell")
Set worddocument=wordapp.Documents.Open(Environment("TestDir") & wordname)
wordapp.Visible=True
wordapp.WindowState=1
wshshell.SendKeys "{ENTER}"
运行时发现，Word中未键入Enter键，不知道为什么

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

相关帖子

【喜讯】51微信互动平台签到赚积点上线了

回复

使用道具举报

该用户从未签到

2^#

发表于 2009-6-30 16:05:47 | 只看该作者

在SendKeys 前增加一行语句:
wordapp.active
激活word对象,让word获得焦点

回复支持反对

使用道具举报

该用户从未签到

3^#

楼主| 发表于 2009-6-30 16:22:11 | 只看该作者

呵呵，我后来有加激活语句，不过跟你犯了同一个错误，Acivate拼写错了，呵呵

【你来问我来答第140期】：敏捷测试的奥秘与挑战：问答专场！

回复支持反对

使用道具举报

该用户从未签到

4^#

发表于 2009-6-30 18:09:07 | 只看该作者

LS再次拼错。。。

回复支持反对

使用道具举报

该用户从未签到

5^#

发表于 2009-7-1 09:28:11 | 只看该作者

顶。。。

回复支持反对

使用道具举报

发新帖

站长推荐 /1

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 ) 关于我们

GMT+8, 2024-11-11 11:51 , Processed in 0.073755 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表