PureBasic Forums - English

Posted: **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

Posted: **Fri Jun 09, 2006 4:50 pm**

hehe.

The debug output window looks nifty.

Posted: **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.

Posted: **Fri Jun 09, 2006 4:59 pm**

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

Posted: **Fri Jun 09, 2006 5:24 pm**

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

Posted: **Fri Jun 09, 2006 6:29 pm**

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

Posted: **Fri Jun 09, 2006 7:18 pm**

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

PureBasic Forums - English

Got absolutely nothing to do?

Got absolutely nothing to do?