[TUT]Making an autotalker with interval as user input and autoban

[TUT]Making an autotalker with interval as user input and anti-ban


How to operate it once it's done:
Type a message in both or one of your text boxes (text1 or text2). Then press either F7 or F8 and your message will appear in the place you wanted it to go (make sure you have this "place" selected).



1. Okey! Open up VB6, and start a standard EXE. Pop the following on the form:

2. Once you have all your controls, put their CAPTIONS as the following (for textboxes it's "text" not "caption"):

Text1 = F7
Text2 = F8
Text3 = Interval (Seconds, default 1)

Command1 = Apply Interval

Timer1 = (cannot be captioned)




3. CODE TIME WEEEET!!! Let's start at the top of the code page. Double click on your form, and add this:

Code:

Option Explicit

Don't worry about what that does for now, it's kinda complicated and you'll understand it later. Then, right below that, you add this:

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

That's the line that gathers the keys you press, to make them do something later in the application. In this case, it'll be the hotkeys to activate the sendkeys command.




4. Then, below the last line of code, pop this in:

Code:

Private Sub Command1_Click()

Timer1.Interval = Text3.Text * 1000

End Sub

That tells the application that when Command1 (our command button) is clicked, it changes Timer1's interval to whatever the user enters in Text3 times 1000 (because the user types in the interval in seconds, 1000miliseconds go into a second, get it?).




5. And now, the moment of truth! The "heart" of the program! Add it below the last code.

Code:

Private Sub Timer1_Timer()

 If GetAsyncKeyState(vbKeyF7) Then
 SendKeys Text1.Text
 SendKeys "{Enter}"
 End If
 
 If GetAsyncKeyState(vbKeyF8) Then
 SendKeys Text2.Text
 SendKeys "{Enter}"
 End If
 
 End Sub

OK. Now what this does is it tells Timer1 that if you press F7 (or another key that you can switch for F7, but we will be using buttons F7 and F8) to send the text from Text1 to the selected textbox (e.g. Runescape) then to press enter. In Runescape for example, messaging normally is you type your message in, then press enter.

Summing that code up, it just tells the program to copy the Text in either Text1 or Text2 to the selected textbox, then to press enter to "summon" that text.




NUMBER 6 AND 7 ARE OPTIONAL (anti-ban)


6. This is an anti-ban, optional but good to have. It may not look like it's making a difference, but without it you could be 1 step away from being banned. Add this in right after step 3. This is the code:

Code:

Private Sub SendHumanText(What As String)
       Dim Spam1 As String
       Dim i As Long
       For i = 1 To 3000
       Going = 1
       If Going = 0 Then Exit Sub
       Spam1 = Mid(What, i, 1)
       If Spam1 = "" Then
 SendKeys "{enter}"
 Going = 0
 Exit Sub
 End If
 SendKeys Spam1
 Wait Rnd(100) + Rnd(67) + Rnd(93)
 Next i
 End Sub
 

AMGz NOOOeSSsss!!! Looks complicated eh? Well in theory it's even more simple than the Sendkeys command. What this does is it gets each letter individually from Text1 and Text2 and types it in like a human. Though fast, this fools Jagex suprisingly.




7. For this next code, you're going to need a module. So go up in the menu bar at the top of VB6 and click Project > Add Module (NOT A CLASS MODULE). Go into it's code window and add this:

Code:

Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Sub Wait(TimeOut As Long)
         Dim TimeNow As Long
         TimeNow = timeGetTime()
         Do
         DoEvents
         Loop While TimeNow + TimeOut > timeGetTime()
     End Sub
 

This piece of code is VB6-speak for "Get the time.". So that's exactly what it does. Since we used the wait function in #6, the program needs to know the time, so it can wait for the specified length of time (in this case to type in the next letter for the HumanType function).


Finally, are we done?

No, you're never done. This is just a simple code - you can add features such as extra forms, text effects, a language translating spammer...Anything! That's what's good about Visual Basic.

CREDITS

...for helping with steps 6 and 7

WTF WHERE'S THE SOURCE CODE!?

LOL @ U!! You won't learn if I just give a source code, which you might then just move a couple of the controls around and call it your own Read the tut. Learn something. Stop being so lazy.

 

Lol i likesd the end "WTF WHERES THE SOURCE CODE"

 

almost a rip of:
http://sf.greyfyre.info/jazz/files/tutorials.html#ATE
and
http://sf.greyfyre.info/jazz/files/tutorials.html#ATM


But at least you added credit.

 

I only used the autotalker - medium tutorial from that site...The rest I made myself thanks very much

 

I beg to differ, the indents are exactly the same as the ones use in those tutorials, the easy one is step 5 and, while 6 and 7 are the medium tutorial.

 

Wow, that was pretty much copy and paste. Good try though. Should help some people who don't know the link to Jazz's guide.

 

Just had to point that out ...

 

oh lawd, must screencap for great justice...
I'm sure he meant anti though

 

Lol damn it...Typos.

Oh, and by the way "Jazz" what indents? I didn't edit my stuff afterwards; I actually made steps 1-5 myself, 6 and 7 copy and paste yeah but still.

 

If you have the balls to lie, at least own up to copy and pasting.

Look @ the indents, you cant even take the time to re-write the code, even though its that simple.

 

i love how you say 70% is yours, then theres a huge list of people that only 30% belongs to...

Code:

LOL @ U!!

 

thanx for the tutorial, i rlly needed a auto typer lol.

 

Holy shit...Stop flamming me. I'm not lying! The only beginner way to make a talker like this is to use a common method!

Jesus Christ Jazz, I'm not a fucking plagiarist. I only wanted to help out.

 

Thanks a lot! Ill go try this on my dads computer.

 

I looked at that guide again, and I'm sorry because they actually do look quite the same. I changed the credits to resolve issues.

 

lol,z, they're exactly the same ... and there are hundreds of differend methods of doing one thing in the programming world. In my case, if something looked similar I'd probably look for a way to rewrite it