شوخی با دوستان با استفاده از Notepad

خاموش و روشن کردن پشت سر هم Caps Lock

این کد هر یک ثانیه دکمه Caps Lock شما را می زند و خاموش و روشن می کند.

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

باز بسته کردن پشت سر هم دستگاه دیسک خوان

با کد زیر می تونید برای مثال هر 8 ثانیه CD-ROM یا DVD-ROM دوست خود را باز و بسته کنید. توجه داشته باشید که اگر روی سیستم دوست شما بیش از یک دیسک خوان هم نصب باشد تمامی دیسک خوان ها یکی یکی باز و بسته می شوند.

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 8000
loop

باز کردن Notepad و تایپ اتوماتیک یک پیغام

کد زیر هم در هنگام اجرا به صورت خودکار نرم افزار Notepad ویندوز کاربر را باز می کند و در آن متنی می نویسد.

WScript.Sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 500
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "sa"
WScript.Sleep 500
WshShell.SendKeys "lam "
WScript.Sleep 500
WshShell.SendKeys "ta h"
WScript.Sleep 500
WshShell.SendKeys "ala it"
WScript.Sleep 500
WshShell.SendKeys "gasht "
WScript.Sleep 500
WshShell.SendKeys "ro "
WScript.Sleep 500
WshShell.SendKeys "didid?"


چگونه متوقف کردن اجرای این کدها

همانطور که در بالا اشاره کردیم این کدها هیچگونه آسیبی به سیستم عامل و نرم افزار های دیگر وارد نمی کنند و همانطور که می بینید دو کد اول در یک حلقه بی پایان قرار دارند برای متوقف کردن اجرای این کدها از Task Manager ویندوز خود ( برای فراخوانی دکمه های Ctrl + Alt + Delete با هم فشار دهید و از منوی ظاهر شده گزینه Start Task Manager را بزنید ) در قسمت Processes این پنجره wscript.exe را انتخاب کنید و بر روی دکمه End process کلیک کنید.



و یا اگر موفق نشدید با Restart  کردن ویندوز همه چیز به حالت عادی و اولیه برمیگردد..