Vb8 Auto ________

Hey everyone... i thought i would just make a tutorial on how to make something like an auto glitcher, pistol, jumper, etc.

This is a very simple tut using SendKeys and may not always work.

Here we go.

1. Create a new windows application in Vb

2. Add 2 Buttons. Name button1 "Start" and button2 "Stop"

3. Add 2 Timers

4. Open up your form1 code and under Public Class Form1 enter this code:

Code:

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer ' this simply tells the computer what GetAsyncKeyState means

5. Now go back to the form1 design and double click on timer2 (This is your hotkeys) Put this code in timer2

Code:

        Dim hotkey1 As Boolean
        hotkey1 = GetAsyncKeyState(Keys.F11)
        If hotkey1 = True Then
            Timer1.Interval = 100
            Timer1.Enabled = True
            Timer1.Start()
        End If
        Dim hotkey2 As Boolean
        hotkey2 = GetAsyncKeyState(Keys.F12)
        If hotkey2 = True Then
           Timer1.Enabled = False 
           Timer1.Stop()
        End If

6. Once again... go back to form1 design and double click on timer1 (This is your auto __________ code.
For example: If you want to do an auto glitcher its simply

Code:

 
SendKeys.Send("wswswswssswwwswswswswssswwwswswsws")
SendKeys.Send("wswswswssswwwswswswswssswwwswswsws")
SendKeys.Send("wswswswssswwwswswswswssswwwswswsws")

If you want to do an auto jumper its a bit more work. (Not much more)

Code:

SendKeys.Send("" + Space(5))
Sendkeys.Send("" + Space(5))
Sendkeys.Send("" + Space(5))

And then from there you can make just about anything "Auto" by using sendkeys.

Note: Some things like holding Shift require more coding but this is just a basic tutorail.

Hope you had fun. If you learned anything thank me.

For auto pistol wouldn't you make the hotkey for it left click then it clicks like 14 times (max ammo capacity for pistol) or let you set it yourself?

Originally Posted by serpentine

For auto pistol wouldn't you make the hotkey for it left click then it clicks like 14 times (max ammo capacity for pistol) or let you set it yourself?

For auto pistol you would have to do this. (Its kinda hard because on the code for auto pistol you have the mouse click go up and down. and that is the stop hotkey as well.)

So it would end up something like this.

Just remember to enable the timer.

Here you just declare all of the functions

Code:

    
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer    
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)    
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
    Private Const mouseclickup = 4
    Private Const mouseclickdown = 2

This is the actual auto click code:

Code:

Private Sub AutoPis()
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
          Sleep(500)
          SendKeys.Send(mouseclickdown)
          SendKeys.Send(mouseclickup)
End Sub

This is the code that calls autopis when mouse is clicked down:

Code:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hotkey1 As Boolean
        hotkey1 = GetAsyncKeyState(mouseclickdown)
        If hotkey1 = True Then
            Timer1.Stop()
            Call AutoPis()
            Sleep(6500) ' Gives AutoPis enough time to run then waits 1/2 sec
            Timer1.Start()
        End If
        Dim hotkey2 As Boolean
        hotkey2 = GetAsyncKeyState(mouseclickup)
        If hotkey2 = True Then
            Timer1.Stop()
        End If
    End Sub

wheres the link to download the injector?

Auto pistol is best if you loop it.

Originally Posted by jakiro14234

wheres the link to download the injector?

There is no injector, this is a Visual Basic application. It's a .exe file, it runs on it's own and uses
nothing but automatic computer operations. Programs like this are just simplifying already possible commands.

This should be in the Visual Basic section, not the CrossFire section

but this is the cf source code section
not vb @alroundeath

I have made the programm

when i go in editor and press F11 then spam it with wswsws...
but when i go in crossfire
it doesnt work

Originally Posted by user44

I have made the programm

when i go in editor and press F11 then spam it with wswsws...
but when i go in crossfire
it doesnt work

Take a look at this.

Originally Posted by SSK.Darken

This is a very simple tut using SendKeys and may not always work.

i get 3 errors can u make a vid plz the errors say key word is not vaild as an identifyer and GetAsyncKeyState is niot declared twise

plz help

Try adding pictures...

Nice tutorial it is well written and will help all the Visual Basic newbies.

Hehe, and you are a MPGH newbie.

No but VB is fucking simple shit. If you can't do shit with VB you might as well stop, and if you want a job as a programmer you better not look at that goal as one you'll reach. Have fun!

So?

He has made a lot smarter posts then you and you have 329 of them...

Don't treat them with respect by ranks and posts but wisdom and intelligence.

Vb8 Auto ________

Post a Reply

Similar Threads

Tags for this Thread