Text Paster V1 | Paste your texts in Silkroad!

[Detroit49sos]

have you the source code ?

[JasonWalker]

i have but i wont share

[HaGsTeR]

Originally Posted by Detroit49sos

have you the source code ?

its to easy...
a very simple paste program in visual basic 6

Private Sub Command1_Click()
Timer1 = True
End Sub

Private Sub Timer1_Timer()
SendKeys Text1.Text
timer1 = False
End Sub

create a text box and a command button, and a timer... whrite for example 2000 as interval on the timer , whrite anything in the textbox, press the command button (make caption paste or whatever) switch to sro client select the chat and it will paste the text in 2 sec

or you create 2 text boxes and whrite the interval for the timer in textbox 2

Private Sub Command1_Click()
Timer1.Interval = Text2.Text
Timer1 = True
End Sub

Private Sub Timer1_Timer()
SendKeys Text1.Text
timer1 = False
End Sub
now you can deside how many seconds it should be before it sends the text....

1000 = 1 sec

to make a message counter:
create a label, make caption 0
and delete the code and then paste this

Private Sub Command1_Click()
Timer1.Interval = Text2.Text
Timer1 = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
SendKeys Text1.Text
Timer1 = False
End Sub

heres the source of my complete program with a loop of 5 messages (you can also press check boxes on how many messages u want it to send)

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


Form 2

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

Originally Posted by icowwww90

I cant make it on Sjsro

it should work, since its prutty much the same thing as pressing on your own keyboard

[ba7abak]

JasonWalker can u Update ur tools " Copy & Paste " not working with new Client .

[JasonWalker]

Originally Posted by HaGsTeR

its to easy...
a very simple paste program in visual basic 6

Private Sub Command1_Click()
Timer1 = True
End Sub

Private Sub Timer1_Timer()
SendKeys Text1.Text
timer1 = False
End Sub

create a text box and a command button, and a timer... whrite for example 2000 as interval on the timer , whrite anything in the textbox, press the command button (make caption paste or whatever) switch to sro client select the chat and it will paste the text in 2 sec

or you create 2 text boxes and whrite the interval for the timer in textbox 2

Private Sub Command1_Click()
Timer1.Interval = Text2.Text
Timer1 = True
End Sub

Private Sub Timer1_Timer()
SendKeys Text1.Text
timer1 = False
End Sub
now you can deside how many seconds it should be before it sends the text....

1000 = 1 sec

to make a message counter:
create a label, make caption 0
and delete the code and then paste this

Private Sub Command1_Click()
Timer1.Interval = Text2.Text
Timer1 = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
SendKeys Text1.Text
Timer1 = False
End Sub

heres the source of my complete program with a loop of 5 messages (you can also press check boxes on how many messages u want it to send)

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


Form 2

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






it should work, since its prutty much the same thing as pressing on your own keyboard

omg, noob this is not a msg spammer

[ba7abak]

Jason i need Copy & Paste working with Client not need Spammer :P , can u Edit ur Tools again to working

[DarkTwilight]

Unfortunately right now our servers are overloaded and we have no more download slots left for non-members. Of course you can also try again later. for the past 2 hours

[HaGsTeR]

Originally Posted by JasonWalker

omg, noob this is not a msg spammer

it is, a very simple one... try it

[JasonWalker]

HaGsTeR,
ok, you know. you are king!

[boody2010]

hi bro doesnt work on 1.235 for me at least u still update or iam doing something wrong?

[djekkoo]

autoit3?
*GUI*
$INPUT = GUICTRLCREATeIPNUT(x x x> x x x)
#GUIEND

$SENDING = guictrlread($INPUT)
CONTROLSEND(`SRO_CLIENT`,``,``,$sending)

something like that???

[Ferpa_]

work'n ksro?

[JESUSXS1]

Thx for Good work . Its fun

[maxvol]

haha write long sentences only 4 spam...

[Pochino]

Nice little Tool.
Thanks.