Text Paster V1 | Paste your texts in Silkroad!

have you the source code ?

i have but i wont share

Quote:

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


[Only registered and activated users can see links. Click Here To Register...]

Quote:

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

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

Quote:

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 [Only registered and activated users can see links. Click Here To Register...] it should work, since its prutty much the same thing as pressing on your own keyboard

omg, noob this is not a msg spammer

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

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

Quote:

Originally Posted by JasonWalker omg, noob this is not a msg spammer

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

HaGsTeR,
ok, you know. you are king!

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

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

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

something like that???

work'n ksro?

Thx for Good work . Its fun

haha write long sentences :D only 4 spam... :)

Nice little Tool.
Thanks.