Login Register
The stories and information posted here are artistic works of fiction and falsehood. Only a fool would take anything posted here as fact.


Your program in the official HC Programs? filter_list
Author
Message
RE: Your program in the official HC Programs? #39
(12-22-2012, 03:31 PM)NeoXen Wrote: Ok i think i git it.
Actually i'm not really the best designer you've ever seen, but i think it's "Close enough" Biggrin
[Image: 9fbwg3hs.png]

Is it ok now?

Download: Click here

Code:

Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\..\lol.ico #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1_1 = GUICreate("Spambot", 263, 275, 922, 209) GUISetBkColor(0x000000) $start = GUICtrlCreateButton("Start", 0, 88, 131, 49) GUICtrlSetColor(-1, 0xFF0000) $stop = GUICtrlCreateButton("Exit", 136, 88, 123, 49) GUICtrlSetColor(-1, 0xFF0000) $text = GUICtrlCreateInput("Text", 0, 144, 257, 21) GUICtrlSetColor(-1, 0xFF0000) $anzahl = GUICtrlCreateInput("Count", 0, 168, 257, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER)) GUICtrlSetColor(-1, 0xFF0000) $Label1 = GUICtrlCreateLabel("Press Esc to stop writing", 0, 192, 258, 24, $SS_CENTER) GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) $Label2 = GUICtrlCreateLabel("0/0", 0, 216, 258, 29, $SS_CENTER) GUICtrlSetFont(-1, 15, 400, 0, "Impact") GUICtrlSetColor(-1, 0xFF0000) $Label3 = GUICtrlCreateLabel("© NeoXen", 93, 248, 80, 17) GUICtrlSetFont(-1, 10, 400, 0, "BankGothic Md BT") GUICtrlSetColor(-1, 0xFF0000) $Pic1 = GUICtrlCreatePic("C:\Users\Banck\Desktop\Unbenannt.jpg", 0, 0, 260, 84) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### HotKeySet("{esc}","_Exit") Func _Exit() Exit EndFunc While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $start Sleep(5000) $echtertext = GUICtrlRead($text) $echteanzahl = GUICtrlRead($anzahl) $i = 0 While 2 opt("SendKeyDelay", 0) $echteanzahl = GUICtrlRead($anzahl) Send($echtertext) Send("{enter}") $i = $i + 1 if $i = $echteanzahl then MsgBox(0,"Finished","You just wrote -"&$echtertext&"- "&$echteanzahl&" times.") if $i = $echteanzahl then Exit GUICtrlSetData($Label2,$i + 1 & "/" & $echteanzahl) WEnd Case $stop Exit EndSwitch WEnd


Make the program bigger in width so that the logo is 100% scaled, it looks not in proportion now Wink

Reply





Messages In This Thread



Users browsing this thread: 1 Guest(s)