Results 1 to 5 of 5

Thread: Need help with a vb6 plugin

  1. #1
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,870

    Need help with a vb6 plugin

    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 ?

  2. #2
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,870

    Smile

    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 ?

  3. #3
    Confusion Master
    Auto Apps:loading...
    Enforcer's Avatar
    Join Date
    Sep 2003
    Location
    If you go down to the woods today, You're sure of
    Posts
    14,634
    instr is not boolean

    try

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

  4. #4
    THE EXPERIMENTER
    Auto Apps:loading...
    carputer1's Avatar
    Join Date
    Sep 2007
    Location
    UK,Surrey
    Posts
    1,979
    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
    Riderunner / Genesis
    Plugin Breaker in test BassRR Plugin Player, Wifiman_NET
    New Home for Genesis & BassRR :adding to site ,, Hellfyre night
    Bassrr Beta Release :Version 1.3.7
    Movie_info Release :Version 3.1.0
    Wifiman_NET:Version 1.0.0

    Every Future, Needs A Beginning

  5. #5
    Raw Wave pierrotm777's Avatar
    Join Date
    May 2008
    Location
    Bordeaux, France
    Posts
    2,870

    Smile

    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

Similar Threads

  1. Build on Mandriva 2010
    By yoshihiro in forum RevFE
    Replies: 28
    Last Post: 02-23-2010, 06:50 AM
  2. music defaults to first song on open
    By soundman98 in forum Road Runner
    Replies: 18
    Last Post: 11-23-2009, 03:36 AM
  3. Replies: 13
    Last Post: 05-28-2009, 04:18 PM
  4. pc reboot on sd startup
    By duanes7 in forum StreetDeck
    Replies: 3
    Last Post: 12-14-2007, 09:55 AM
  5. IRMAN plugin
    By knyarko in forum StreetDeck
    Replies: 3
    Last Post: 01-05-2007, 09:26 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •