Will the program be focused or no?
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?
longhornc2d (10-23-2012)
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
if you put the above in a timer it will send "x" everytime the timer ticks every 0.0001ms for example.Code:Dim SpamProgram As Integer SpamProgram= Shell("NOTEPAD.EXE", AppWinStyle.NormalFocus) AppActivate(SpamProgram) Computer.Keyboard.SendKeys("x",true);
Last edited by XiAtomikiX; 10-21-2012 at 02:21 PM.
longhornc2d (10-23-2012)
Im still wondering why people come to post out of nowhere to spoonfeed.
Light travels faster than sound. That's why most people seem bright until you hear them speak.
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
by the way i type X on the textboxCode: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
Last edited by 'Bruno; 10-22-2012 at 03:40 AM. Reason: add details
Wait wha?
How would the loot work? By coordinates?
I don't think VB will support some kind of bot
longhornc2d (10-23-2012)
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
Last edited by 'Bruno; 10-22-2012 at 03:40 AM.
Light travels faster than sound. That's why most people seem bright until you hear them speak.
longhornc2d (10-23-2012)
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.
Last edited by XiAtomikiX; 10-22-2012 at 11:42 AM.
longhornc2d (10-23-2012)
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
Seriously though Read up on VB its easy to do this task and its really the simpliest thing to createCode: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
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
Last edited by XiAtomikiX; 10-22-2012 at 05:28 PM.
longhornc2d (10-23-2012)
thnx all of you problem solve...