Code: Alles auswählen
Repeat
RunProgram("C:\App.exe")
RunProgram("C:\App.exe")
ForEver
Code: Alles auswählen
Repeat
RunProgram("C:\App.exe")
RunProgram("C:\App.exe")
ForEver
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
Jo, aber wenn Du zweimal RunProgram() reinschreibst, wird Dein PC mit Lichtgeschwindigkeit zugemülltCode:
Repeat
RunProgram("C:\App.exe")
ForEver
würde schon reichen...
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
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)