【新人求解】如何用QTP模拟鼠标在网页上点击、移动？？？？

zgq9527 · 发表于 2011-8-16 00:35:59

如何用QTP模拟鼠标在网页上点击、移动？？？？

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

lyscser · 发表于 2011-8-16 09:33:21

模拟录制，启动录制之后可以切换到模拟录制模式，时间可以持续到你磁盘空间满了

zhipf · 发表于 2011-8-16 12:27: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:30

2楼正解

binllyyu · 发表于 2011-8-17 13:02:11

我也发一段，刚好这两天在使用

控制鼠标随机点击
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

[原创] 【新人求解】如何用QTP模拟鼠标在网页上点击、移动？？？？

相关帖子

站长推荐 /1