Auto Click Macro (Help)

[InclerFR]

edited

[Else]

Maybe use pixel search or with image to get the location?

[killzone]

What language are you planning to use to create this macro?

[InclerFR]

Originally Posted by killzone

What language are you planning to use to create this macro?

Hi, pref VB

[Myddo]

This might give you some ideas. It doesn't automatically detect any colors, but it allows you to set up custom coordinates for the clicker to go through.

[kiges]

 Spoiler

Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4



Declare Function apimouse_event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dX As Int32, ByVal dY As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) As Boolean



Sub l_maus(ByVal x As Integer, ByVal y As Integer, Optional ByVal time As Integer = 1)
System.Windows.Forms.Cursor.Position = New System.Drawing.Point(x, y)
Call apimouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Threading.Thread.Sleep(time)
Call apimouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub

now you can search for vb.net screenshot and vb.net bmp get pixel color. adding r + g + b if its equal to your number click left coordinates else right coordinates

[Dusty Rose]

For the main part of the script, it does seem to be entirely location-based (dealing with inventory items). Slowing down the video it clicks the first slot as a constant and then clicks the second slot (and then each repetition it adds a certain specific amount to the horizontal value to move across). When it reaches the end of the row it moves down one row and repeats the above not excluding the first slot this time.

As for the Ok and Cancel button changing between two, it does seem to be some form of get pixels. I'm not clued up on VB i'm afraid, and i think trying to include sikuli into vb for one button press is a little OTT. I remember seeing in a tutorial for python there was a function where you supply an image and then a variable is made based on numeric value of all the individual pixels of the image, and then using that to find it on the screen. I was wondering if there's similar for VB at all?

I did bump into: while googling for VB solutions, is it of any help at all? Sorry, VB goes over my head i'm afraid.

[InclerFR]

I can't do this guys. I'm looking for someone to do

[0x33c]

simple as that:
1) Import some stuff

Imports System.Runtime.InteropServices

2) u need to import the mouse event from the user32.dll to handle the click

<DllImport("user32.dll")>
    Private Sub mouse_event(dwFlags As UInteger, dx As Integer, dy As Integer, dwData As UInteger, dwExtraInfo As Integer)
    End Sub

3) declare the function to set the mouse Position

Declare Function SetCursorPos Lib "user32" (ByVal X As Integer, ByVal Y As Integer) As Integer

4) declare the mouse key adresses to handle the click

    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Private Const MOUSEEVENTF_MIDDLEUP = &H40
    Private Const MOUSEEVENTF_MOVE = &H1
    Private Const MOUSEEVENTF_RIGHTDOWN = &H8
    Private Const MOUSEEVENTF_RIGHTUP = &H10

5.1) move the mouse

    Public Sub MoveMouse(ByVal xMove As Integer, ByVal yMove As Integer)
        mouse_event(MOUSEEVENTF_MOVE, xMove, yMove, 0, 0) '[move the mouse by xMove and yMove pixels]
    End Sub

5.2) set mouse position

SetCursorPos(X, Y) 'X=X coord | Y = Y coord [Set the exact position]

6) perform the click

    Public Sub LClick()
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) ' Down
        System.Threading.Thread.Sleep(10)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)   ' Up
    End Sub

And your done, HF