# 如何控制滑鼠游标跑到萤幕中间再乖乖地按一下......... ^_^

Posted by 大头 on July 29, 1999 at 09:34:46:

事情是这样的.......
我先用了shell函数和sendkeys陈述式做以下的处理:

Private Sub Command1_Click()

Dim ReturnValue

ReturnValue = Shell("C:\Program Files\FlashPoint\Camera Access\C_access.EXE ", 1) '执行程式

SendKeys "%FTA" '送出所执行程式的热键,自动执行程式的功能.

End Sub

但是再执行到某一个地方的时候却没有热键可以再送出
只能用滑鼠按下图示才有办法继续接下来的功能
所以才想到说用控制滑鼠游标的方式来指定滑鼠在萤幕上的座标
让滑鼠跑到指定的座标上去按一下图示执行程式
(顺便说明这么做是为了要让一个程式自动的去执行)
请哪位有玩过滑鼠的高手指教一下

Follow Ups:

- Re: 如何控制滑鼠游标跑到萤幕中间再乖乖地按一下......... ^_^ 纪文和 13:53:57 7/29/99 (0)