使用按键精灵添加edius的批输出列表

 

//作者：刘建勇
//写作时间：2012.7.20
//功能：自动添加批量列表
//备注：若执行中出现问题，可能是edius反应太慢造成的，适当增加delay参数值  

 sa = Array("宣化", "宣化", "宣化", "万全", "怀安", "阳原", "涿鹿", "张北", "崇礼", "康保", "赤城", "蔚县")
 sb = Array("xh", "xhx", "xg", "wq", "ha", "yy", "zl", "zb", "cl", "kb", "cc", "yx")

 fn=right("00"+Cstr(month(now)),2)+right("00" + cstr(day(now)), 2)
 fn = fn + ".m2p"

 //查找edius时间线窗口
 Hwnd = Plugin.Window.Find("CtsGuiClass.Frame", "Edius")
 Call Plugin.Window.Active(Hwnd)
 
 for i=lbound(sa) to ubound(sa)

  KeyPress "F11", 1
  Delay 1000
  Hwnd = Plugin.Window.Find("#32770", "选择输出器插件")
  Delay 1000
  p = Plugin.Window.GetWindowRect(Hwnd)
  
  
  s = split(p,"|")
  x1 = cint(s(0))
  y1 = cint(s(1))
  x2 = cint(s(2))
  y2 = cint(s(3))
  
  //点击：入点出点设置
  MoveTo x1 + 50, y2 - 94
  delay 2000
  LeftClick 1
 
  //点击：编码器选择
  If i = lbound(sa) Then
   MoveTo x1 + 290, y1 + 110
   delay 1200
   LeftClick 1
  End If
 
  //点击：输出
  MoveTo x2 - 234, y2 - 24
  Delay 1000
  LeftClick 1

  t = "f:\节目传输\" + sa(i) + "\"
  t = t + sb(i)+fn
  //输入要保存的文件名
  Delay 1200
  SayString t
  KeyPress "Enter", 1
 

  //切换到下一序列
  Delay 1500
  KeyDown 17, 1
  KeyPress 9, 1
  KeyUp 17, 1
  Delay 1500
 Next