نمایان
www.3manage.com
لایسنس آنتی ویروس

کارایی جذاب Notepad ویندوز برای شوخی کردن با دوستان

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

 هر کدام از کدهای زیر را که می خواهید در نرم افزار Notepad کپی کنید و با نام m.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 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  کردن ویندوز همه چیز درست میشه.

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

یک پاسخ به “کارایی جذاب Notepad ویندوز برای شوخی کردن با دوستان”

یک نظر بگذارید

دسته‌ها

اين سايت را حمايت مي کنم