afkbot

i have recently made an afkbot that only works ingame. i was wondering if some1 can help me make an afkbot that joins quick games and clicks ready?? please pm me a tut or tell me how to do it, i will love u forever

ill try wait if i dun pst back i cant help ill try tho

First you would have to find the X, Y of the button to click, then you would make your program click it. I dont know how to do the first, but I can help you with simulating a Click in VB
Add this below an "End Sub"

Code:

 Private Const BM_CLICK = &HF5



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

    Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

This is code that will simulate click

Code:

 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

1.

Easier version:
Add 2 textboxes add this code

TextBox1.Text = System.Windows.Forms.Cursor.Position.X.ToString()
TextBox2.Text = system.Windows.Forms.Cursor.Position.Y.ToString()

2
add a timer and use this code:

declare with this:
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position )
and then
Cursor.Position = New Point(xxx, xxx) move mouse to axis
mouse_event(&H2, 0, 0, 0, 1) is for left click
mouse_event(&H4, 0, 0, 0, 1) is for left click

xxx = Y or X axis

Thanks me if i helped!

kay thanks. i'll try to figure this out, what are the x,y axis for mouse click ready and quick join?

Originally Posted by DylanOwnsYou

kay thanks. i'll try to figure this out, what are the x,y axis for mouse click ready and quick join?

Figure that out, something you must do

1.

Easier version:
Add 2 textboxes add this code

TextBox1.Text = System.Windows.Forms.Cursor.Position.X.ToString()
TextBox2.Text = system.Windows.Forms.Cursor.Position.Y.ToString()

some 1 make a video

the code is easy enuff to understand...

X Y
E.G Cursor.Position = New Point(379, 382) = Move The Mouse To The Axis U Wrote

To Find The Axis U Can Put : Cursor.Position.X = Label1.Text
Cursor.Position.Y = Label2.Text

Then To Make The Mouse Go From One Place To Another , Make 2 Timers, Disable The First One And Set Thier Interval To Anytime u wan E.G 1000 = 1 second

Double Click oN teh Second Timer And Put :

X Y
Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
Timer1.Start()
Timer2.Stop()

Then Double Click On The First Timer And Put:

X Y
If Cursor.Position = New Point(TextBox1.Text, TextBox2.Text) Then
Cursor.Position = New Point(TextBox3.Text, TextBox4.Text)
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
Timer1.Stop()
Timer2.Start()
End If

Make 4 Textbox Btw And Put Thier Axis To Anything u wan

now i got a problem
whats the axis of combat arms quick join O.o

afkbot

Similar Threads

Tags for this Thread