كتب هذا الكود في مفكرتك وإنظر ماذا سيحدث لجهازك

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كتب هذا الكود في مفكرتك وإنظر ماذا سيحدث لجهازك

مُساهمة من طرف harde-jeux في الأربعاء أبريل 16, 2008 8:51 am

[size=21]بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

أحببت أن أعطيكم كود تكتبه في المفكرة وتحفظه ثم تغيير إسم المف

إلى run.vbs وشغل الملف بالضغط دبل كليك وشوف المفاجئة .... وهذا هو الكود الذي ستكتبه
[center]
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
إعمل نسخ وإلصقه في المفكرة وسوي إلي قلت لك عليه

ملاحظة يجب عليك أن تظهر إمتداد الملف يعني نوع المفكرة
لازم يكون ظاهر حيث إمتدادها txt لازم يكون ظاهر قبل تعديل الإسم طبعاً .... وذلك من جهاز الكمبيوتر ثم tool ثم folder option ثم تختار view
ثم تحذف الصح الموجود على هذا الخيار hide extensions for known file type وإعمل موافق


لإيقاف البرنامج إضغط على alt+ctrl+del ثم إختر processes
وإختر wscript.exe وإضغط على end processes لإنهاء المهمة ....

أنتظر ردودكم


-------------
[/size][/center]

harde-jeux
مشرف برامج الكمبيوتر
مشرف برامج الكمبيوتر

عدد الرسائل : 130
الاوسمة :
تاريخ التسجيل : 16/03/2008

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كتب هذا الكود في مفكرتك وإنظر ماذا سيحدث لجهازك

مُساهمة من طرف harde-jeux في الأربعاء أبريل 16, 2008 8:51 am

aroudoud

harde-jeux
مشرف برامج الكمبيوتر
مشرف برامج الكمبيوتر

عدد الرسائل : 130
الاوسمة :
تاريخ التسجيل : 16/03/2008

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كتب هذا الكود في مفكرتك وإنظر ماذا سيحدث لجهازك

مُساهمة من طرف massari1992 في الخميس يناير 29, 2009 3:56 pm

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

massari1992
عضو جديد
عضو جديد

ذكر
عدد الرسائل : 12
العمر : 36
تاريخ التسجيل : 29/01/2009

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى