Need help with a vb6 plugin

**pierrotm777** · 01-17-2011, 01:14 PM

Hello all,
I want to made a RR command that can do a left mouse click !
I should like to have a command as:

Code:

clickleft;1;750;719

where ,
1 is the left mouse button
750 the x position
719 the y position

Actually, i have a command like that who run very well but who is fixe !

Code:

        Case "clickleft" 'click left mouse button (1) on 750x519
            Call MouseButtonDownXY(1, 750, 519)
            Call MouseButtonClick(1)
            ProcessCommand = 2

How can i do that please ?

**pierrotm777** · 01-17-2011, 02:01 PM

I have tried to add these lines after the end select but without succes:

Code:

    If Left(LCase(CMD), 10) = "clickleft;" Then
        If Len(CMD) > 11 And InStr(CMD, ";") Then
            CmdArray = Split(CMD, ";")
            CMD = "clickleft;" & CmdArray(1) & ";" & CmdArray(2)
            ProcessCommand = 3
        Else
            ProcessCommand = 2
        End If
    End If

Vb6 don't know the Left function ?

**Enforcer** · 01-17-2011, 02:10 PM

instr is not boolean

try

If Len(CMD) > 11 And InStr(CMD, ";")<>0 Then

**carputer1** · 01-18-2011, 10:42 AM

try this

Dim CmdArray() As String

If Left(LCase(CMD), 10) = "clickleft;" Then
CmdArray = Split(CMD, ";")
If UBound(CmdArray) = 2 Then 'Make sure you have the correct data.
Call MouseButtonDownXY(1, CLng(CmdArray(1)), CLng(CmdArray(2)))
Call MouseButtonClick(1)
End If
ProcessCommand = 2
End If

**pierrotm777** · 01-18-2011, 11:35 AM

I have writen that who run very well !

Code:

    If InStr(CMD, "clickmouse;") Then
        If Len(CMD) > 11 And InStr(CMD, ";") Then
            CmdArray = Split(CMD, ";")
            Call MouseButtonDownXY(CmdArray(1), CmdArray(2), CmdArray(3))
            Call MouseButtonClick(CmdArray(1))
            ProcessCommand = 2
        End If
    End If

Thanks to all