QTP如何实现复制粘贴功能

Mr.Prince

我现在测试的一个软件中有一个输入框，该输入框不支持从键盘输入，只能通过复制粘贴来输入数据，请问能不能用QTP脚本来实现从测试数据文本文件中拷贝测试数据粘贴到该输入框的功能？求达人指教，不胜感激！

ls_721521

***.Object.insertAdjacentText  "beforeBegin"," 输入的数据"
试试看行不。

Mr.Prince

原帖由 ls_721521 于 2009-6-10 16:48 发表
***.Object.insertAdjacentText  "beforeBegin"," 输入的数据"
试试看行不。

看不懂，达人能给讲讲怎么用么？

ls_721521

前面加上你的输入框的对象就行了。
browser（）。page。（）。webedit（“你的那个输入框”）。Object.insertAdjacentText  "beforeBegin"," 输入的数据"

ls_721521

你的图片挺逗。。。这么可爱的姑娘居然立中指！！

Mr.Prince

原帖由 ls_721521 于 2009-6-10 16:53 发表
前面加上你的输入框的对象就行了。
browser（）。page。（）。webedit（“你的那个输入框”）。Object.insertAdjacentText  "beforeBegin"," 输入的数据"

不好使，报错……我这是C\S系统，这句话提示：对象不支持此属性或方法……

Mr.Prince

原帖由 ls_721521 于 2009-6-10 16:58 发表
你的图片挺逗。。。这么可爱的姑娘居然立中指！！

嗯嗯，就是看中这个了

ls_721521

哦，那个只适合web的。
你可以用模拟键盘操作，用shell对象试试吧。。

Mr.Prince

原帖由 ls_721521 于 2009-6-10 17:04 发表
哦，那个只适合web的。
你可以用模拟键盘操作，用shell对象试试吧。。

是考虑过shell对象，ctrl+v倒是简单，怎么从测试数据中ctrl+c难住我了……

ls_721521

是啊，ctrl+c如何选择数据呢，用鼠标拖动选中数据？那就得更改qtp的录制方式了。。还要考虑用坐标。。
估计这个不可行吧。。
用别的方法吧，查查api看有没有可用的函数

Mr.Prince

太难了，查不到……

intothestorm

什么控件这么神奇，不能输入，只能粘贴

peterz

原帖由 Mr.Prince 于 2009-6-10 17:29 发表
太难了，查不到……

用模拟录制试试看看。

intothestorm

解决问题不能一根筋
你不要老想着怎么ctrl+c, ctrl+v...
退一步海阔天空，你尝试一下怎么通过操作windows的clipboard来解决你的问题。

Mr.Prince

原帖由 intothestorm 于 2009-6-10 18:20 发表
解决问题不能一根筋
你不要老想着怎么ctrl+c, ctrl+v...
退一步海阔天空，你尝试一下怎么通过操作windows的clipboard来解决你的问题。

你的意思是把测试数据保存到剪切板吧，这我还真不会，你教教我？

intothestorm

' Have you played this funny game?
str = "Plants Vs Zombies"
setClipBoardData str
Msgbox getClipBoardData

Public Function getClipBoardData
        Set oIE = CreateObject("InternetExplorer.Application")
        oIE.Navigate("about:blank")
        oIE.visible=False
        getClipBoardData = oIE.document.parentwindow.clipboardData.GetData("text")
        Set oIE = Nothing
End Function

Public Sub setClipBoardData(strCopy)
        Set oIE = CreateObject("InternetExplorer.Application")
        oIE.Navigate("about:blank")
        oIE.visible=False
        oIE.document.parentwindow.clipboardData.SetData "text", strCopy
        Set oIE = Nothing
End Sub

Mr.Prince

我理解上面的代码是利用IE的地址栏将测试数据拷贝到剪切板，并且隐藏了IE窗口，确实解决了ctrl+c的问题，学习了
非常感谢intothestorm

shanxi

function getData(path)
set fso = Createobject("Scripting.FileSystemObject")
set file_p=fso.OpenTextFile(path)
str=file_p.readall()

dim objhtm,flg   
set objhtm=createobject("htmlfile")  
  
flg=objhtm.parentwindow.clipboarddata.setdata("text",str)  

end function
getData "d:\a.txt"

hsjzfling

哪里需要那么麻烦呢，添加到剪贴板直接使用Mercury提供的对象就好了

1. Set oCB = CreateObject("Mercury.Clipboard")
   
2. oCB.SetText "Copy me"
   
3. Set oCB = Nothing

复制代码

Mr.Prince

我查了一下帮助，果然如楼上所说，Mercury自带操作剪切板的方法……