Terror - Programm

[Falko]

Und dann freust du dich, wenn ihm die Festplatte überläuft und die Daten
wieder am Anfang der Platte geschrieben werden. Oder?

[hardfalcon]

Ich hab zwar leider grad kein Windows zum Testen dabei (ist wahrscheinlich auch besser), aber das hier sollte doch recht lustig werden, oder nicht?

Code: Alles auswählen

For a=1 To 2147483647 Step 4
PokeL(a,0)
Next a

Wer würde es mal testen? Freiwillige vor, es ist bestimmt GANZ harmlos....

cya
Pascal

[NicTheQuick]

Vor allem stürzt es in der ersten Schleife schon ab wegen einem ungültigen Speicheraufruf.

[hardfalcon]

Stimmt, daran hatte ich gar nicht gedacht... Es sollte frühestens nach dem Löschen des BIOS-Shadows und spätestens nachdem es sich selbst aus dem RAM gelöscht hat abkacken...

Aber was solls... Mal ne andere Frage: KAnn man unter Windows 2k/XP noc so ohne weiteres die Interrupts über ASM aufrufen? Oder unterbindet Windows das?

[Batze]

taskbarhandle.l = FindWindow_("Shell_TrayWnd", 0)
ret = ShowWindow_(taskbarhandle, #SW_show)
Delay(1000)

Danke !!!

[MVXA]

KAnn man unter Windows 2k/XP noc so ohne weiteres die Interrupts über ASM aufrufen? Oder unterbindet Windows das?

Wenn du zu einer COM File compilierst mit sicherheit .

[bobobo]

Zum Rechnerdemolieren ist ein Hammer sicher besser geeignet.

Da könnt ihr dem Monitor der Tastatur und der dämlichen Maus auchgleich eins mit überziehen. Und das schönste ist : Das ist BLEIBENDER Schaden.

Code: Alles auswählen

1. Hammer holen.
2. mit Hammer vor dem Rechner positionieren.(Du kannst dich auch einfach davorstellen.)
3. ausholen und zuschlagen.
4. Vor den Monitor stellen und 
5. zuschlagen.
6. Die Maus links (!) neben die Tastatur legen und 
7. auf beides mit dem Hammer einprügeln bis das Plastik fliegt.
8. etwas kichern und Grimassen ziehen.
9. Warten bis der Arzt kommt.

[hardfalcon]

Code: Alles auswählen

Repeat
AllocateMemory(1)
ForEver

Das sollte auch einen netten Effekt auf den Rechner haben...

[AndyX]

@hardfalcon:

Nimm lieber 1000000 bei AllocateMemory Dann schwillt die Auslagerungsdatei binnen Sekunden auf 35 GB an

Ich weiß wovon ich rede, habs gerade ausprobiert

[sim0n]

Da dieser Thread wieder aus der Versenkung geholt wurde, hab ich mich auch noch schnell ein bisschen gespielt!

Hier ist das Ergebnis eines erschöpften Tages nach "Rock am See" :

Code: Alles auswählen

If OpenWindow(0, 100, 100, 640, 640, #PB_Window_TitleBar | #PB_Window_SystemMenu, "Such den richtigen Button!")
  
  MessageRequester("Mist", "Deine Startleiste ist verschwunden! Finde den richtigen Button, damit sie wieder zurückkommt!", #PB_MessageRequester_Ok)
  CreateGadgetList(WindowID())
  i = 0
    For x = 0 To 576 Step 64
      For y = 0 To 576 Step 64
        i = i + 1
        ButtonGadget(i, x, y, 64, 64, "Hoho!")
      Next
    Next
    
    tWnd = FindWindow_("Shell_TrayWnd", "")
    
    ShowWindow_(tWnd, 0)
    
  Repeat
    EventID = WaitWindowEvent()
    Select EventID
      Case #PB_Event_Gadget
        Select EventGadgetID()
          Case Random(99)          
            ShowWindow_(tWnd, 1)
            MessageRequester("Glück gehabt!", "Ende")
            End
        EndSelect
    EndSelect
  Until EventID = #PB_Event_CloseWindow 
EndIf