环境设计专业网站_创办网站_优化seo系统_情感营销经典案例

前端代码

<template><div><video id="video" controls autoplay muted width="30%" height="30%"style="object-fit: fill" /></div>
</template><script>
export default {data() {return {webRtcServer: null}},mounted() {// video：需要绑定的video控件ID// 127.0.0.1:8000：启动webrtc-streamer的设备IP和端口，默认8000this.webRtcServer = new WebRtcStreamer('video', location.protocol + '//' + '127.0.0.1:8000')// 需要查看的rtsp地址,根据自己的摄像头传入对应的rtsp地址即可。注意：视频编码格式必须是H264的，否则无法正常显示，编码格式可在摄像头的后台更改this.webRtcServer.connect('rtsp://admin:xxxxxxxxxx@192.168.1.250:554/Streaming/Channels/101')},// 销毁视频流beforeDestroy() {this.webRtcServer.disconnect()this.webRtcServer = null}
}
</script>

引入JS

  <script type="text/javascript" src="/config/webrtcstreamer.js"></script><script type="text/javascript" src="/config/adapter.min.js"></script>

下载webrtc-streamer 解压缩

将下载包html文件夹下webrtcstreamer.js文件和html/libs文件夹下adapter.min.js文件复制到VUE项目public目录下 、在index.html文件里引入这两个js文件

 直接双击webrtc-streamer.exe，在浏览器输入127.0.0.1:8000可以看到自己的桌面，说明安装成功

我们这里要作为系统发给客户，所以将webrtc-streamer做成了注册自启动的模式，代码如下

run_vbs_script.vbs

' setup_startup.vbs
Dim fso, scriptFullName, scriptDir, exePath, startupKeyName, objShell, strCommand
Set fso = CreateObject("Scripting.FileSystemObject")
scriptFullName = WScript.ScriptFullName
scriptDir = fso.GetParentFolderName(scriptFullName)
exePath = fso.BuildPath(scriptDir, "start.vbs")' 添加注册表项以在系统启动时运行 start.vbs
startupKeyName = "webrtcStreamerStartup"
Set objShell = CreateObject("WScript.Shell")
strCommand = "REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v " & startupKeyName & " /t REG_SZ /d """ & exePath & """ /f"
objShell.Run strCommand, 0, True' 验证注册表项是否成功添加（可选）
' 注意：这里的验证只是检查注册表项是否存在，并不验证 start.vbs 是否能正确运行
Dim result
result = objShell.Run("REG QUERY HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v " & startupKeyName, 0, True)
If result = 0 ThenWScript.Echo "Successfully added " & exePath & " to startup."' 立即运行 start.vbs 进行验证WScript.Echo "Now running " & exePath & " for verification..."objShell.Run exePath, 1, False ' 1 表示窗口模式运行，False 表示等待脚本完成' 注意：如果 start.vbs 是一个长时间运行的任务，并且您不希望 setup_startup.vbs 等待它完成，' 可以将 False 改为 True，但这样您就无法从 setup_startup.vbs 的输出中看到 start.vbs 的运行结果。
ElseWScript.Echo "Failed to add " & exePath & " to startup."
End IfSet fso = Nothing
Set objShell = Nothing

start.vbs

Dim fso, scriptDir, exePath, Wsh
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh = CreateObject("WScript.Shell")scriptDir = fso.GetParentFolderName(WScript.ScriptFullName)
exePath = fso.BuildPath(scriptDir, "webrtc-streamer.exe")' 尝试终止现有的 webrtc-streamer.exe 进程
Wsh.Run "taskkill /f /im webrtc-streamer.exe", 0, True
WScript.Sleep 2000 ' 等待一段时间以确保进程已终止（可以根据需要调整）' 检查 webrtc-streamer.exe 是否存在并尝试运行它
If fso.FileExists(exePath) Then' 以窗口最小化方式运行（1 表示最小化窗口，0 表示正常窗口，如果要隐藏窗口则需要其他方法）' 第三个参数设置为 False 表示不等待进程完成Wsh.Run exePath & " -o", 0, True
ElseWScript.Echo "webrtc-streamer.exe not found at: " & exePath
End If' 清理对象
Set fso = Nothing
Set Wsh = Nothing' 退出脚本
WScript.Quit

stop.vbs 

Dim fso, scriptDir, exePath, Wsh
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh = CreateObject("WScript.Shell")scriptDir = fso.GetParentFolderName(WScript.ScriptFullName) 
' 尝试终止现有的 webrtc-streamer.exe 进程
Wsh.Run "taskkill /f /im webrtc-streamer.exe", 0, True
' 清理对象
Set fso = Nothing
Set Wsh = Nothing' 退出脚本
WScript.Quit

如果直接复制代码不能运行的话，可以直接私聊我。