締切済み

VBAにおいてJavaScriptでのYouTube動画連続再生

2010/05/18 09:31

VBAにおいてJavaScriptでのYouTube動画連続再生 OS:WindowsXp アプリケーション:Microsoft Excel 2007 　業務の一環にて、無線カードによるインターネットの接続関係の試験を行っています。接続試験の一つとして「指定時間内に試験用に用意したYoutube の動画を何回再生できるか」という試験を行っています。ダウンロードが順調でなければ再生回数が少なくなるという趣旨の試験です。　VBAのInternetExplorer.Applicationでページをリロードするというところまでは理解できましたが、動画の再生完了判定のところで行き詰っています。フラッシュを使用していて、JavaScriptでの制御を行っているというところまで調べましたが、具体的な判定方法について理解ができてません。　正直、エクセルVBAでやるようなことではないと思いつつも、自己の技術力と現状の開発環境を考慮して一番し易い方法で考えてます。Set sc =CreateObject("ScriptControl") でオブジェクト設定を行い、sc.Language = "Jscript"にてJavaScriptを呼び出して、なんとかならないかとは思うのですが、以降が皆目見当がつかない状況です。もしかして見当違いなのではないかと思いつつも、アドバイスをいただければ幸いと思い質問させていただきます。お目に止まったお方がいらっしゃいましたら、宜しくお願い致します。

junroku
お礼率100% (7/7)

JavaScript
回答数4
ありがとう数15

みんなの回答 （4）
専門家の回答

みんなの回答

yyr446
ベストアンサー率65% (870/1330)

2010/05/20 14:11 回答No.4

＜上記2か所でjavascriptの読み出しを行っていると思いますが、javascript本体（「javascriptを使います。」以降のソース）をどのファイルに張り付ければいいかがわかりませんでした。＞＝＞もしかして誤解してないですか？ EXCEL/VBAの中では、決してWebページの表示も操作も出来ないし、javascriptも動きませんよ。IEをフォームに張り付けて、操作しているイメージです。 javascriptはIEがWebページを読み込んで、IEが実行しているのです。ですから、自分でjavascriptのコードを書いたWebページを予め作っておくのですよ。その上で、 document.parentWindow.execScript については、 http://support.microsoft.com/kb/203125/ja とか、 http://questionbox.jp.msn.com/qa4460244.html を見てね

質問者

お礼 2010/05/21 15:52

わざわざ解説、ありがとうございます。そして、お手をとらせてしまい、申し訳ありません。まだまだ理解が不足しているようなので、もう少し勉強してみます。

yyr446
ベストアンサー率65% (870/1330)

2010/05/18 22:03 回答No.3

No.2の続きです続き＝＝＝＝＝＝＝＝＝＝＝＝＝＝＞ <body> <div> <button onclick='creatSWF()'>開始</button> カウント<input type="text" id="count" value="0"> <button onclick='stopSWF()'>停止</button> </div> <div id="contener"> <div id="ytapiplayer"></div> </div> <script type="text/javascript" charset="utf-8">  </script> </body> </html> ※play_url="http://www.youtube.com/v/IQUtXsIuBAU?f=videos&app=youtube_gdata"; が、ユーチューブサイトに登録されている動画の再生URIです。 ※Google（"http://www.google.com/jsapi"）からswfobject 2.2のAPIを使っています。 http://code.google.com/intl/ja/apis/youtube/js_api_reference.html

質問者

お礼 2010/05/19 13:21

迅速なご対応をありがとうございます。ただ、JavaScrptが勉強中ということもあって解析には時間がかかりそうです。自分なりに理解できるように頑張りたいです。また、再度ご質問させていただくかもしれませんが、宜しくお願い致します。

yyr446
ベストアンサー率65% (870/1330)

2010/05/18 21:57 回答No.2

No1です。作ってみました。WinXP+IE8+Excel2003　で動きました。まずEXCELの方に準備したのはユーザーフォーム(名前):Webform その中に、ボタン(名前):StartButton ボタン(名前):StopButton テキストボックス(名前):countbox それに肝心の、WebBrowser(名前):WebBrowser1 です。WebBrowserの張り付け方は、 http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9195.html なんかを参考に下はフォームのソースコード（VBA）です。 Public objIE As Object Private Sub Startbutton_Click() countbox.Value = 0 Set objIE = WebForm.WebBrowser1 'ＩＥを表示する objIE.Visible = True '下のURLをあなたのテストページのurlにしてください。 objIE.Navigate2 "http://hogehoge.fuga.net/Gtubetest.htm" Do While objIE.Busy = True DoEvents Loop Do While objIE.readyState <> 4 DoEvents Loop '開始 objIE.document.parentWindow.execScript "creatSWF()", "javascript" 'End If End Sub Private Sub StopBotton_Click() '停止 objIE.document.parentWindow.execScript "stopSWF()", "javascript" 'objIE.document.forms(1).Item("circle_distance").Value = ss_dist Do While objIE.Busy = True DoEvents Loop Do While objIE.readyState <> 4 DoEvents Loop countbox.Value = objIE.document.getElementById("count").Value End Sub 別途、workbookに Private Sub Workbook_Open() WebForm.Show vbModeless End Sub も入れておけばexcelを開いた時にフォームが表示されます。次にWebpageの方です。例では http://hogehoge.fuga.net/Gtubetest.htm　になっている。 javascriptを使います。 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" lang="ja-JP"> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <meta http-equiv="Content-Script-Type" content="text/javascript"> <meta http-equiv="Content-Style-Type" content="text/css"> <meta http-equiv="Cache-Control" content="no-cache" /> <meta http-equiv="Expires" content="0" /> <title>YouTube Test</title> <style type="text/css"></style> <script src="http://www.google.com/jsapi"></script> <script> google.load("swfobject", "2.2"); </script> </head> <body> ＝＝＝＝＝続く＝＝＝＞

質問者

お礼 2010/05/19 14:52

Javascriptの導入方法が判らなかったので質問させていただきます。 objIE.document.parentWindow.execScript "creatSWF()", "javascript" objIE.document.parentWindow.execScript "stopSWF()", "javascript" 上記2か所でjavascriptの読み出しを行っていると思いますが、javascript本体（「javascriptを使います。」以降のソース）をどのファイルに張り付ければいいかがわかりませんでした。一応、「javascript」というファイル名で同じフォルダ内にファイルを作成しましたが、objIE.document.…の場所でエラーとなってしまいます。お手数ですが、教えていただければ幸いです。

yyr446
ベストアンサー率65% (870/1330)

2010/05/18 10:05 回答No.1

実現する方法思いついたけど、そもそも計測の目的にかなうのかなあ？だってYouTubeの動画って、たとえ同じ環境で同じ動画を見ても、いつも同じ時間で再生出来るとは限らないですよ。単なるお遊びとしてなら解答作りますけど。

質問者

お礼 2010/05/18 15:12

すみません、補足での入力をしてしましました。是非ともお遊びでもかまいませんので、解答をいただければ幸いです。

質問者

補足 2010/05/18 11:02

回答ありがとうございます。複数のキャリア（携帯会社）の端末を利用しての比較測定となって、同じ場所・同じ時間帯に一斉にアクセスをかけるという試験手順なのです。 Youtubeが対象になっているのは、ユーザーが一番利用しているからということなのでしょうが、試験目的の詳細は自分にも判り兼ねているところがあります（汗）まー、めんどーで実りが少ない試験をツールで肩代わりできないかというのが本音なんですが（笑）

VBAにおいてJavaScriptでのYouTube動画連続再生