转载一切对自己或大家有用的东西，如有雷同，不是原创就是转载的

模拟鼠标右键

上一篇 / 下一篇  2008-10-21 12:04:56 / 个人分类：QTP

查看( 568 ) / 评论( 0 ) / 评分( 0 / 0 )
Set x = createobject("wscrīpt.shell")
cur_replay_type = Setting.WebPackage("ReplayType")
Setting.WebPackage("ReplayType") = 2
browser("Google").Page("Google").WebEdit("q").Click ,,micRightBtn
For i = 1 to 4
 wait(1)
   x.sendkeys "{DOWN}"
Next
x.sendkeys "{ENTER}"
Set x = nothing
Setting.WebPackage("ReplayType") = cur_replay_type
'browser("Google").Page("Google").WebEdit("q").Click ,,2

收藏 举报

TAG: QTP

 

评分：0

我来说两句

Open Toolbar