level 1
只有用按键精灵脚本解决了,ffmpeg测试地址B站直播间:126428
把集数放到文件里,断流1秒读取集数重连,实现断点续播,但是会直接跳到下一集
大于120集,X值重新赋值为1 界面创建 Form1.InputBox1.Text 填rtmp://地址
//120集东北一家人
//下面这句是判断一个文件是否存在返回(IsFile)
IsFile = Plugin.File.IsFileExist(".\Config.ini")
If IsFile = True Then
TracePrint "目标文件存在"
Else
//文件不存在,赋值X创建文件
x=1
Call Plugin.File.WriteINI("Command", "Val", x, ".\Config.ini")
End If
//查看X值
x = Plugin.File.ReadINI("Command", "Val", ".\Config.ini")
TracePrint x
//EndScript
Do
//下面这句是遍历符合窗口标题("记事本")的句柄保存到数组(HwndEx)里
HwndEx = Plugin.Window.Search("ffmpeg")
TracePrint Len(HwndEx)
If Len(HwndEx) = 0 Then
a=0
End If
TracePrint "查找到符合的窗口句柄为:"& HwndEx
//下面这句用于分割字符串,将获得的句柄组分割
dim MyArray
MyArray = Split(HwndEx, "|")
If UBound(MyArray)>=0 Then
i = 0
For UBound(MyArray)
//下面这句将字符串转换成数值
TracePrint "第 " & i + 1 & " 个窗口句柄为:" & Clng(MyArray(i))
a=Clng(MyArray(0))
i = i + 1
If Len(HwndEx) = 0 Then
a = 0
End If
Next
End If
TracePrint a
If a = 0 Then
// Else
RunApp "ffmpeg -re -i " &Plugin.File.ReadINI("Command", "Val", ".\Config.ini")& ".flv -f concat -safe 0 -c copy -f flv " & Form1.InputBox1.Text
// Call Plugin.Sys.SetCLB("ffmpeg -re -i " &Plugin.File.ReadINI("Command", "Val", ".\Config.ini")& ".flv -f concat -safe 0 -c copy -f flv " & Form1.InputBox1.Text)
x = x + 1
//总数加1,大于总数回到开始
If x = 121 Then
x = 1
End If
Call Plugin.File.WriteINI("Command", "Val", x, ".\Config.ini")
End If
Delay 1000
Loop
2017年10月17日 16点10分