VB做鼠标点击器,要求见补充(很简单的)

发布网友发布时间：2022-06-13 20:01

共3个回答

热心网友时间：2023-10-15 09:41

这个破功能还要用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键再按回车嘛！

热心网友时间：2023-10-15 09:42

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

热心网友时间：2023-10-15 09:42

如果对话框有焦点那么可以直接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