51Testing软件测试论坛

标题: 急急急哪位达人救我于水深火热之中吧知道怎么用QTP取记事本当中文字啊 [打印本页]

作者: jindouguang 时间: 2009-1-14 14:59
标题: 急急急哪位达人救我于水深火热之中吧知道怎么用QTP取记事本当中文字啊
哪位达人知道怎么用QTP取记事本当中文字啊
就是右键某个网页之后查看它的源文件  从源文件当中找到以某段文字打头的一段话把那段话付到某个变量上
达人解答一下  前面的步骤我都想到了
wait 1
'Browser("阿玻罗信贷网").Page("阿玻罗信贷网").Frame("ALDS_9").Image("保存退出").Click  ,, micRightBtn
Browser("阿玻罗信贷网").Page("阿玻罗信贷网").Frame("ALDS_9").WebElement("返回首页").Click 1,1, micRightBtn
Set keys_test=createobject("wscript.shell")

keys_test.sendkeys "V"
wait 1
'keys_test.sendkeys "{enter}"
With Window("记事本")
.Activate
With Window("记事本")
.WinEditor("Edit").Type micCtrlDwn + "f" + micCtrlUp
With .Dialog("查找")
.WinEdit("查找内容(N):").Set "评分卡评级"
.WinButton("查找下一个(F)").Click
End With
End With
.Activate
End With

查找完了  怎么取那个记事本的值啊？

[ 本帖最后由 jindouguang 于 2009-1-14 15:39 编辑 ]

作者: jindouguang 时间: 2009-1-14 15:19

没人啊
自己先顶一下自己

我就是不太清楚怎么把ctrl＋c 得到文字信息传到变量当中
如果这一步知道了其他的都好办

作者: jindouguang 时间: 2009-1-14 16:10

作者: lingxin5013 时间: 2009-1-15 09:57
设置变量进行传递

作者: asoqa 时间: 2009-1-15 10:21
标题: 回复 2# 的帖子
获取剪贴板内容的方式：
Set cb = CreateObject("Mercury.Clipboard")
MsgBox cb.GetText

作者: jindouguang 时间: 2009-1-16 17:02
楼上是牛人坚定完毕谢谢楼上一针见血 bingo

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)