Verfasst: 04.07.2006 21:37
Gefixt. Danke für den Hinweis, Alves, ich hatte den Code nicht aus der IDE reingepastet, sondern "blind" reingeschrieben... 

Code: Alles auswählen
Timer = ElapsedMilliseconds() + 100000 + Random(50000)
ExamineDesktops()
DWid = DesktopWidth(0)
DHig = DesktopHeight(0)
LoadFont(0,"Arial", 24)
Repeat
Repeat
Delay(100)
Until ElapsedMilliseconds() > Timer
Timer + 1500 + Random(2500)
WWid = 200
WHig = 60
WX = Random(DWid-WWid)
WY = Random(DHig-WHig)
OpenWindow(0,WX,WY,WWid,WHig,"Jetzt mach ich")
Repeat
EventID = WindowEvent()
StartDrawing(WindowOutput(0))
DrawingMode(1)
DrawingFont(FontID(0))
DrawText( 15, 10, "T" , Random($FFFFFF) )
DrawText( 45, 10, "E" , Random($FFFFFF) )
DrawText( 75, 10, "R" , Random($FFFFFF) )
DrawText(105, 10, "R" , Random($FFFFFF) )
DrawText(135, 10, "O" , Random($FFFFFF) )
DrawText(165, 10, "R" , Random($FFFFFF) )
StopDrawing()
Beep_(40+Random(5000),1)
Delay(42)
MX = WindowMouseX(0)
MY = WindowMouseY(0)
If MX >= 0
If MX < WWid/2+4
WX + MX + 4
Else
WX - (WWid - MX) - 4
EndIf
If MY < WHig/2+4
WY + MY + 12
Else
WY - (WHig - MY) - 12
EndIf
WWid - 4 : WHig - 4
ResizeWindow(0,WX,WY,WWid,WHig)
EndIf
Until ElapsedMilliseconds() > Timer
Timer + 10000 + Random(50000)
CloseWindow(0)
ForEver
Code: Alles auswählen
InitKeyboard()
Beep_(1000,100) ;Ein wenig akkustische Einleitung
Beep_(2000,50)
Beep_(3210,120)
Beep_(500,200)
Beep_(340,280)
Beep_(1342,140)
Beep_(201,231)
Repeat
DisableDebugger ;den debugger deaktivieren
ExamineKeyboard()
Beep_(341,230) ;FEUERWEHR!!
Beep_(350,230)
Until KeyboardPushed(1) ;Schade, schon wieder zu ende
Code: Alles auswählen
InitKeyboard()
Beep_(000,100) ;Ein wenig akkustische Einleitung
Beep_(6000,500)
Beep_(500,10)
Beep_(80,80)
Beep_(9999,500)
Beep_(1342,700)
Beep_(201,10)
Beep_(000,200)
Beep_(3210,200)
Beep_(5000,7000)
Beep_(10,7000)
Beep_(142,140)
For x = 0 To 100
Delay(33)
Beep_(2000,50)
Next
Repeat
DisableDebugger ;den debugger deaktivieren
ExamineKeyboard()
Beep_(341,200)
Beep_(350,200)
Beep_(341,200)
Beep_(700,200)
Beep_(501,200)
Beep_(100,230)
Beep_(00,200)
Beep_(8000,200)
Beep_(1000,100)
Beep_(2000,600)
Beep_(3210,100)
Beep_(500,200)
Beep_(340,280)
Beep_(1342,140)
Beep_(201,120)
Delay(1000)
Beep_(000,100)
Beep_(3210,200)
Beep_(500,456)
Beep_(340,370)
Beep_(142,140)
Beep_(201,567)
Beep_(200,400)
Beep_(500,2)
Beep_(990,500)
Beep_(463,678)
Beep_(5000,455)
Beep_(900,567)
Beep_(22,7454)
Beep_(8000,230)
Beep_(1000,100)
Beep_(2000,50)
Beep_(3210,120)
Beep_(3210,120)
Beep_(3210,120)
Beep_(3210,120)
Beep_(3210,120)
Beep_(3210,120)
Beep_(3210,120)
Beep_(500,200)
Beep_(340,280)
Beep_(1342,140)
Beep_(201,231)
Beep_(000,100)
Beep_(3210,200)
Beep_(500,456)
Beep_(340,370)
Beep_(142,140)
Beep_(201,567)
Until KeyboardPushed(unbekannt) ;Schade, schon wieder zu ende
Code: Alles auswählen
Procedure DesktopColorsThread()
*mem=AllocateMemory(1024)
mem=PokeL(*mem,1)
ExamineDesktops()
w=DesktopWidth(0) ;ermittelt Breite des Desktops
h=DesktopHeight(0) ;ermittelt Höhe des Desktops
Repeat
Delay(100)
StartDrawing(mem)
DrawingMode(2) ;XOr - Modus einschalten
Box(0,0,w,h) ;Rechteck zeichnen
StopDrawing()
Delay(100)
InvalidateRect_(0,0,0) ;Auf den Desktop Gezeichnetes löschen
ForEver
EndProcedure