Got absolutely nothing to do?

netmaestro · Post by **netmaestro** » Fri Jun 09, 2006 4:47 pm

; netmaestro's mesmerizer (patent pending) 

Procedure addxes() 
  SetActiveGadget(0) 
  For i = 1 To 40 
    keybd_event_(#VK_X,0,0,0) 
    keybd_event_(#VK_X,0,#KEYEVENTF_KEYUP,0) 
    Debug GetGadgetItemText(0, 0, 0) 
    While WindowEvent():Wend 
    Delay(20) 
  Next 
EndProcedure 

Procedure takexes() 
  SetActiveGadget(0) 
  For i = 1 To 40 
    keybd_event_(#VK_BACK,0,0,0) 
    keybd_event_(#VK_BACK,0,#KEYEVENTF_KEYUP,0) 
    Debug GetGadgetItemText(0, 0, 0) 
    While WindowEvent():Wend 
    Delay(20) 
  Next 
EndProcedure 

OpenWindow(0, 0, 0, 220, 20, "You have to kill this with the debugger!", #PB_Window_ScreenCentered) 
CreateGadgetList(WindowID(0)) 
EditorGadget(0, 0, 0, 220, 20) 

Repeat 
  addxes() 
  takexes() 
ForEver

Dare · Post by **Dare** » Fri Jun 09, 2006 4:50 pm

hehe.

The debug output window looks nifty.

netmaestro · Post by **netmaestro** » Fri Jun 09, 2006 4:55 pm

There's actually a lot more to this than meets the eye. It has whole subsystems of subsystems that are monitoring your heartbeat and displaying the results! Every fifth iteration it is doing your breathing.

Dare · Post by **Dare** » Fri Jun 09, 2006 4:59 pm

Ack. I just held my breath and my system hung!

Joakim Christiansen · Post by **Joakim Christiansen** » Fri Jun 09, 2006 5:24 pm

This is the best program ever!!!!!
Thank you so much for sharing the source!!!!

srod · Post by **srod** » Fri Jun 09, 2006 6:29 pm

You b*stard, this just blew my computer's head gasket and sent my dog into shock!

dracflamloc · Post by **dracflamloc** » Fri Jun 09, 2006 7:18 pm

hahah, i think the real question is how bored are YOU?