如何定时自动点击屏幕上的特定位置(高分求解)

Question

兄弟我运行了一个软件,但要定时的去点击屏幕上的特定区域.有什么办法可以在7-8秒的时间里,自动去点击.急,高分求各位大哥了.

Answer 1

用mouse_event模拟鼠标事件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 Const MOUSEEVENTF_ABSOLUTE = &H8000 '  absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  middle button down
Private Const MOUSEEVENTF_MIDDLEUP = &H40 '  middle button up
Private Const MOUSEEVENTF_MOVE = &H1 '  mouse move
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 '  right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10 '  right button up
Private Sub MouseClick(x As Long, y As Long)
    Dim SCR_W As Long
    Dim SCR_H As Long
    
    SCR_W = Screen.Width / 15
    SCR_H = Screen.Height / 15
    '移动鼠标
    mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, Int(x / SCR_W * 65535), Int(y / SCR_H * 65535), 0, 0
    '左键按下
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    DoEvents
    '左键放开
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    DoEvents
End Sub
调用举例：
在1024*768下点击屏幕中央，在屏幕中央放一个点击以后会有效果的东西看看结果MouseClick 512, 384

Answer 2

//如果还要关闭一个自动打开的IE页面呢?先找到它(可以用findwindow),然后关闭(发送wm_close消息)

Answer 3

引用 Microsoft Internet Controls 运行下面的代码，整个世界就都清静了Dim dWinFolder As New ShellWindows
Dim eventIE As SHDocVw.InternetExplorer
Dim objIE As Object
    
    For Each objIE In dWinFolder
        Set eventIE = objIE
        eventIE.Quit
    Next

Answer 4

// For Each objIE In dWinFolder
        Set eventIE = objIE
        eventIE.Quit
    Next这样不太好,把所有的ie窗口都关闭了,最好加个判断

Answer 5

以前做过一个cashfiat（是不是这么拼，忘了）的机器人，每天晚上开在那里让他自动点击，开了一个月，可能开得太狠了账号被封。要的话留个mail附送全套原代码

Answer 6

[email protected]
谢谢了,大哥

Answer 7

能给我一份吗？[email protected].多谢。

Answer 8

能给我一份吗？[email protected].多谢

Answer 9

//以前做过一个cashfiat（是不是这么拼，忘了）的机器人，每天晚上开在那里让他自动点击，开了一个月，可能开得太狠了账号被封呵呵:)

Answer 10

麻烦您，给我一份
[email protected]