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

来源：互联网发布：网络创世纪吧编辑：程序博客网时间：2024/06/07 15:35

//作者：刘建勇
//写作时间：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