自动录制爱奇艺视频Bandicam

自动录制爱奇艺视频Bandicamprocedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval:=1000;
  Timer1.Enabled:=True;
  Timer2.Interval:=2000;
  Timer2.Enabled:=True;
  //y:=1; //第一集
  y:=StrToInt(Edit1.Text);
  Memo1.Lines.Add('按F12录制第 ' IntToStr(y) '集');
  keybd_event(123,0,0,0);   //F12 键
  keybd_event(123,0,KEYEVENTF_KEYUP,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc,0); // 遍历所有顶层窗口
  //for i:=50 downto 1 do
  for i:=StrToInt(Edit2.Text) downto StrToInt(Edit1.Text) do   //录制集数设置
  begin
    if Pos(IntToStr(i),s) >0 then
    begin
    x:=i;
    break;
    end;
  end;
end;//Bandicam v4.5.3.1608 便携特别版  爱奇艺_v7.12.126.2563_去广告绿色版