51Testing软件测试论坛

标题: 【新人求解】如何用QTP模拟鼠标在网页上点击、移动？？？？ [打印本页]

作者: zgq9527 时间: 2011-8-16 00:35
标题: 【新人求解】如何用QTP模拟鼠标在网页上点击、移动？？？？
如何用QTP模拟鼠标在网页上点击、移动？？？？

这个QTP能持续录制多长时间啊？

作者: lyscser 时间: 2011-8-16 09:33
模拟录制，启动录制之后可以切换到模拟录制模式，时间可以持续到你磁盘空间满了

作者: zhipf 时间: 2011-8-16 12:27
发段模拟鼠标的代码，自己模仿下吧
index=4
   Set WshShell = CreateObject("Wscrīpt.Shell")
   For i = 1 To index
   WshShell.sendKeys "{DOWN}"
   Next
   WshShell.sendKeys "{ENTER}"
   Set WshShell = nothing

作者: rogerliu0303 时间: 2011-8-17 09:55
2楼正解

作者: binllyyu 时间: 2011-8-17 13:02
我也发一段，刚好这两天在使用

控制鼠标随机点击
Set devicereplay=CreateObject("Mercury.DeviceReplay")
For j= 1 to 1000
x=randomNumber(220,1680)
y=randomNumber(182,515)
devicereplay.MouseMove x,y
devicereplay.MouseClick x,y,LEFT_MOUSE_BUTTON
reporter.ReportEvent micDone,"MouseClick","鼠标左键单击位置："&x&"，"&y
next

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