基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

自动录制爱奇艺视频Bandicam

procedure 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_去广告绿色版