原帖由 surlary 于 2007-7-30 17:04 发表
Public Sub SendKeys(strWords)
Dim WSH
On Error Resume Next
Set WSH = CreateObject("WScript.Shell")
WSH.SendKeys strWords
Set WSH = Nothing
End Sub
首先点击要输入的编辑器,然 ...
原帖由 郁金香 于 2007-7-30 10:18 发表
我现在录制的程序中有三个html编辑器,由于QTP无法录制下在html编辑器中输入的文字,我采用的是object.write方法写入文字,如果为一个的话,回话没什么问题,但是现在是三个,回放时,它在向html编辑器中写文字 ...
原帖由 surlary 于 2007-7-30 17:04 发表
Public Sub SendKeys(strWords)
Dim WSH
On Error Resume Next
Set WSH = CreateObject("WScript.Shell")
WSH.SendKeys strWords
Set WSH = Nothing
End Sub
首先点击要输入的编辑器,然后调用SendKeys "your contents here..."
欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) | Powered by Discuz! X3.2 |