Sign in to follow this  
Followers 0
AlmarM

Random Spam

2 posts in this topic

Nothing to say this time :)

#include <GUIConstants.au3>

Global $Num = 0, $Combo1

$GUI = GUICreate("Random Spam~", 320, 125, -1, -1)
$Combo1 = GUICtrlCreateCombo("Select Window", 10, 10, 300)
$Start = GUICtrlCreateButton("Start", 10, 95, 300)
$All = GUICtrlCreateRadio("All Chars", 10, 40)
$Normal = GUICtrlCreateRadio("Normal Chars", 100, 40)
$Custom = GUICtrlCreateRadio("Custom Chars:", 10, 65)
$InputBox = GUICtrlCreateInput("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstucvwxyz!@#$%^&*()_+=-[]}{;:<,>.?1234567890", 100, 65, 210)
GUICtrlSetState($All, 1)
GUICtrlSetState($InputBox, $GUI_DISABLE)

_Refresh()

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = -3
        Exit
    Case $nMsg = $Start
        $Times = InputBox("* Spam *", "Hoe many times sould I spam?", "", "", 100, 120)
        $Read_Window = GUICtrlRead($Combo1)
        If Not WinActive($Read_Window) Then WinActivate($Read_Window)
            WinWait($Read_Window)
        If GUICtrlRead($All) = 1 Then
            $Array = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstucvwxyz!@#$%^&*()_+=-[]}{;:<,>.?1234567890"
            _Spam($Array)
        ElseIf GUICtrlRead($Normal) = 1 Then
            $Array = "abcdefghijklmnopqrstuvwxyz1234567890"
            _Spam($Array)
        Else
            $Read = GUICtrlRead($InputBox)
            _Spam($Read)
        EndIf
    Case $nMsg = $Custom
        GUICtrlSetState($InputBox, $GUI_ENABLE)
    Case $nMsg = $All
        GUICtrlSetState($InputBox, $GUI_DISABLE)
    Case $nMsg = $Normal
        GUICtrlSetState($InputBox, $GUI_DISABLE)
    EndSelect
WEnd

Func _Refresh()
    $List = WinList()
    For $i = 1 To $List[0][0]
        If $List[$i][0] <> "" And IsVisible($List[$i][1]) Then
            GUICtrlSetData($Combo1, $List[$i][0])
        EndIf
    Next
EndFunc

Func IsVisible($Handle)
    If BitAnd(WinGetState($Handle), 2) Then 
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Func _Send($nText, $nExtra)
    $OldClip = ClipGet()
    ClipPut($nText)  
    Send("^v")
    Send($nExtra)
    ClipPut($OldClip)
EndFunc

Func _RandomAll($nsArray)
    $xArray = StringSplit($nsArray, "")
    $Output = ""
    For $X = 1 To Random(1, 5, 1)
        $Output &= $xArray[Random(1, $xArray[0], 1)]
    Next
    Return $Output
EndFunc

Func _Spam($nArray)
    Do
        $nRandom = _RandomAll($nArray)
        _Send($nRandom, "{ENTER}")
        $Num += 1
    Until $Num = $Times
EndFunc

AlmarM


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Thanks it works! :)

Edit. Hey! I tried to change the bot, so it would spam what you input into the InputBox... but Can't seem to figure out what to delete... Could you help me?

Edited by WinneR

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  
Followers 0