شما وارد حساب خود نشده و یا ثبت نام نکرده اید. لطفا وارد شوید یا ثبت نام کنید تا بتوانید از تمامی امکانات انجمن استفاده کنید.


تبليغات
سامانه ي پيامکي آز پي ان يو مقالات ISI
فروشگاه اينترنتي آز پي ان يو خريد شارژ آز پي ان يو

شوخی با دوستان با استفاده از کد نویسی در Notepad ویندوز زمان کنونی: ۱۷-۹-۱۳۹۵، ۰۵:۵۵ :عصر
کاربرانِ درحال بازدید از این موضوع: 1 مهمان
نویسنده: The DaRk PrOpheT
آخرین ارسال: The DaRk PrOpheT
پاسخ: 1
بازدید: 1973

ارسال پاسخ 
 
امتیاز موضوع:
  • 37 رأی - میانگین امتیازات: 3.65
  • 1
  • 2
  • 3
  • 4
  • 5

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

۸-۹-۱۳۹۰, ۰۶:۲۳ :صبح
ارسال: #1
شوخی با دوستان با استفاده از کد نویسی در Notepad ویندوز
البته نیازی به استفاده از نرم افزار 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
باز بسته کردن پشت سر هم دستگاه دیسک خوان

با کد زیر می تونید برای مثال هر 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 کلیک کنید.



منبع
آی تی گشت
بودن آدم عین هو امضاشه...
-متین فروزنده:؟؟
-حاضر...
همین که خودمم نه یکی دیگه،یعنی:
امضا،متین فروزنده...
مشاهده‌ی وب‌سایت کاربر یافتن تمامی ارسال‌های این کاربر
نقل قول این ارسال در یک پاسخ
 سپاس شده توسط Masoud Ebrahimi
ارسال پاسخ 


کسانی که از این موضوع بازدید کرده اند . . . ( آز پی ان یو )
2 کاربر زیر موضوع را خوانده اند:
AliReza (۲۰-۴-۱۳۹۲, ۱۲:۰۱ :عصر)، amiralijj (۲۷-۵-۱۳۹۵, ۱۱:۲۷ :عصر)

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان


آپلودسنتر آز پي ان يو تالار گفتمان آز پي ان يو
تبلیغات نیازمندی های استان چهارمحال و بختیاری