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

من طرف **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** الأربعاء أبريل 16, 2008 8:51 am

aroudoud

من طرف 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

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

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

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

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