السلام عليكم^^
رائع جدا
الVBScript لفت نظري فعلا
بس ليش كان آخر رد في 14/2/2006 ؟؟؟؟؟
شو ما عاد تكمل؟
أنا راح أنحبط
وسويت أول برنامج لي
فكرته بسيطة
اتدخل اسم السيدي درايف وتحط أوبن يفتح وتحط كلوز يسكر :P
راح أرفقه مع المصدر المفتوح .au3
كود PHP:
; Open the CD tray on drive
#include <GuiConstants.au3>
GUICreate("CD Tray Opener", 220, 55)
$checkdrive = GUICtrlCreateInput("", 10, 10, 30)
GUICtrlCreateLabel(": You just type your driver's letter", 41, 10)
$opendrive = GUICtrlCreateButton("Open", 8, 30)
$closedrive = GUICtrlCreateButton("Close", 50, 30)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $opendrive
$getdrive = GUICtrlRead($checkdrive) & ":"
CDTray($getdrive, "open")
Case $msg = $closedrive
$getdrive = GUICtrlRead($checkdrive) & ":"
CDTray($getdrive, "closed")
EndSelect
WEnd