こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBScrit Win Media Player

以下のプログラム(「VBScript」)で、プログラムファイル(「~.vbs」ファイル)が存在するフォルダ内のすべての「mp4」ファイルを順番に再生することはできたのですが、「Windows Media Player」が表示されません。

したがって、音だけです。

再生しているのは、動画です。

タスクトレーにも「Windows Media Player」が表示されていないので、全く、裏で再生してしまっています。

サイトを調べても、音楽ファイルを再生する場合しか見つかりませんでした。

どなたか、「Windows Media Player」を、表示させる方法をご存じではないでしょうか?

Option Explicit
Dim a, x, y, z
Set x = CreateObject("Scripting.FileSystemObject")
Set y = x.GetFolder(".")
Set z = CreateObject("WMPlayer.OCX")
For Each a In y.Files
If LCase(x.GetExtensionName(a.Name)) = "mp4" Then
z.URL = y & "\" & a.Name
z.Controls.Play()
Do
WScript.Sleep(5)
Loop Until z.PlayState = 1
End If
Next
Set z = Nothing
Set y = Nothing
Set x = Nothing
MsgBox("Finished!")

投稿日時 - 2017-03-05 16:11:46

QNo.9301434

困ってます

質問者が選んだベストアンサー

Scripting and Windows Media Player window
https://superuser.com/questions/995879/scripting-and-windows-media-player-window

↑によると、 CreateObject("WMPlayer.OCX")は内部インスタンスを作る命令らしいので、バックグラウンドなのは当然らしいです。
VisibleなWMPを作るためには、WebにEmbedするか、
oWmp.openPlayer("filepath")で別のWMPインスタンスをVisibleで起動してあげて、C++で"remoting"(リモート操作)用の特別なプログラムを組むしか無いと書かれています
googleで"wmplayer ocx visible"で検索するとpythonでプログラムした結果など有用そうな情報がありますね。
もしくはActiveXでWebに埋め込んでhttps://msdn.microsoft.com/en-us/library/windows/desktop/dd564680(v=vs.85).aspxでプログラミングする方法もあるかと思います

投稿日時 - 2017-03-29 23:00:24

お礼

ありがとうございます!

どうやら私の手にはおえないようなので、あきらめます。

いろいろ調べていただき、大変ありがとうございました。

別の方法を考えます。

投稿日時 - 2017-03-30 09:01:46

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問