Question

VB做鼠标点击器，要求见补充（很简单的）

因为学习时20分钟要弹出一次提示框，所以不在电脑前面时很麻烦，所以要用VB6.0做一个鼠标点击器，要求：
1、20分钟点击一次。
2、自动移到确定的地方。（也可以自己注意一点，把鼠标放在那个地方）
3、要VB的编程代码。
4、代码发至：1058371431@qq.com
5、代码要可以用。
6、直接解答也行。。。。。。
7、囧ing… 大家快解答啦……~~
8、TAT马上解答加财富值（一共196财富值，最多加100了了了）

Answer 1

这个破功能还要用VB？给你用VBS写的吧，
1、新建一个记事本文件
2、打开记事本；
3、输入内容：
set wshell=wscript.createobject("WScript.shell")
do while (1)
Wscript.sleep 1200000 （1200000毫秒=20分钟）
wshell.SendKeys “ENTER” (按回车就能确定了，不要用到鼠标)
loop
4、另存为vbs.vbs;
5、运行vbs.vbs。从你运行开始20分钟后就按回车键了；（建议如果真是要20分钟点击一次，你最好时间稍微长几秒，别到时候消息框没出来你就先点了）；
6、有什么问题继续追问；
7、给分；

追问

但是默认的是在取消按钮上，回车就关闭了

追答

set wshell=wscript.createobject("WScript.shell")
do while (1)
Wscript.sleep 1200000 （1200000毫秒=20分钟）
wshell.SendKeys "TAB" (按TAB切换)
Wscript.sleep 100 (怕延迟，最好等会按回车)
wshell.SendKeys “ENTER” (按回车就能确定了，不要用到鼠标)
loop

那先按TAB键再按回车嘛！

Answer 2

这个，其实很简单，不用VB也能实现，用按键精灵就能实现啦。

Answer 3

如果对话框有焦点那么可以直接SENDKEYS
不然可以用这两个API，百度一下
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long