تشغيل الموسيقى الخلفية
إفادة:
قم بتعريف الدالة MCISendString&Lib"MMSYSTEM"(ByValLPSTRCOMMAND$,ByValLPSTRRETURNSTRAsAny,ByValWRETURNLEN%,ByValHCALLBACK%)
ابدأ اللعب:
R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)
R%=MCISendString&(″PLAYNNFROM0″,0&,0,0)
R%=MCISendString&("CLOSEANIMATION"،0&,0,0)
قف:
R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)
R%=MCISendString&("STOPNN",0&,0,0)
R%=MCISendString&("CLOSEANIMATION"،0&,0,0)
ومن بينها، EXAMPLE.MID هو الملف الذي سيتم تشغيله، وNN هي علامة الاسم المخصصة.
جعل XMPlayer يقوم بتشغيل VCD تلقائيًا
يعد XingMPEGPlayer برنامجًا ممتازًا لفك الضغط وتشغيل أقراص VCD، لكن سلسلة من العمليات مثل تحميل مشغل XM والدخول إلى حالة التشغيل وإخفاء اللوحة تتطلب نقرات متعددة بالماوس، وهو أمر أكثر إزعاجًا. بعد ذلك، استخدم برنامج VB للتحقق أولاً مما إذا كان محرك الأقراص الضوئية جاهزًا أو ما إذا كان هناك قرص VCD في محرك الأقراص الضوئية، ثم استخدم VB لمحاكاة إجراءات لوحة المفاتيح الخاصة بـ XingMPEG وتحقيق التشغيل التلقائي لقرص VCD من خلال بضعة أسطر فقط. من البرامج.
1. أدخل إلى بيئة VB، وقم بتعيين الخاصية Visible للنموذج Form1 إلى False، ثم قم بإنشاء مربع قائمة محركات الأقراص Drivel في النموذج، وقم بتعيين الخاصية Visible الخاصة به إلى False بحيث لن يتم تحميل النموذج ومربع القائمة عند البرنامج يتم تحميله. كافة الخصائص الأخرى تأخذ القيم الافتراضية.
2. انقر نقرًا مزدوجًا فوق النموذج واكتب رمز العملية
نموذج PRivateSub — تحميل ()
يتحقق OnErrorGoTofinder' مما إذا كان محرك الأقراص الضوئية جاهزًا أو ما إذا كان هناك قرص VCD في محرك الأقراص الضوئية
خط البداية:
drvnmb=Drive1ListCount
cdname＄=قائمة Drive1(drvnmb－1)
files＄=Dir＄(cdname＄&″/mpegav/*.dat″)
Iffiles$=”″ثمGoTofinder
act=Shell("C:/ProgramFiles/Xmplayer/XMPLAYER.EXE"، 1)
'افترض أن Xmplayer موجود في هذا الدليل، افتحه وركز عليه
SendKeys "% (fv)"، True' يحاكي إجراء لوحة المفاتيح Ctrl+fv ويبدأ تشغيل VCD
PauseTime=2′ ستتم مطالبة بعض أقراص VCD ببعض الأخطاء قبل التشغيل بسبب الإنتاج غير المنتظم، ومن أجل التعامل مع هذه الأخطاء، يتم إجراء الإيقاف المؤقت لبضع ثوانٍ. يتم إجراء هذا الإيقاف المؤقت في الخلفية ولا يؤثر على الوضع الطبيعي التشغيل المستمر لأقراص VCD.
start=Timer
DoWhileTimer<start+PauseTime
حلقة
SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ يحاكي إجراءات لوحة المفاتيح الأخرى، والتشغيل بملء الشاشة، واللوحات المخفية، وما إلى ذلك.
نهاية
مكتشف:
msg$="محرك الأقراص الضوئية غير جاهز، أو يوجد قرص غير VCD في محرك الأقراص الضوئية."
msg＄=msg＄&"أو قم بتغيير قرص مضغوط، ثم اضغط على Enter للمحاولة مرة أخرى، أو اضغط على إلغاء للخروج"
er=MsgBox(msg＄,53,"رسالة خطأ")
Ifer=4ThenResumestartlineElseEn′ يختار المستخدم إعادة المحاولة أو الخروج
EndSub
3. قم بتجميع البرنامج أعلاه في ملف EXE، ثم اسحب الاختصار الخاص به إلى سطح المكتب، انقر نقرًا مزدوجًا فوق الرمز لتحميل XingMPEG Player وابدأ تشغيل VCD تلقائيًا في وضع ملء الشاشة. وفي نفس الوقت، اضبط لوحة PLAYER على حالة StandardBar وإخفائه. في البرنامج، ^ يعني Ctrl، و% يعني Alt. السبب وراء ضرورة إدراج إجراءي الإيقاف المؤقت "^S" وتشغيل "^P" بشكل مستمر في البرنامج هو أن الإصدار 2.0 من VCD يبدأ التشغيل بعد الضغط على Alt+FV، ويتطلب الإصدار 1.0 الضغط على Ctrl+P بعد الضغط Alt+FV، وCtrl+P يعادل Ctrl+S (أي إيقاف مؤقت لذلك، إذا كان هناك "^P" واحد فقط، فسيبدأ تشغيل VCD10 وسيتوقف VCD20 مؤقتًا من أجل أخذ إصداري VCD في الاعتبار، قم أولاً بمحاكاة إجراء Ctrl+S للإيقاف المؤقت، ثم بعد ذلك. قم بمحاكاة Ctrl+P لبدء التشغيل وبذلك يتم عمل نسختين يمكن تشغيل جميع أقراص VCD تلقائيًا بعد تنفيذ هذا البرنامج.
تم تصحيح أخطاء البرنامج أعلاه في بيئات Pwin95 وVB5 وXingMPEGPlayer3.2. ->