یاهو-بلاگفا-یاهو-وبلاگ
اگر دوست دارید کسی رو سر کار بذارید!!... - ir-software
سفارش تبلیغ
صبا ویژن
ir-software
سلام به وب سایت من خوش آمدی :)

کمک به سازمان خیریه محک

اگر دوست دارید کسی رو سر کار بذارید از کد زیر استفاده کنید    :

عملکرد :

 نت پد (notpad) رو باز کنید و کد زیر را در اون کپی کنید , و آنرا با نام دلخواه اما با پسوند .vbs ذخیره کنید .

 Example : " cdrom.vbs "

 پس از اجرا در کامپیوتر قربانی این اتفاق می افتد :

 هر 8 ثانیه سی دی رام یا دی وی دی رام باز و بسته میشه خیلی خنده‌دار

 

 

 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

 

منبع ترفندستان




موضوع مطلب : ترفندستان, نوت, پد, سرکار, گذاشتن, باز, بسته, سی دی, رام, دی وی دی, dvd, ram, cd, notpad, ترفند

پنج شنبه 93 شهریور 6 :: 8:13 عصر

کلیه حقوق این وبلاگ برای ir-software محفوظ است