[xiph-cvs] cvs commit: win32sdk enableOggMacro.js

[Chris Wolf]

cwolf       01/10/17 20:29:06

  Added:       .        enableOggMacro.js
  Log:
  Add WSH script support for enabling oggvorbismacro.dsm

Revision  Changes    Path
1.1                  win32sdk/enableOggMacro.js

Index: enableOggMacro.js
===================================================================
/**
 * $Id: enableOggMacro.js,v 1.1 2001/10/18 03:29:06 cwolf Exp $
 *
 * Enable Ogg/Vorbis Macro
 *
 * This script will invoke MSDev and navigate through the menus
 * to perform the task of enabling the installed oggvorbis.dsm
 * macro file.
 *
 * This has been tested under MSVC6.
 */
var shell = WScript.CreateObject("WScript.Shell");
var env = shell.Environment("PROCESS");
var msdevDir = env("MSDEVDIR");
var keyDelay = 50;

hell.Run("msdev", true);

WScript.Sleep(keyDelay);
shell.AppActivate("Microsoft Visual C++");
WScript.Sleep(keyDelay);
shell.SendKeys("%TC");
WScript.Sleep(keyDelay);
shell.SendKeys("{TAB}");
WScript.Sleep(keyDelay);
shell.SendKeys("{TAB}");
WScript.Sleep(keyDelay);
shell.SendKeys("{TAB}");
WScript.Sleep(keyDelay);
shell.SendKeys("{TAB}");
WScript.Sleep(keyDelay);
shell.SendKeys("A");
WScript.Sleep(keyDelay);
shell.SendKeys("%B");
WScript.Sleep(keyDelay);
shell.SendKeys(msdevDir + "\\Macros\\oggvorbis.dsm");
WScript.Sleep(keyDelay);
shell.SendKeys("~{TAB}~");
WScript.Sleep(keyDelay);
shell.SendKeys("%Fx");

--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.