1. مهمان گرامی، جهت ارسال پست، دانلود و سایر امکانات ویژه کاربران عضو، ثبت نام کنید.
    بستن اطلاعیه

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

شروع موضوع توسط ♥ yakamoz ♥ ‏27/3/11 در انجمن هک و امنیت

  1. کاربر ویژه

    تاریخ عضویت:
    ‏25/11/10
    ارسال ها:
    8,717
    تشکر شده:
    4,395
    امتیاز دستاورد:
    123
    حرفه:
    Telegram: vahid_yakamoz instagram: vahid_yakamoz
    [​IMG]هیچ می دانستید در ویندوز شما برنامه ی میزبانی نصب است که به صورت مستقیم می توانید با آن اسکریپت های خود را اجرا کنیم ؟ در این مطلب از آی تی گشت با استفاده از برنامه Notepad ویندوز کمی اسکریپت نویسی می کنیم و سعی می کنیم فایل هایی بسازیم که وقتی دوستان ما روی آن ها کلیک کردند کمی ترس را به چهره آن ها هدیه بدهیم. لازم به ذکر است هیچ کدام از این کدها نمی تواند صدمه ای به سیستم فرد مقابل بزنند و فقط برای این است که کمی با اسکریپت نویسی برای میزبان اسکریپت ویندوز ( WSH ) آشنا شویم.

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

    این کد هر یک ثانیه دکمه Caps Lock شما را می زند و خاموش و روشن می کند.
    مشاهده‌ی منبعچاپ؟

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


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

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

    01Set oWMP = CreateObject("WMPlayer.OCX.7")
    02Set colCDROMs = oWMP.cdromCollection
    03do
    04if colCDROMs.Count >= 1 then
    05For i = 0 to colCDROMs.Count - 1
    06colCDROMs.Item(i).Eject
    07Next
    08For i = 0 to colCDROMs.Count - 1
    09colCDROMs.Item(i).Eject
    10Next
    11End If
    12wscript.sleep 8000
    13loop


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

    کد زیر هم در هنگام اجرا به صورت خودکار نرم افزار Notepad ویندوز کاربر را باز می کند و در آن متنی می نویسد.
    مشاهده‌ی منبعچاپ؟

    01WScript.Sleep 1000
    02Set WshShell = WScript.CreateObject("WScript.Shell")
    03WshShell.Run "notepad"
    04WScript.Sleep 500
    05WshShell.AppActivate "Notepad"
    06WScript.Sleep 500
    07WshShell.SendKeys "sa"
    08WScript.Sleep 500
    09WshShell.SendKeys "lam "
    10WScript.Sleep 500
    11WshShell.SendKeys "ta h"
    12WScript.Sleep 500
    13WshShell.SendKeys "ala it"
    14WScript.Sleep 500
    15WshShell.SendKeys "gasht "
    16WScript.Sleep 500
    17WshShell.SendKeys "ro "
    18WScript.Sleep 500
    19WshShell.SendKeys "didid?"


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

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