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.
Benutzeravatar
Alves
Beiträge: 1208
Registriert: 19.04.2006 18:24
Kontaktdaten:

Beitrag von Alves »

Code: Alles auswählen

Repeat
RunProgram("C:\App.exe")
RunProgram("C:\App.exe")
ForEver 
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

Code: Alles auswählen

Repeat
    RunProgram("C:\App.exe")
ForEver
würde schon reichen...
Bild
Benutzeravatar
Deeem2031
Beiträge: 1232
Registriert: 29.08.2004 00:16
Wohnort: Vorm Computer
Kontaktdaten:

Beitrag von Deeem2031 »

Das von Alves ist aber CPU schonender :mrgreen:
Bild
[url=irc://irc.freenode.org/##purebasic.de]irc://irc.freenode.org/##purebasic.de[/url]
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

Deeem2031 hat geschrieben:Das von Alves ist aber CPU schonender :mrgreen:
muhahahahaha... ein CPU-schonender CPU-killer
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Benutzeravatar
Farodin
Beiträge: 35
Registriert: 16.05.2006 18:49
Wohnort: bei mir zuhause
Kontaktdaten:

Beitrag von Farodin »

so, ich werd mich hier auch mal beteiligen...

ein "Terror-Fenster-Öffner-Programm" mit sicherheitsabschaltung per escape...

Code: Alles auswählen

Global NeueFensterNummer = 1

Procedure Open()
  OpenWindow(NeueFensterNummer,Random(824),Random(668),200,100,"Scheisse",#PB_Window_SystemMenu)
  NeueFensterNummer + 1
EndProcedure

OpenWindow(0,Random(824),Random(668),200,100,"Scheisse",#PB_Window_SystemMenu)

Repeat 
  EventID = WaitWindowEvent()
  If EventID = #PB_Event_CloseWindow 
    Open()
    Open()
  EndIf
  If GetAsyncKeyState_(#VK_ESCAPE)
     End
  EndIf
ForEver
Warning! Exception Error in Life.exe
Task will be shut down.

verwende version 4.10 unter Windows
Benutzeravatar
ZeHa
Beiträge: 4760
Registriert: 15.09.2004 23:57
Wohnort: Friedrichshafen
Kontaktdaten:

Beitrag von ZeHa »

Code:
Repeat
RunProgram("C:\App.exe")
ForEver


würde schon reichen...
Jo, aber wenn Du zweimal RunProgram() reinschreibst, wird Dein PC mit Lichtgeschwindigkeit zugemüllt ;) ansonsten dauerts ja ewig, das ist ja dann Soft-Terror... :mrgreen:
Bild     Bild

ZeHa hat bisher kein Danke erhalten.
Klicke hier, wenn Du wissen möchtest, woran ihm das vorbeigeht.
Benutzeravatar
hardfalcon
Beiträge: 3447
Registriert: 29.08.2004 20:46

Beitrag von hardfalcon »

Code: Alles auswählen

Structure llmouse
  p.POINT
  mouseData.w
  flags.w
  time.w
  dwExtraInfo.w
EndStructure
Procedure.l mousehook(nCode,wParam,*p.llmouse)
  If wParam = 513
    MessageRequester("Hook","Lerne die Vorzüge deiner Tastatur zu schätzen!")
    ProcedureReturn 1
    Else
    ProcedureReturn CallNextHookEx_(0,nCode,wParam,*p)
  EndIf
EndProcedure
SetWindowsHookEx_(#WH_MOUSE_LL,@mousehook(),GetModuleHandle_(0),0)
Repeat
WaitWindowEvent()
ForEver

Code: Alles auswählen

Repeat
  If GetAsyncKeyState_(#VK_LBUTTON) Or GetAsyncKeyState_(#VK_MBUTTON) Or GetAsyncKeyState_(#VK_RBUTTON)
    Beep_(Random(50)*100,1)
  EndIf
ForEver
//EDIT: Bug im 2. Codeschnipsel gefixt (danke Alves!)
Zuletzt geändert von hardfalcon am 04.07.2006 21:36, insgesamt 2-mal geändert.
Jilocasin
Beiträge: 665
Registriert: 13.05.2006 16:04
Kontaktdaten:

Beitrag von Jilocasin »

Hihi... Windows mal komplett:

Code: Alles auswählen

; "Drucker & Faxgeräte"-Fenster
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", NULL); 
result = SendMessage_ (Shell_TrayWnd,$111,510,0) 
result = SendMessage_ (Shell_TrayWnd,$111,66046,0) 

; "Computer ausschalten"-Fenster
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", NULL); 
result = SendMessage_ (Shell_TrayWnd,$111,506,0) 
result = SendMessage_ (Shell_TrayWnd,$111,66042,0) 

; Alle Fenster minimieren
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", NULL) 
result = SendMessage_ (Shell_TrayWnd,$111,419,0) 

; Alle Fenster wiederherstellen
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", NULL); 
result = SendMessage_ (Shell_TrayWnd,$111,416,0) 

; Systemsteuerung öffnen
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,505,0)

; "Hilfe & Support"-Fenster
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,503,0)
result = SendMessage_ (Shell_TrayWnd,$111,66039,0)

; "Eigenschaften von Taskleiste und Startmenü"-Fenster
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,413,0)
result = SendMessage_ (Shell_TrayWnd,$111,65949,0)

; "Datum und Zeit"-Fenster
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,408,0)
result = SendMessage_ (Shell_TrayWnd,$111,65944,0)

; Fenster -> "Tile" 
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,405,0)

; Fenster -> "Tile" (Horizontal)
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,65940,0)
result = SendMessage_ (Shell_TrayWnd,$111,65941,0)

; Fenster -> "Cascade"
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,403,0)
result = SendMessage_ (Shell_TrayWnd,$111,65939,0)

; "Ausloggen"-Fenster
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,402,0)
result = SendMessage_ (Shell_TrayWnd,$111,5000,0)
result = SendMessage_ (Shell_TrayWnd,$111,65938,0)

; "Ausführen"-Fenster
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,401,0)
result = SendMessage_ (Shell_TrayWnd,$111,65937,0)
  
; Startmenü öffnen
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,305,0)
result = SendMessage_ (Shell_TrayWnd,$111,65841,0)

; Task Manager öffnen
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,420,0)
result = SendMessage_ (Shell_TrayWnd,$111,65956,0)

; "Eigenschaften von Taskbar und Startmenu" -> "Anpassen"-Fenster öffnen
Shell_TrayWnd= FindWindow_("Shell_TrayWnd", 0)
result = SendMessage_ (Shell_TrayWnd,$111,421,0)
result = SendMessage_ (Shell_TrayWnd,$111,65957,0)
Bild
Benutzeravatar
Alves
Beiträge: 1208
Registriert: 19.04.2006 18:24
Kontaktdaten:

Beitrag von Alves »

@ hardfalcon
Gibt es seit PB4 jetzt Beep auch ohne API?
Benutzeravatar
Macros
Beiträge: 1361
Registriert: 23.12.2005 15:00
Wohnort: Olching(bei FFB)
Kontaktdaten:

Beitrag von Macros »

Nein, gibt es nicht (zumindest bei mir ^^)
Antworten