هیچ می دانستید در ویندوز شما برنامه ی میزبانی نصب است که به صورت مستقیم می توانید با آن اسکریپت های خود را اجرا کنیم ؟ در این مطلب از یک وب  با استفاده از برنامه Notepad ویندوز کمی اسکریپت نویسی می کنیم و سعی می کنیم فایل هایی بسازیم که وقتی دوستان ما روی آن ها کلیک کردند کمی ترس را به چهره آن ها هدیه بدهیم. لازم به ذکر است هیچ کدام از این کدها نمی تواند صدمه ای به سیستم فرد مقابل بزنند و فقط برای این است که کمی با اسکریپت نویسی برای میزبان اسکریپت ویندوز ( WSH ) آشنا شویم.

اسم این مطلب به نوعی دیگر میتوان ویروس نویسی گذاشت ، ولی این اسکریپت ها هیچ گونه آسیبی به سیستم نمیزنند و قابلیت انشار ندارند و فقط و فقط جهت شوخی و آشنایی با استفاده هایه اسکریپت نویسی میباشد..

البته نیازی به استفاده از نرم افزار Notepad به طور اختصاصی وجود ندارد و می توانید با هر نرم افزار ویرایشگر متن ساده دیگری اسکریپ نویسی کنید برای میزبان اسکریپت ویندوز فقط کافی است در انتها کد های خود را با پسوند vbs ذخیره کنید. با اجرای این نوع فایل ها به صورت اتوماتیک میزبان اسکریپت ویندوز که فایل wscript.exe است کدهای داخل این فایل ها را اجرا می کند. کافی است هر کدام از کدهای زیر را که می خواهید در نرم افزار Notepad کپی کنید و با نام abc.vbs ذخیره کنید.

این مطلب توسط دوست عزیزم آقا علی (در آِی تی گشت قدیم) نوشته شده است..

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

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

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

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

با کد زیر می تونید برای مثال هر ۸ ثانیه 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 yekweb"
WScript.Sleep 500
WshShell.SendKeys ".com "
WScript.Sleep 500
WshShell.SendKeys "ro "
WScript.Sleep 500
WshShell.SendKeys "didid?"

loop

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

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

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