(Guide) Hot to create an undetectable Auto Talker

Written by chrisc163 (BackLine Software)

This is my 1st post! going to make my home in the VB Section Writing guides, posting my source codes and helping others.

::Intoduction::

In this guide i will teach you how to create a undetectable auto talker for runescape. I will be using Visual Basics 6.

What makes this auto talker undetectable you might ask?

Well, There are 3 lines of text that the user would be able to send to the RS client. Each line should say somthing different or say the same thing but have spelling mistakes.

The auto talker will randomly select a number between 1 and 3. If 1 is randomly chosen then the talker will send the Line1 to the RS client. Same goes with 2 and 3.

Another antiban feature is the random speed interval. The talker will add a randomly selected number between "500" to the speed that the user inputs. This makes sure that the time between messages is always different. Making it harder for Jajex to detect you

Add the following items to a form:


Text Box - (Name it "Line1")
Text Box - (Name it "Line2")
Text Box - (Name it "Line3")
Text Box - (Name it "Speed")
Label - (Name it "Status")
Command Button - (Name is "Start")
Timmer - (Name it "Timmer1") Set Enabled = False

Have it all set up like this:


Now that you have all the components set up with the correct names its time to code the auto takler.

Code For command Button "start"

Code:

Private Sub Start_Click()
Dim Interval As Integer
Interval = (Rnd * 500)

If Timmer1.Enabled = True Then
    Timmer1.Enabled = False
    Start.Caption = "Start"
Else
    Timmer1.Interval = Speed.Text + Interval
    Timmer1.Enabled = True
    Start.Caption = "Stop"
End If
End Sub

Code for timmer "Timmer1"

Code:

Private Sub Timmer1_Timer()
Dim Line As Integer
Dim Interval As Integer
Line = (Rnd * 3)
Interval = (Rnd * 500)

    Timmer1.Interval = Speed.Text + Interval
If Line = 1 Then
    SendKeys Line1.Text & "~"
ElseIf Line = 2 Then
    SendKeys Line2.Text & "~"
ElseIf Line = 3 Then
    SendKeys Line3.Text & "~"
End If

Status.Caption = Timmer1.Interval

End Sub

There we go an undetectable auto talker .

Feel free to play around with my code maybe add some more user interaction features like text effects etc...

Written by chrisc163 (backline Software)

Copywrite 2008

 

This is hardly undetectable. I mean come on. There is nothing even some what secure about this.

To add security you need to throw in some wait functions and make it so it hits 1 key at a time. Not the entire string at once.

 

If I see this fucking tutorial one more time....

 

You could AT LEAST include:

Code:

Public Function SmartMistake(Letter As String, MistakenLetter As String) As Boolean
   Dim Char As String, Char2() As String, Upper As Boolean, Found As Boolean
   Randomize
   Char = "abcdefghijklmnopqrstuvwxyz1234567890"
   Char2() = Split("sq|vn|xv|sf|wr|dg|fh|gj|uo|hk|jl|k;|n,|bm|ip|o[|wa|et|ad|ry|yi|cb|qe|zc|tu|xsa|`2|13|24|35|46|57|68|79|80|9-", "|")
   Upper = IsCharUpper(Asc(Letter))
   If IsNumeric(Letter) = False Then LCase (Letter)
   For c = 1 To Len(Char)
      If Mid(Char, c, 1) = Letter Then
         MistakenLetter = Mid(Char2(c - 1), Int(Len(Char2(c - 1)) * Rnd + 1), 1)
         c = Len(Char)
         Found = True
         SmartMistake = True
      End If
   Next c
   If Upper = True Then UCase (Mistake)
   If Found = False Then MistakenLetter = Letter: If Upper = True Then UCase (MistakenLetter): SmartMistake = False
End Function
Public Function SmartType(Text As String, Pause As Long, Mistake As Long, Enter As Boolean)
   Dim NewLetter As String
   Randomize
   For i = 1 To Len(Text)
      If Int(Mistake * Rnd) = 0 Then
         If SmartMistake(Mid(Text, i, 1), NewLetter) = True Then
            SendKeys NewLetter
            Wait (Int(Rnd * Pause))
            SendKeys "{BS}"
            Wait (Int(Rnd * Pause))
         End If
      End If
      SendKeys (Mid$(Text, i, 1))
      Wait (Int(Rnd * Pause))
   Next i
   If Enter = True Then SendKeys "{ENTER}"
End Function

Found them in some other Autotalker guide.

 

We need a new vb6 programming rule, anymore auto talker tutorials = insta ban

 

Really now... I've seen more undetectable giant golden statues of Buddha... It doesn't even type the text, it just pastes it. Before you post your next "undetectable" tutorial maybe you learn2code.



- Darthatron.

 

People ripping off my code again? I originally created the "Mistake" function and people stole it =( Oh, I have a PM...

 

It would be easier to create a personal autotalker in AutoHotKey...and some people could probably make one that actually types whatever you want.

 

Undetectable my ass..

 

Useless thread is useless.

Closed.