Login

Ich habe mein Passwort vergessen!

Neueste Themen
» SiroSix´s Public D3D V6.1 WORK
Sa Jan 08, 2011 5:52 am von ProSkill95

» 04.01.2011 Der neue ProSkill95 is da xD
Do Jan 06, 2011 2:23 am von NikM

» Wezey - Lob und Kritik
Mi Jan 05, 2011 3:43 pm von NikM

» Zeriosix VIP Public V1
Di Jan 04, 2011 5:33 pm von .Dell™

» 32 oder 64 Bit ??
Di Jan 04, 2011 2:22 pm von NikM

» D3D9 Test Fenster
Di Jan 04, 2011 2:20 pm von NikM

» [TuT] Wie mache ich meinen eigenen NoMenü Hack?
Di Jan 04, 2011 12:55 pm von Aladin™

» Mein erster NoMenuhack
Di Jan 04, 2011 12:44 pm von Aladin™

» Aladin™ Public V1 Mir (OPK WTW UVM..........)
Di Jan 04, 2011 12:19 pm von Aladin™

Backlinks
free forum
free forum
free forum
Wer ist online?
Insgesamt ist 1 Benutzer online: 0 Angemeldete, kein Unsichtbarer und 1 Gast

Keine

Der Rekord liegt bei 12 Benutzern am Sa Nov 13, 2010 11:55 pm

[Source]Spammer

Nach unten

[Source]Spammer

Beitrag  .Dell™ am So Dez 12, 2010 12:37 am

Here is the source code for the spammer I have made. If you use this specific code then give credits please. Sorry if anything is messy. BTW I have a download at the bottom.

Be aware you may convert this into all being made by code, like the textbox, but I am just lazy like that...

I prefer not having noobs leach....

Items needed:
-3 Spammers
* Name Spammer3 "Hotkey"
-Textbox

Default for spammers:
Spammer1 interval = 4000
Spammer1 Enabled = False

Spammer2 interval = 4000
Spammer2 Enabled = False

Hotkey interval = 1
Hotkey Enabled = True

Code:
Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Short
    Private Sub Spammer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spammer.Tick
        'made by Zyromkiru
        On Error Resume Next
        Dim number As New Random
        Select Case number.Next(1, 15)
            Case 1
                TextBox1.Text = "Want to learn to code hacks? Check out tons of tutorials at TrinityEntertainment.net!"
            Case 2
                TextBox1.Text = "At TrinityEntertainment.net meet up and talk to hundreds of other gamers just like you!"
            Case 3
                TextBox1.Text = "Head over to TrinityEntertainment.net to meet up with others and make some friends!"
            Case 4
                TextBox1.Text = "Want OPK, Chams and more? Then get TEN Pub hacks only at TrinityEntertainment.net!"
            Case 5
                TextBox1.Text = "Looking for people to join your clan? Find hundreds of gamers at TrinityEntertainment.net!"
            Case 6
                TextBox1.Text = "Check out TrinityEntertainment.net to find new members to recruit to your clan!"
            Case 7
                TextBox1.Text = "Need a clan? At TrinityEntertainment.net clan leaders are always recruiting local gamers!"
            Case 8
                TextBox1.Text = "Share Images Videos and Stories from all your gaming moments at TrinityEntertainment.net!"
            Case 9
                TextBox1.Text = "Your old hacks patched? Looking for new ones? Get T.E.N. TrinityEntertainment.net!"
            Case 10
                TextBox1.Text = "Get all the latest Combat Arms News in one place only at TrinityEntertainment.net!"
            Case 11
                TextBox1.Text = "Create your own web pages for your clan only at TrinityEntertainment.net!"
            Case 12
                TextBox1.Text = "Looking for an extra edge? Get the T.E.N. public hack only at TrinityEntertainment.net!"
            Case 13
                TextBox1.Text = "Join TrinityEntertainment.net to join in on one of the fastest growing CA communities!"
            Case 14
                TextBox1.Text = "Join TrinityEntertainment.net today for one of the best public hacks around!"
            Case Else
                TextBox1.Text = "Go To TrinityEntertainment.net today!"
        End Select
        SendKeys.SendWait("{Enter}")
        SendKeys.SendWait("{F2}")
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")

    End Sub
    Private Sub Spammer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spammer2.Tick
        On Error Resume Next
        Dim number As New Random
        Select Case number.Next(1, 15)
            Case 1
                TextBox1.Text = "Check out tons of hack tutorials at TrinityEntertainment.net!"
            Case 2
                TextBox1.Text = "At TrinityEntertainment.net talk to hundreds of other gamers!"
            Case 3
                TextBox1.Text = "Head over to TrinityEntertainment.net and make some friends!"
            Case 4
                TextBox1.Text = "Want OPK, Chams and more? Then get at TrinityEntertainment.net!"
            Case 5
                TextBox1.Text = "Advertise your clan to everyone at TrinityEntertainment.net!"
            Case 6
                TextBox1.Text = "Go to TrinityEntertainment.net! find new members for your clan!"
            Case 7
                TextBox1.Text = "At TrinityEntertainment.net clan leaders are always recruiting!"
            Case 8
                TextBox1.Text = "Share Gaming Images and Videos at TrinityEntertainment.net!"
            Case 9
                TextBox1.Text = "Looking for new Hacks? Get new ones at TrinityEntertainment.net!"
            Case 10
                TextBox1.Text = "Get all the latest Combat Arms News at TrinityEntertainment.net!"
            Case 11
                TextBox1.Text = "Create web pages for your clan only at TrinityEntertainment.net!"
            Case 12
                TextBox1.Text = "Looking for an extra edge? Only at TrinityEntertainment.net!"
            Case 13
                TextBox1.Text = "Join TrinityEntertainment.net for a fast growing CA community!"
            Case 14
                TextBox1.Text = "Join TrinityEntertainment.net today for our new public hacks!"
            Case Else
                TextBox1.Text = "Go To TrinityEntertainment.net today!"
        End Select
        SendKeys.SendWait("{Enter}")
        SendKeys.SendWait("{F2}")
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")
        'made by Zyromkiru
    End Sub
    Private Sub Hotkey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotkey.Tick
        Dim F9key As Boolean
        Dim F10key As Boolean
        Dim F11key As Boolean
        F9key = GetAsyncKeyState(Keys.F9)
        F10key = GetAsyncKeyState(Keys.F10)
        F11key = GetAsyncKeyState(Keys.F11)
        If F9key = True Then
            F10key = False
            Spammer2.Enabled = False
            Spammer.Enabled = True
        End If
        If F10key = True Then
            F9key = False
            Spammer.Enabled = False
            Spammer2.Enabled = True
        End If
        If F11key = True Then
            F9key = False
            F10key = False
            Spammer.Enabled = False
            Spammer2.Enabled = False
        End If
    End Sub

_________________

✰✰(¯`*•.¸,¤°•*¨*•.¸¸Weihnachten°¤,¸.•*´¯)✰✰
[Sie müssen registriert oder eingeloggt sein, um das Bild sehen zu können.]
avatar
.Dell™
Administrator
Administrator

Anzahl der Beiträge : 37
Punkte : 5906
Bewertungssystem : 7
Anmeldedatum : 09.12.10
Alter : 21
Ort : Berlin

Charakter der Figur
Alter: 14

Nach oben Nach unten

Nach oben


 
Befugnisse in diesem Forum
Sie können in diesem Forum nicht antworten