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

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

如何用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
页: [1]
查看完整版本: 【新人求解】如何用QTP模拟鼠标在网页上点击、移动？？？？