HELP! source code auto press key ...

Posts 1–13 of 13 · Page 1 of 1

anyone can give me a step by step tutorial in making
this program AUTO PRESS KEY

im new in VB 2005...

i need this ..

2buttons START(alt+S) and STOP(alt+o)

when start was click it will spam the key ( "X") keyboard key .. example i click START on button it will " xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx "
wehn stop was click it will stop the " XXXXXXXXXXXXXXXXXXXXXXXXXXX "

thnx in advance..

its like (auto clicker)

Will the program be focused or no?

Originally Posted by DawgiiStylz

Will the program be focused or no?

what do you mean by focus sir?

sorry im new in programming ...

Originally Posted by longhornc2d

what do you mean by focus sir?

sorry im new in programming ...

If you are new to programming you should be coding simple stuff, not this (this is simple tho)

lol this is easy as h3ll to make but if i get a chance ill make a tut for ya. but a word to the wise get VB 2010 its way better and this is a really easy task
you just create a form and put 2 butons start,stop and a richtextbox.(which will display the spam),and a timer

timer is used to tell the buttons how long to stay pressed.
i think u can use either KeyDown Event or
use SendKeys to send keystrokes to notepad,browser,etc

a example of SendKeys

Code:

Dim SpamProgram As Integer 
SpamProgram= Shell("NOTEPAD.EXE", AppWinStyle.NormalFocus)
AppActivate(SpamProgram)

Computer.Keyboard.SendKeys("x",true);

if you put the above in a timer it will send "x" everytime the timer ticks every 0.0001ms for example.

Im still wondering why people come to post out of nowhere to spoonfeed.

Im still wondering why people come to post out of nowhere to spoonfeed.

sir please respect my post im new in VB thats why i need help.

all i want is.

i play RFonline
and i want a program that will automatically loots.

LOOTS to a certain item = keyboard ( " X " or " spacebar " )

i recently making this code by unluckily wont work on RF online

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text)
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

by the way i type X on the textbox

Originally Posted by longhornc2d

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text)
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

by the way i type X on the textbox

im sure you have this all wrong. if your going to do Sendkeys its better to set the application first but u can make it work the way it is very easliy u have to click in the window that ur spamming and u need to be highlighted on the text part

Not being rude but please use Google there is alot of tips,source code,etc on youtube,msdn website,all over.

hell just searching you tube i found this.

learn to use Search please.

Wait wha?
How would the loot work? By coordinates?

I don't think VB will support some kind of bot

Originally Posted by DawgiiStylz

Wait wha?
How would the loot work? By coordinates?

I don't think VB will support some kind of bot

no sir.. not by coordinates ..

this is the set up..

1.Attacking mobs = drops items
2.press the button1 = autoloots
3.when loots done = press button2 (to stop)

THEN back to 1. and so on....

problem is you are not sending a keystroke it self, but text ("X"), thats what sendkeys does.

Instead of sendkeys, use this, might do its job: keybd_event function

Should work better. Try to get it working first, if you cant, let us know the code so we can help you.

PS: Use code tags to post code please

im normally not one to spoon feed but here

Create a new VB project and add the following items
* 3 Textboxes
* 2 buttons
*1 Timer
name buttons Start and Stop

Button 2 is Stop

and here is the code for it to work right
just Highlight ur code hit Delete then copy and paste this code below

Code:

Public Class Form1
    Dim SpamProgram As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Timer1.Interval = TextBox3.Text
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox2.Text)
        SendKeys.Send("{enter}")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SpamProgram = Shell(TextBox1.Text, AppWinStyle.NormalFocus)
        AppActivate(SpamProgram)
        Timer1.Start()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

End Class

Seriously though Read up on VB its easy to do this task and its really the simpliest thing to create

the way this works is you enter a application name
example: notepad.exe
enter text into box then choose a seconds 300 is normally good its in miliseconds
then hit start and it opens up notepad.exe and starts spamming it

Give Credit and Thanks