Reply to thread

Message

I still use a vbscript to launch QT, but with a slight modification to what I posted last year. Now I use the SendKey method to send the "force to fullscreen" hotkey in QT so that the video automatically switches to fullscreen upon launch. Here is my script:

Set oArgs = WScript.Arguments
sFilePath = oArgs(0)
Set oShell = CreateObject("WScript.Shell")

If InStr(1, sFilePath, ".M4V", 1) > 0 Then
iRC = oShell.Run("""" & sFilePath & """")
iRC = oShell.AppActivate("QuickTimePlayerMain")
WScript.Sleep 5000
oShell.SendKeys "^f"

Else

iRC = oShell.Run("""" & sFilePath & """")

End If

Wscript.Quit iRC

<blockquote data-quote="samundsen" data-source="post: 316234" data-attributes="member: 28303">I still use a vbscript to launch QT, but with a slight modification to what I posted last year. Now I use the SendKey method to send the &quot;force to fullscreen&quot; hotkey in QT so that the video automatically switches to fullscreen upon launch. Here is my script:Set oArgs = WScript.ArgumentssFilePath = oArgs(0)Set oShell = CreateObject(&quot;WScript.Shell&quot;)If InStr(1, sFilePath, &quot;.M4V&quot;, 1) &gt; 0 Then&nbsp; &nbsp; iRC = oShell.Run(&quot;&quot;&quot;&quot; &amp; sFilePath &amp; &quot;&quot;&quot;&quot;)&nbsp; &nbsp; iRC = oShell.AppActivate(&quot;QuickTimePlayerMain&quot;)&nbsp; &nbsp; WScript.Sleep 5000&nbsp; &nbsp; oShell.SendKeys &quot;^f&quot;&nbsp; &nbsp; Else&nbsp; &nbsp; iRC = oShell.Run(&quot;&quot;&quot;&quot; &amp; sFilePath &amp; &quot;&quot;&quot;&quot;)End IfWscript.Quit iRC</blockquote>

[QUOTE="samundsen, post: 316234, member: 28303"] I still use a vbscript to launch QT, but with a slight modification to what I posted last year. Now I use the SendKey method to send the "force to fullscreen" hotkey in QT so that the video automatically switches to fullscreen upon launch. Here is my script: Set oArgs = WScript.Arguments sFilePath = oArgs(0) Set oShell = CreateObject("WScript.Shell") If InStr(1, sFilePath, ".M4V", 1) > 0 Then iRC = oShell.Run("""" & sFilePath & """") iRC = oShell.AppActivate("QuickTimePlayerMain") WScript.Sleep 5000 oShell.SendKeys "^f" Else iRC = oShell.Run("""" & sFilePath & """") End If Wscript.Quit iRC [/QUOTE]