|
You last visited: Today at 23:35
Advertisement
Text Paster V1 | Paste your texts in Silkroad!
Discussion on Text Paster V1 | Paste your texts in Silkroad! within the SRO Hacks, Bots, Cheats & Exploits forum part of the Silkroad Online category.
01/17/2010, 15:13
|
#31
|
elite*gold: 0
Join Date: May 2008
Posts: 20
Received Thanks: 0
|
have you the source code ?
|
|
|
01/23/2010, 11:06
|
#32
|
elite*gold: 0
Join Date: May 2008
Posts: 162
Received Thanks: 257
|
i have but i wont share
|
|
|
01/25/2010, 03:52
|
#33
|
elite*gold: 19
Join Date: Aug 2007
Posts: 2,731
Received Thanks: 1,800
|
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
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
|
|
|
02/02/2010, 22:37
|
#34
|
elite*gold: 0
Join Date: Sep 2008
Posts: 48
Received Thanks: 6
|
JasonWalker can u Update ur tools " Copy & Paste " not working with new Client .
|
|
|
02/05/2010, 10:03
|
#35
|
elite*gold: 0
Join Date: May 2008
Posts: 162
Received Thanks: 257
|
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
it should work, since its prutty much the same thing as pressing on your own keyboard
|
omg, noob this is not a msg spammer
|
|
|
02/05/2010, 16:23
|
#36
|
elite*gold: 0
Join Date: Sep 2008
Posts: 48
Received Thanks: 6
|
Jason i need Copy & Paste working with Client not need Spammer :P , can u Edit ur Tools again to working
|
|
|
02/07/2010, 19:52
|
#37
|
elite*gold: 20
Join Date: May 2007
Posts: 1,166
Received Thanks: 82
|
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
|
|
|
02/07/2010, 20:38
|
#38
|
elite*gold: 19
Join Date: Aug 2007
Posts: 2,731
Received Thanks: 1,800
|
Quote:
Originally Posted by JasonWalker
omg, noob this is not a msg spammer
|
it is, a very simple one... try it
|
|
|
02/11/2010, 14:15
|
#39
|
elite*gold: 0
Join Date: May 2008
Posts: 162
Received Thanks: 257
|
HaGsTeR,
ok, you know. you are king!
|
|
|
02/17/2010, 06:00
|
#40
|
elite*gold: 0
Join Date: Jan 2010
Posts: 6
Received Thanks: 1
|
hi bro doesnt work on 1.235 for me at least u still update or iam doing something wrong?
|
|
|
07/10/2010, 15:37
|
#41
|
elite*gold: 0
Join Date: Feb 2009
Posts: 9
Received Thanks: 0
|
autoit3?
*GUI*
$INPUT = GUICTRLCREATeIPNUT(x x x> x x x)
#GUIEND
$SENDING = guictrlread($INPUT)
CONTROLSEND(`SRO_CLIENT`,``,``,$sending)
something like that???
|
|
|
07/12/2010, 05:06
|
#42
|
elite*gold: 100
Join Date: Sep 2009
Posts: 1,193
Received Thanks: 379
|
work'n ksro?
|
|
|
10/10/2010, 03:59
|
#43
|
elite*gold: 0
Join Date: Feb 2010
Posts: 3
Received Thanks: 0
|
Thx for Good work . Its fun
|
|
|
10/12/2010, 07:13
|
#44
|
elite*gold: 0
Join Date: Jan 2010
Posts: 41
Received Thanks: 4
|
haha write long sentences only 4 spam...
|
|
|
10/12/2010, 13:04
|
#45
|
elite*gold: 115
Join Date: Apr 2009
Posts: 497
Received Thanks: 82
|
Nice little Tool.
Thanks.
|
|
|
|
|
Similar Threads
|
[unpatchable] F# Keys Paster Spammer
07/19/2010 - Combat Arms Hacks, Bots, Cheats & Exploits - 1 Replies
this is a program i've had for awhile that a friend of mine made (he beat me to it that lil rat bastard lol)
anyway...
How to use it:
Unrar it and place the exe anywhere
run the program
type in what ever you want said in the chat (or anywhere, this works everywhere)
Hit the corresponding F# key, and it will paste it and you can send it or w.e
|
Silkroad copy paste tool
05/04/2009 - SRO Private Server - 0 Replies
I need to talk chinese in sjsro.. i got a friend who is willing to translate from englisch to chinese and back but i cant type chinese. i know there is a copy paste tool, but i cant find it^^ could some1 help me please? i really need it so i can copy the chinese letters to sjsro. thanks
|
Copy / Paste TEXT (FINAL Version)
01/04/2009 - SRO Hacks, Bots, Cheats & Exploits - 26 Replies
http://i29.tinypic.com/2rhn5l2.png
Whats for ?
You can not paste copied text on SRO Client. This tool can help you. Example, You want send video link to your friend ^^
Features :
You can set 3 Shortcut Keys, your opinion
|
All times are GMT +2. The time now is 23:35.
|
|