Jump to content
Sign in to follow this  
IKilledBambi

Resources

Recommended Posts

IKilledBambi

I'm trying to make a spam script for the knowledge of it.

Spammer.au3

HotKeySet("{f5}", "Start1")
HotKeySet("{f6}", "Start2")
HotKeySet("{f7}", "Start3")
HotKeySet("{f8}", "Start4")

Global $i = 0
Call("Gadget")
$var2 = IniRead(@DesktopDir & "\Spammer.ini", "Counting Up And Down", "Number To Go Up To", "100")
$var3 = IniRead(@DesktopDir & "\Spammer.ini", "Counting Up And Down", "SpeedOfTyping", "0")

While 1
    Sleep(10)
WEnd

Func Gadget()
    If FileExists(@DesktopDir & "\Spammer.ini") Then
        Return
    Else
        $sIni = @DesktopDir & "\Spammer.ini"
        $sData = "Speed=1" & @LF & "Number To Go Up To=100" & @LF & "Number To Go Down From=0"
        $sData1 = "Words1=Spammity Calamity" & @LF & "Random=1" & @LF & "Words2=Spam2" & @LF & "Words3=Spam3" & @LF & "Words4=Spam4" & @LF & "Words5=Spam5" & @LF & "Words6=Spam6"
        IniWriteSection($sIni, "Counting Up And Down", $sData)
        IniWriteSection($sIni, "Words", $sData1)
    EndIf
EndFunc  ;==>Gadget

Func Start1()
    $var1 = IniRead(@DesktopDir & "\Spammer.ini", "Counting Up And Down", "Speed", "1")
    $var2 = IniRead(@DesktopDir & "\Spammer.ini", "Counting Up And Down", "Number To Go Up To", "100")
    Opt("SendKeyDelay", $var1)
    $i = 0
    Do
        ClipPut($i)
        Send("^v{enter}")
        $i = $i + 1
    Until $i > $var2
EndFunc  ;==>Start1

Func Start2()
    $var1 = IniRead(@DesktopDir & "\Spammer.ini", "Counting Up And Down", "Speed", "1")
    $var3 = IniRead(@DesktopDir & "\Spammer.ini", "Counting Up And Down", "Number To Go Down From", "0")
    Opt("SendKeyDelay", $var1)
    $i = -100
    Do
        ClipPut($i)
        Send("^v{enter}")
        $i = $i + 1
    Until $i > $var3
    Send("{backspace}")
    $i = 0
EndFunc  ;==>Start2

Func Start3()
    $var5 = IniRead(@DesktopDir & "\Spammer.ini", "Words", "Random", "1")
    If $var5 >= 1 Then
        Call("Start5")
    Else
        $var1 = IniRead(@DesktopDir & "\Spammer.ini", "Counting Up And Down", "Speed", "1")
        $var4 = IniRead(@DesktopDir & "\Spammer.ini", "Words", "Words1", "Spam.")
        Opt("SendKeyDelay", $var1)
        ClipPut($var4)
        While 1
            Send("^v{enter}")
        WEnd
    EndIf
EndFunc  ;==>Start3

Func Start4()
    While 1
        Sleep(100)
    WEnd
EndFunc  ;==>Start4

Func Start5()
    $var1 = IniRead(@DesktopDir & "\Spammer.ini", "Counting Up And Down", "Speed", "1")
    Opt("SendKeyDelay", $var1)
    While 1
        $r1 = Random(1, 5, 1)
        If $r1 = 1 Then
            $var5 = IniRead(@DesktopDir & "\Spammer.ini", "Words", "Words2", "Spam.")
            ClipPut($var5)
            Send("^v{enter}")
        ElseIf $r1 = 2 Then
            $var6 = IniRead(@DesktopDir & "\Spammer.ini", "Words", "Words3", "Spam.")
            ClipPut($var6)
            Send("^v{enter}")
        ElseIf $r1 = 3 Then
            $var7 = IniRead(@DesktopDir & "\Spammer.ini", "Words", "Words4", "Spam.")
            ClipPut($var7)
            Send("^v{enter}")
        ElseIf $r1 = 4 Then
            $var8 = IniRead(@DesktopDir & "\Spammer.ini", "Words", "Words5", "Spam.")
            ClipPut($var8)
            Send("^v{enter}")
        ElseIf $r1 = 5 Then
            $var9 = IniRead(@DesktopDir & "\Spammer.ini", "Words", "Words6", "Spam.")
            ClipPut($var9)
            Send("^v{enter}")
        EndIf
    WEnd
EndFunc  ;==>Start5

Spammer.ini

[Counting Up And Down]
Speed=1
Number To Go Up To=100
Number To Go Down From=0
[Words]
Words1=Spammity Calamity.
Random=1
Words2=Spam2
Words3=Spam3
Words4=Spam4
Words5=Spam5
Words6=Spam6

Share this post


Link to post
Share on other sites
IKilledBambi

It's completely for fun, there is no evil purpose going into the script. I'm merely making it to further my AI knowledge. If it were malicious I would not have taken the script here. I am not a big fan of malicious.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.