AutoitHacks

Monze.a

Feb 20th, 2012
329
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.46 KB | None | 0 0
  1. ;||||||||||||||||||||||||||||||||||
  2. ;|||                            |||
  3. ;|||     www.AutoitHacks.tk     |||
  4. ;|||                            |||
  5. ;||||||||||||||||||||||||||||||||||
  6.  
  7. ; bye byetez  :D
  8.  
  9. #include <EditConstants.au3>
  10. #include <GUIConstantsEx.au3>
  11. #include <WindowsConstants.au3>
  12. $Form1 = GUICreate("Monze.a", 321, 250, -1, -1)
  13. GUISetBkColor(0xFFFFFF)
  14. $Edit1 = GUICtrlCreateEdit("", 8, 8, 305, 249, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL), 0)
  15. GUICtrlSetData(-1, "")
  16. GUICtrlSetFont(-1, 24, 800, 0, "Verdana")
  17. GUICtrlSetColor(-1, 0x00FF00)
  18. GUICtrlSetBkColor(-1, 0x000000)
  19. GUISetState(@SW_SHOW)
  20.  
  21.  
  22. While True
  23.     $nMsg = GUIGetMsg()
  24.     Switch $nMsg
  25.         Case $GUI_EVENT_CLOSE
  26.             Exit
  27.     EndSwitch
  28.  
  29.     Local $i = 0
  30.     Do
  31.     GUICtrlSetData($Edit1,$i)
  32.     $i = $i + 111111111111111111111111111111111111
  33.     Until $i = -1
  34.  
  35.  
  36. WEnd
  37.  
  38. ;|||||||||||||||||||||||||||||||||||||||
  39. ;||||                               ||||
  40. ;||||  http://youtu.be/tGH0Ktd9P30  ||||
  41. ;||||                               ||||
  42. ;|||||||||||||||||||||||||||||||||||||||
  43. ;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  44. ;||||                                                                   ||||
  45. ;|||| http://autoithacks.tk/2012/02/monze-a-dountilwhile-truesencillo/  ||||
  46. ;||||                                                                   ||||
  47. ;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Advertisement
Add Comment
Please, Sign In to add comment