AlmarM Posted November 30, 2008 Share Posted November 30, 2008 Nothing to say this time expandcollapse popup#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 More sharing options...
JReinn Posted November 30, 2008 Share Posted November 30, 2008 (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 December 1, 2008 by WinneR Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now