switchmodetool.vbs

option Explicit

' to invoke this script without a window: wscript /b switchmodetool.vbs

const runcmd="C:\path\to\Magic-Pro.SwitchDMBMode.exe"

dim WshShell, args_no

args_no = Wscript.Arguments.Count

set WshShell = CreateObject("WScript.Shell")

if WshShell.Run("""" & runcmd & """", 0, False) = 0 then

  Call ShowWindow

  if args_no = 0 then

    ' DMB-TH mode

    WshShell.Sendkeys "{Tab}{Tab}{ENTER}{Tab}{ENTER}"

  else

    ' DVBT-T mode

    WshShell.Sendkeys "{Tab}{ENTER}{Tab}{Tab}{ENTER}"

  end if

end if

sub ShowWindow()

  do while not WshShell.AppActivate("Switch Mode Tool")

    Wscript.sleep 100

  loop

end sub

Wscript.Quit

' http://www.computerperformance.co.uk/ezine/ezine120.htm

'BACKSPACE {BACKSPACE}, {BS}, or {BKSP}

'BREAK {BREAK}

'CAPS LOCK {CAPSLOCK}

'DEL or DELETE {DELETE} or {DEL}

'DOWN ARROW {DOWN}

'END {END}

'ENTER {ENTER} or ~

'ESC {ESC}

'HELP {HELP}

'HOME {HOME}

'INS or INSERT {INSERT} or {INS}

'LEFT ARROW {LEFT}

'NUM LOCK {NUMLOCK}

'PAGE DOWN {PGDN}

'PAGE UP {PGUP}

'PRINT SCREEN {PRTSC}

'RIGHT ARROW {RIGHT}

'SCROLL LOCK {SCROLLLOCK}

'TAB {TAB}

'UP ARROW {UP}

'F1 {F1}