Resources

[IKilledBambi]

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

Spammer.au3

expandcollapse popup

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

[Achilles]

Don't expect much help on a script like this.

[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.