---
title: 'UFT GUItest - Simulating mouse click'
disqus: hackmd
---

## UFT GUItest - Simulating mouse click

* 模擬滑鼠點選物件
* Micro Focus UFT One 15.0
* [Ref](http://burnignorance.com/software-testing-tips/simulating-mouse-click-operation-through-qtp/)

## :rocket:參考程式
* 假設頁面上有一個"Document"的連結，點右鍵後會出現一個選單，再點選單中的選項"CreateDocument"。

Set pathObj = Browser("BrowserName").Page("PageName")

-- Create an object of DeviceReplay class which helps us simulate mouse click operation --
Set deviceReplay = CreateObject("Mercury.DeviceReplay")

getX = pathObj.Link("Document").GetROProperty("abs_x")
getY = pathObj.Link("Document").GetROProperty("abs_y")

-- imulates the right click operation over the link --
deviceReplay.MouseClick getX,getY,RIGHT_MOUSE_BUTTON 

-- Click on the "CreateDocument" option --
pathObj.WebElement("name:=CreateDocument").Click

Set deviceReplay = Nothing

## Appendix and FAQ

:::info
**Find this document incomplete?** Leave a comment!
:::

###### tags: `UFT`,`GUItest`