## **描述** 点击指定坐标，可以指定相对于本窗口还是相对于屏幕，还可以指定点击次数以及每次点击的前后延时。 ## **语法** ClickPoint(*x1, y1[, PositionMod = relative[, clickTimes = 1[, delayMilliSecondsBefore = 0[, delayMilliSecondsAfter = 0]]]]*) **该语法中有下列命名参数：** | 参数 | 描述 | | --- | --- | | x1 | Long类型，表示要点击的Left坐标值。 | | y2 | Long类型，表示要点击的Top坐标值。 | | PositionMod | 可选的。enumPositionMode 类型，表示坐标使用绝对还是相对方式。如果忽略，**缺省值是relative，它表明坐标使用相对方式**，例如点击100,100这个点，默认会点击相对于窗口左顶点的位置100,100，如果要相对于屏幕可以设置本参数值为absolute。关于enumWindowVisible类型的介绍请参考下面“**enumPositionMode类型的设置值**”表的介绍。| | clickTimes | 可选的。Integer 类型，表示点击次数。如果忽略，缺省值是 1，它表明点击1次。 | | delayMilliSecondsBefore | 可选的。Long 类型，**表示点击前延时多久**，单位为毫秒(ms)。如果忽略，缺省值是 0，它表明点击前不延时。| | delayMilliSecondsAfter | 可选的。Long 类型，**表示点击后延时多久**，单位为毫秒(ms)。如果忽略，缺省值是 0，它表明点击后不延时。| **enumPositionMode类型的设置值：** | 设置 | 描述 | | --- | --- | | absolute | 坐标使用绝对方式 | | relative | 坐标使用相对方式 | ## **返回值** | 无 | | --- | | - | ## **示例** > 说明：请向窗口添加按钮Command1，然后复制下面代码后点击按钮运行。运行前先打开记事本 ``` Private Sub Command1_Click() Dim w As New clsWindow w.GetWindowByClassName "Notepad" '获得记事本窗口 w.Wait 500 w.Focus '设置记事本窗口为活动窗口 w.Wait 500 w.ClickPoint 200, 200 '默认是相对模式（也就是记事本左顶点+100,记事本上顶点+100），未获取句柄之前是实际默认句柄是0，即桌面的窗口 w.Caption = "当前鼠标移动到相对记事本左上的200,200处了" w.Wait 3000 '延时3秒以便观看效果 w.ClickPoint 200, 200, relative '和上面一样，默认就是relative，即相对模式 w.Wait 3000 '延时3秒以便观看效果 w.ClickPoint 200, 200, absolute '绝对模式，是相对于桌面左上顶点开始计算的 w.Caption = "当前鼠标移动到相对屏幕左上的200,200处了" w.Wait 3000 '延时3秒以便观看效果 w.Caption = "以下延时根据菜单坐标点击相应菜单" w.Focus '设置记事本窗口为活动窗口 w.ClickPoint 240, 30, , , 200, 300 '点击相对于记事本的(240,30)坐标处，实际是“帮助”菜单的位置，并且点击前延时200ms，点击后延时300ms w.ClickPoint 240, 80, , , 200, 300 '点击坐标(240,80)坐标，实际正好是二级菜单“关于记事本”的位置 End Sub ```