การควบคุมเสียงและวิดีโอ VisualBasic

เล่นเพลงพื้นหลัง

คำแถลง:

ประกาศ FunctionMCISendString & Lib "MMSYSTEM" (ByValLPSTRCOMMAND$, ByValLPSTRRETURNSTRAsAny, ByValWRETURNLEN%, ByValHCALLBACK%)

เริ่มเล่น:

R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)

R%=MCISendString&(″PLAYNNFROM0″,0&,0,0)

R%=MCISendString&("ปิดภาพเคลื่อนไหว",0&,0,0)

หยุด:

R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)

R%=MCISendString&("STOPNN",0&,0,0)

R%=MCISendString&("ปิดภาพเคลื่อนไหว",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. ดับเบิลคลิกที่แบบฟอร์มและเขียนโค้ดกระบวนการ

PRivateSubForm—โหลด()

OnErrorGoTofindinder' ตรวจสอบว่าออปติคัลไดรฟ์พร้อมใช้งานหรือมีแผ่น VCD ในออปติคัลไดรฟ์หรือไม่

เส้นสตาร์ท:

drvnmb=Drive1ListCount

cdname＄=Drive1List (drvnmb-1)

files＄=Dir＄（cdname＄&″/mpegav/*.dat″)

Iffiles$=”″แล้วGoTofindinder

การกระทำ=เชลล์("C:/ProgramFiles/Xmplayer/XMPLAYER.EXE", 1)

'สมมติว่า Xmplayer อยู่ในไดเร็กทอรีนี้ ให้เปิดมันและให้ความสำคัญกับมัน

SendKeys "% (fv)", True' จำลองการทำงานของแป้นพิมพ์ Ctrl+fv และเริ่มเล่น VCD

PauseTime=2′ แผ่นวีซีดีบางแผ่นจะได้รับแจ้งว่ามีข้อผิดพลาดบางอย่างก่อนเล่นเนื่องจากการผลิตไม่สม่ำเสมอ เพื่อจัดการกับข้อผิดพลาดเหล่านี้ การหยุดชั่วคราวจะดำเนินการในเบื้องหลังและไม่ส่งผลกระทบต่อปกติ เล่นวีซีดีได้อย่างต่อเนื่อง

เริ่มต้น=ตัวจับเวลา

DoWhileTimer<เริ่ม+หยุดชั่วคราว

วนซ้ำ

SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ ​​​​จำลองการทำงานของแป้นพิมพ์อื่น ๆ การเล่นแบบเต็มหน้าจอ แผงที่ซ่อนอยู่ ฯลฯ

จบ

ผู้ค้นหา:

msg$=”ออปติคัลไดรฟ์ไม่พร้อม หรือมีดิสก์ที่ไม่ใช่ VCD ในออปติคัลไดรฟ์”

msg＄=msg＄&"หรือเปลี่ยนซีดี จากนั้นกด Enter เพื่อลองอีกครั้ง หรือกด Cancel เพื่อออก"

er=MsgBox(msg＄,53,"ข้อความแสดงข้อผิดพลาด")

Ifer=4ThenResumestartlineElseEn′ ผู้ใช้เลือกที่จะลองใหม่หรือออก

สิ้นสุดย่อย

3. รวบรวมโปรแกรมด้านบนเป็นไฟล์ EXE จากนั้นลากทางลัดไปยังเดสก์ท็อป คลิกสองครั้งที่ไอคอนเพื่อโหลด XingMPEG Player และเริ่มเล่น VCD แบบเต็มหน้าจอโดยอัตโนมัติ ในเวลาเดียวกัน ให้ตั้งค่าแผง PLAYER เป็น StandardBar ระบุและซ่อนไว้ ในโปรแกรม ^ หมายถึง Ctrl และ % หมายถึง Alt สาเหตุที่ต้องแทรกการกระทำทั้งสองของการหยุดชั่วคราว "^S" และการเล่น "^P" อย่างต่อเนื่องในโปรแกรม เนื่องจาก VCD เวอร์ชัน 2.0 เริ่มเล่นหลังจากกด Alt+FV และเวอร์ชัน 1.0 ยังต้องกด Ctrl+P หลังจากนั้น การกด Alt+FV และ Ctrl+P เทียบเท่ากับ Ctrl+S (เช่น Pause ) ดังนั้น หากมี "^P" เพียงตัวเดียว VCD10 จะเริ่มเล่น และ VCD20 จะหยุดชั่วคราว เพื่อพิจารณา VCD ทั้งสองเวอร์ชัน ให้จำลองการกระทำ Ctrl+S เพื่อหยุดชั่วคราว จากนั้น จำลองการกด Ctrl+P เพื่อเริ่มเล่น จึงทำให้ทั้งสองเวอร์ชันสามารถเล่นวีซีดีทั้งหมดได้โดยอัตโนมัติหลังจากรันโปรแกรมนี้

โปรแกรมข้างต้นได้รับการดีบั๊กในสภาพแวดล้อม Pwin95, VB5 และ XingMPEGPlayer3.2 -