51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2392|回复: 3
打印 上一主题 下一主题

[讨论] 如何在控件上模拟键盘按下按键的操作

[复制链接]
  • TA的每日心情
    开心
    15 小时前
  • 签到天数: 643 天

    连续签到: 11 天

    [LV.9]测试副司令

    跳转到指定楼层
    1#
    发表于 2015-7-9 18:38:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    在QTP代码中,怎么样才能模拟在一个输入框中,按下键盘按键的操作
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

  • TA的每日心情
    开心
    2018-4-22 12:50
  • 签到天数: 393 天

    连续签到: 1 天

    [LV.9]测试副司令

    2#
    发表于 2015-7-10 09:05:53 | 只看该作者
    我是这么做的,第一步定义函数,如下:
    '函数名称:T_SendKey
    '函数描述:模拟键盘操作
    '参数说明:xkey(类型:字符串)
    '更新日期:2010-4-16
    Public Function T_SendKey(xkey)
    Dim WshShell
    set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys xkey
    set WshShell =nothing
    End Function

    第二步,调用该函数,如下:
    '按回车键
    Call T_SendKey("{Enter}")

    '输入值
    Call T_SendKey("abc123")

    如果你想模拟其它键值,可以参考QTP自带的帮助文档

    评分

    参与人数 1测试积点 +10 收起 理由
    lsekfe + 10 恭喜你获得测试积点10

    查看全部评分

    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2018-4-22 12:50
  • 签到天数: 393 天

    连续签到: 1 天

    [LV.9]测试副司令

    3#
    发表于 2015-7-10 09:06:53 | 只看该作者
    来我这里下载个测试框架吧,轻松实现自动化,http://www.51testing.com/?130204/
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    16 小时前
  • 签到天数: 2811 天

    连续签到: 4 天

    [LV.Master]测试大本营

    4#
    发表于 2015-7-10 12:17:32 | 只看该作者
    楼主试试2楼方法
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

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

    GMT+8, 2024-11-14 23:47 , Processed in 0.081834 second(s), 23 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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