/*-_منتديات الرياض*-_/
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
/*-_منتديات الرياض*-_/

نرجو من زوارنا ان يساعدنا لكي يصبح هدا المنتدى من الاوائل
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخول

/*-_منتديات الرياض*-_/ :: الالكترونيك :: الكمبيوتر :: القرصنة و الفيروسات
 

 إفتحcdroom عن طريقnotepad

اذهب الى الأسفل 
كاتب الموضوعرسالة
DJ_LOVE_ME
حسن
حسن



المساهمات : 16
تاريخ التسجيل : 17/05/2008

إفتحcdroom عن طريقnotepad Empty
مُساهمةموضوع: إفتحcdroom عن طريقnotepad   إفتحcdroom عن طريقnotepad Emptyالأحد مايو 18, 2008 2:23 pm
إفتح
documenttext أو notepad
ثم أكتب
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

save as
test.vsb
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
إفتحcdroom عن طريقnotepad
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
/*-_منتديات الرياض*-_/ :: الالكترونيك :: الكمبيوتر :: القرصنة و الفيروسات-
انتقل الى: