Results 1 to 4 of 4
  1. #1
    Wealth is in the mind not the pocket.
    Premium Member
    Bitset's Avatar
    Join Date
    Dec 2011
    Gender
    male
    Location
    M.I.A
    Posts
    253
    Reputation
    93
    Thanks
    1,704
    My Mood
    Buzzed

    Question Sending fake user input to form only.

    Ok I am making a mouse cursor bot and I just need this to finish the project I need something to send fake mouse movement/clicking and fake typing I don't know how to do this so I can minimize the program and it will still run.
    Last edited by Bitset; 07-29-2013 at 05:31 PM.

  2. #2
    lucasheer715's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Posts
    648
    Reputation
    10
    Thanks
    497
    My Mood
    Bored
    I made a simple little project, hope it helps

    This project i made allows u to send input by using these commands :

    Left Click :
    mouseclickingexample("LeftClick")
    Right Click :
    mouseclickingexample("RightClick")

    Send Keys :
    keyboardclickingexample("as many keys as you want instantly")

    Set Mouse Location : (x,y)
    cursor_possetexample(5, 5)
    You will need all the private subs from this
    Code:
    Public Class Form1
        Private Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As IntPtr)
        Private Sub mouseclickingexample(ByVal LeftClick_RightClick As String)
            Const MOUSEEVENTF_LEFTDOWN As Integer = 2
            Const MOUSEEVENTF_LEFTUP As Integer = 4
            Const MOUSEEVENTF_RIGHTDOWN As Integer = 6
            Const MOUSEEVENTF_RIGHTUP As Integer = 8
            If LeftClick_RightClick = "RightClick" Then
                mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, IntPtr.Zero)
                mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, IntPtr.Zero)
            ElseIf LeftClick_RightClick = "LeftClick" Then
                mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, IntPtr.Zero)
                mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, IntPtr.Zero)
            Else
            End If
        End Sub
    
        Private Sub keyboardclickingexample(ByVal keyclicks As String)
            My.Computer.Keyboard.SendKeys(keyclicks)
        End Sub
    
        Private Sub cursor_possetexample(ByVal xpos As Integer, ByVal ypos As Integer)
            Cursor.Position = New Point(xpos, ypos)
        End Sub
    
        Private Sub Usage_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Usage_Button.Click
            'keyboard clicking usage :
            keyboardclickingexample("5")
            'or
            keyboardclickingexample("this is an example by lucasheer715")
    
            'mouse positions exampe (place where u wanna click)
            cursor_possetexample(50, 50)
    
            'mouse click example :
            'left click
            mouseclickingexample("LeftClick")
            'or right click
            mouseclickingexample("RightClick")
        End Sub
    End Class

  3. #3
    abuckau907's Avatar
    Join Date
    Dec 2012
    Gender
    male
    Location
    other side of the wire
    Posts
    1,342
    Reputation
    162
    Thanks
    239
    My Mood
    Cold
    "...so I can minimize the program and it will still run."

    I think SendMessage() maybe.
    from msdn site: "Sends the specified message to a window or windows. The SendMessage function calls the window procedure for the specified window and does not return until the window procedure has processed the message."
    SendMessage function (Windows)
    google for demos. ie SendMessage mouse clicks , SendMessage keyboard, etc.
    Last edited by abuckau907; 07-29-2013 at 10:28 PM.
    'Some things that can be counted, don't matter. And some things that matter, can't be counted' - A.E.
    --
     

    My posts have some inaccuracies/are wrong/wrong keyword(s) used.
    They're (maybe) pretty close, and I hope they helped you, not created confusion. Take with grain of salt.

    -if you give rep, please leave a comment, else it means less.

  4. #4
    Cryptonic's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    United Provinces of Canada
    Posts
    1,315
    Reputation
    44
    Thanks
    190
    My Mood
    Bored
    Are you trying to ask "how do I minimize my program while it's still running" or how to make "fake" movement of the mouse (which doesn't even make sense)?

Similar Threads

  1. i want to learn how to make white box and fly hack
    By f_ker in forum Combat Arms Help
    Replies: 2
    Last Post: 04-08-2010, 09:19 PM
  2. [Request] Can anyone teach me how to make crosshair hack and chams?
    By 1337crusader in forum Blackshot Hacks & Cheats
    Replies: 3
    Last Post: 10-29-2009, 04:25 AM
  3. [Tutorial] How to make CA aimbot work (vista only srry xp users)
    By Fear2 in forum Combat Arms Hacks & Cheats
    Replies: 0
    Last Post: 10-18-2009, 12:29 AM
  4. How to Make Animated/Moving GIF Pictures
    By wilsonlam97 in forum Tutorials
    Replies: 6
    Last Post: 08-19-2009, 12:42 AM
  5. Can someone plz post how to make arrow moving menu in vb6
    By aprill27 in forum Visual Basic Programming
    Replies: 2
    Last Post: 05-04-2008, 09:20 AM