Putar musik latar belakang
penyataan:
DeklarasikanFungsiMCISendString&Lib"MMSYSTEM"(OlehValLPSTRCOMMAND$,OlehValLPSTRRETURNSTRAsAny,OlehValWRETURNLEN%,OlehValHCALLBACK%)
Mulai bermain:
R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)
R%=MCISendString&(″PLAYNNFROM0″,0&,0,0)
R%=MCISendString&("CLOSEANIMATION",0&,0,0)
berhenti:
R%=MCISendString&(″OPENEXAMPLE.MIDTYPESEQUENCERALIASNN″,0&,0,0)
R%=MCISendString&("BERHENTI",0&,0,0)
R%=MCISendString&("CLOSEANIMATION",0&,0,0)
Diantaranya, EXAMPLE.MID adalah file yang akan diputar, dan NN adalah tanda nama khusus.
Membuat XMPlayer otomatis memutar VCD
XingMPEGPlayer adalah perangkat lunak luar biasa untuk dekompresi lembut dan memutar VCD, tetapi serangkaian operasi seperti memuat pemutar XM, memasuki status pemutaran, dan menyembunyikan panel memerlukan beberapa klik mouse, yang lebih merepotkan. Selanjutnya, gunakan program VB untuk memeriksa terlebih dahulu apakah drive optik sudah siap atau apakah ada disk VCD di drive optik. Kemudian, gunakan VB untuk mensimulasikan tindakan keyboard XingMPEG dan mewujudkan pemutaran otomatis disk VCD hanya melalui beberapa baris. program.
1. Masuk ke lingkungan VB, atur properti Visible dari form Form1 ke False, lalu buat drive list box Drivel pada form, dan atur properti Visible ke False sehingga form dan list box tidak akan dimuat saat program dimuat. Tunjukkan. Semua properti lainnya mengambil nilai default.
2. Klik dua kali formulir dan tulis kode proses
SubFormulir Pribadi—Muat()
OnErrorGoTofindinder' memeriksa apakah drive optik sudah siap atau apakah ada disk VCD di drive optik
garis awal:
drvnmb=Drive1Jumlah Daftar
cdname＄=Drive1Daftar（drvnmb－1）
files＄=Dir＄（cdname＄&″/mpegav/*.dat″）
Iffiles$=”″ThenGoTofindinder
bertindak=Shell("C:/ProgramFiles/Xmplayer/XMPLAYER.EXE", 1)
'Asumsikan Xmplayer terletak di direktori ini, buka dan berikan fokus
SendKeys "% (fv)", True' menyimulasikan tindakan keyboard Ctrl+fv dan mulai memutar VCD
PauseTime=2′ Beberapa disk VCD akan menampilkan beberapa kesalahan sebelum diputar karena produksi yang tidak teratur. Untuk mengatasi kesalahan ini, jeda dilakukan selama beberapa detik pemutaran VCD terus menerus.
mulai=Pengatur Waktu
DoWhileTimer<mulai+PauseTime
Lingkaran
SendKeys″{enter}, ^s, ^p, ^{f4}, %{esc}, ^4″, True′ mensimulasikan tindakan keyboard lainnya, pemutaran layar penuh, panel tersembunyi, dll.
Akhir
pencari:
msg$=”Drive optik belum siap, atau ada disk non-VCD di dalam drive optik. Siapkan drive optik.”
msg＄=msg＄&"Atau ganti CD, lalu tekan Enter untuk mencoba lagi, atau tekan Batal untuk keluar"
er=MsgBox(pesan＄,53,"Pesan kesalahan")
Ifer=4ThenResumestartlineElseEn′ Pengguna memilih untuk mencoba lagi atau keluar
Sub Akhir
3. Kompilasi program di atas ke dalam file EXE, lalu seret pintasannya ke desktop. Klik dua kali ikon tersebut untuk memuat XingMPEG Player dan secara otomatis mulai memutar VCD dalam layar penuh. Pada saat yang sama, atur panel PLAYER ke status StandardBar dan menyembunyikannya. Dalam program ini, ^ berarti Ctrl, dan % berarti Alt. Alasan mengapa dua tindakan menjeda "^S" dan memutar "^P" harus disisipkan terus-menerus dalam program adalah karena VCD versi 2.0 mulai diputar setelah menekan Alt+FV, dan versi 1.0 memerlukan penekanan Ctrl+P setelah menekan Alt+FV. , dan Ctrl+P setara dengan Ctrl+S (yaitu jeda ); jadi jika hanya ada satu "^P", VCD10 akan mulai diputar dan VCD20 akan dijeda. Untuk memperhitungkan dua versi VCD, pertama-tama simulasikan tindakan Ctrl+S untuk menjeda, lalu simulasikan Ctrl+P untuk mulai memutar, sehingga membuat kedua versi Semua VCD dapat diputar secara otomatis setelah menjalankan program ini.
Program di atas telah di-debug di lingkungan Pwin95, VB5 dan XingMPEGPlayer3.2. ->