Jump to content

Random Spam


AlmarM
 Share

Recommended Posts

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.

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...