Auto talker?

[nakedfish]

does any1 have any autotalker for share?
since the stallnetwork isnt working.. i need a good spamm machine

[thebiggestpervert]

no

[Mооn]

yes

[dume_jr]

try this one :


NEXT TIME USE THE SEARCH BUTTON

[_FoulSoul_]

ISRO spamm tools working for pservers aswell....

[dume_jr]

that's whz i pointed to that tool!

[nakedfish]

well this is not working for me :/

[Kyuzo Satsuki]

Auto talker, auto taaaaaaaalker, auto talkeeeeeeeeeeeer, ooooo yeahhh.
Is that a plane?! A bird?! Noo its Auto talker!
You never fear, auto talker is here!
LMAO
...auto talker... rotfl

[HaGsTeR]

Source:

 Spoiler

Private Sub Command1_Click()
Timer1 = True
If Check6.Value = 1 Then
Timer7 = True
End If
If Check6.Value = 0 Then
Timer7 = False
End If
Command1.Enabled = False
Command2.Enabled = True
Timer1.Interval = Text6.Text
End Sub

Private Sub Command2_Click()
Timer1 = False
Timer2 = False
Timer3 = False
Timer4 = False
Timer5 = False
Timer6 = False
Command1.Enabled = True
Command2.Enabled = False
Label9.Caption = "0"
End Sub

Private Sub Command3_Click()
Form2.Show
Form2.iText1.Text = Timer2.Interval
Form2.iText2.Text = Timer3.Interval
Form2.iText3.Text = Timer4.Interval
Form2.iText4.Text = Timer5.Interval
End Sub

Private Sub Timer1_Timer()
Timer2 = True
End Sub

Private Sub Timer2_Timer()
If Check1.Value = 1 Then
SendKeys Text1.Text
SendKeys "{enter}"
Timer3 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer2 = False
End If
If Check1.Value = 0 Then
Timer3 = True
Timer2 = False
End If
End Sub

Private Sub Timer3_Timer()
If Check2.Value = 1 Then
SendKeys Text2.Text
SendKeys "{enter}"
Timer4 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer3 = False
End If
If Check1.Value = 0 Then
Timer4 = True
Timer3 = False
End If
End Sub

Private Sub Timer4_Timer()
If Check3.Value = 1 Then
SendKeys Text3.Text
SendKeys "{enter}"
Timer5 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer4 = False
End If
If Check3.Value = 0 Then
Timer5 = True
Timer4 = False
End If
End Sub

Private Sub Timer5_Timer()
If Check4.Value = 1 Then
SendKeys Text4.Text
SendKeys "{enter}"
Timer6 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer5 = False
End If
If Check4.Value = 0 Then
Timer6 = True
Timer5 = False
End If
End Sub

Private Sub Timer6_Timer()
If Check5.Value = 1 Then
SendKeys Text5.Text
SendKeys "{enter}"
Timer2 = True
Label9.Caption = Val(Label9.Caption) + 1
Timer6 = False
End If
If Check5.Value = 0 Then
Timer2 = True
Timer6 = False
End If
End Sub

Private Sub Timer7_Timer()
If Val(Label9.Caption) > Val(Text7.Text) Then
Timer1 = False
Timer2 = False
Timer3 = False
Timer4 = False
Timer5 = False
End If
End Sub

 Spoiler

Private Sub Command1_Click()
Form1.Timer2.Interval = iText1.Text
Form1.Timer3.Interval = iText2.Text
Form1.Timer4.Interval = iText3.Text
Form1.Timer5.Interval = iText4.Text
End Sub

Private Sub Command2_Click()
MsgBox "In these text boxes you change the delay between each message it should send", vbOKOnly, "What is this?"
End Sub

Screenshot


Got boored so why not
Also if you uncheck like message 2 but still have 3/4/5 checked the loop will end and only send message 1 , so if you want it to send like 3 messages disable the forth messsage

[sergiu1]

put the lick again plz

[desperadox123]

omg don't post programs like this unless u want more spamers in town... thats realy anoing...

[xclusive™]

dont bump old threads >.<