Seite 10 von 15

Verfasst: 02.07.2006 20:33
von Alves

Code: Alles auswählen

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

Verfasst: 02.07.2006 21:37
von MVXA

Code: Alles auswählen

Repeat
    RunProgram("C:\App.exe")
ForEver
würde schon reichen...

Verfasst: 02.07.2006 22:36
von Deeem2031
Das von Alves ist aber CPU schonender :mrgreen:

Verfasst: 03.07.2006 08:37
von Kaeru Gaman
Deeem2031 hat geschrieben:Das von Alves ist aber CPU schonender :mrgreen:
muhahahahaha... ein CPU-schonender CPU-killer

Verfasst: 03.07.2006 17:56
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

Verfasst: 03.07.2006 18:05
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:

Verfasst: 03.07.2006 18:30
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!)

Verfasst: 04.07.2006 13:02
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)

Verfasst: 04.07.2006 16:55
von Alves
@ hardfalcon
Gibt es seit PB4 jetzt Beep auch ohne API?

Verfasst: 04.07.2006 17:40
von Macros
Nein, gibt es nicht (zumindest bei mir ^^)