UC知道vb鼠标模拟问题
来源：百度知道 编辑：UC知道 时间：2024/05/09 12:55:46
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Dim a, b, m As Long, n As Long
m = 100
n = 100
a = mouse_event(MOUSEEVENTF_LEFTDOWN, m, n, 0, 0)
End Sub
老是说缺少函数和变量那里错了指教下
能说的具体点吗？最好做个例子
Private Sub Command1_Click()
Dim a, b, m As Long, n As Long
m = 100
n = 100
a = mouse_event(MOUSEEVENTF_LEFTDOWN, m, n, 0, 0)
End Sub
老是说缺少函数和变量那里错了指教下
能说的具体点吗？最好做个例子
你用的常数MOUSEEVENTF_LEFTDOWN没有定义,从API浏览器里找到后复制到代码的声明区.
开始菜单->程序->mircrosoft visual basic6.0->microsoft visual basic 6.0工具->API浏览器,然后打开文本文件,名字我忘了,反正是第一个(一般有3个的),文件加载好了以后从类型中选择 常量 ,然后在下面的列表里找 MOUSEEVENTF_LEFTDOWN 的声明,复制到VB里面.