亲测可用 2022-11-14 10:00:18
控制虚拟监控摄像头子码流的编码格式和分辨率
2022-11-16 乱云飞 评论(0) 浏览(176) 标签: H265 虚拟摄像机 虚拟监控 视频编码格式 虚拟分辨率 H264
RTSP://192.168.1.2:554/screenlive&ve=H265&w=768&h=512ve=[编码格式h264或h265]
w=[视频宽度]
h=[视频高度]
rtmp/rtsp/http/m3u8直播源格式转换教程
2022-11-15 乱云飞 评论(0) 浏览(317) 标签: RTSP RTMP HTTP M3U8 直播源 格式转换
之前寻找直播源，发现好多rtmp开头的，或者是rtsp开头的，但是ATV里面的个人链接是支持m3u8格式的。怎么办？小编发现了几个规律，网友可作参考。现在流行的直播地址差不多就这几种
需要说明的是并不是所有的地址改成这样都能播 需要自己测试。
测试的，可用软件，具体参考：http://www.znds.com/tv-27282-1-1.html
先说一下rtmp的
其中rtmp的常见的差不多是3种
1.一种是wowza服务器的 比如这个地址rtmp://116.55.245.135:8096/live/yntv1 我们在浏览器打开116.55.245.135:8096会出现Wowza Media Server 3，那这个地址就是wowza服务器的了
这种地址可以直接改成rtsp或者m3u8 如rtsp://116.55.245.135:8096/live/yntv1或http://116.55.245.135:8096/live/yntv1/playlist.m3u8
2.另一种就是经纬中天提供技术支持的地址 比如这个东营的地址rtmp://live.hhek.cn:1935/live/live2 可以直接改成http://live.hhek.cn/live2/live2.m3u8
3.还有一种像这种的rtmp://202.103.212.146/livepkgr/live1可以改成
http://202.103.212.146:8134/hls-live/livepkgr/_definst_/liveevent/live1.m3u8
再说一下http的
http常见的地址差不多4种
1.一种就是tvie提供技术支持的地址 比如这个湖北的地址http://live9.hbtv.com.cn/channels/zbk/hbtv/flv:sd/live可以直接改成m3u8地址http://live9.hbtv.com.cn/channels/zbk/hbtv/m3u8:sd/live
2.第二种就是索贝数码提供技术支持的地址 比如这个武汉的地址
http://live.whtv.com.cn/live/2a532d70bcbe47e6aaccc74dea2655cc?fmt=h264_450k_flv
理论上可以改成m3u8或者rtsp
http://live.whtv.com.cn/live/2a532d70bcbe47e6aaccc74dea2655cc.m3u8?fmt=h264_450k_ts&m3u8
rtsp://live.whtv.com.cn/live/2a532d70bcbe47e6aaccc74dea2655cc?fmt=h264_450k_3gp
3.另外一种就是清流迅提供技术支持的地址了 三种格式是以下形式的
rtsp://streamabr.jstv.com/live/cctv1?fmt=x264_400k_flv
http://streamabr.jstv.com/live/cctv1?fmt=x264_400k_flv
http://streamabr.jstv.com/live/cctv1.m3u8?fmt=x264_400k_mpegts
4.最后一种就是sewise提供技术支持的地址，这里我们见到的就是香港卫视精品台和海南电视台官网的地址了，可以是http/rtmp或者m3u8
如旅游卫视的地址
旅游卫视
rtmp://tv.bluehn.com/livestream/57vep3nc
http://tv.bluehn.com:5080/livestream/57vep3nc.flv
http://tv.bluehn.com/hls/stream/57vep3nc.m3u8
暂时只发现这些规律 大家有发现可以补充。
最后，还是一句话，希望大家自己去找源，测试，不要做伸手党~~
最新在线可用rtsp服务器测试视频码流地址
2022-11-14 乱云飞 评论(0) 浏览(175) 标签: RTSP地址 在线RTSP 视频流
rtsp://wowzaec2demo.streamlock.net/vod/mp4:BigBuckBunny_115k.mp4
获取本机IP，并把本机IP写入配置文件
2022-11-14 乱云飞 评论(0) 浏览(177) 标签: VB源码 获取本机IP地址 复制内容到剪切板
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Shell = WScript.CreateObject("WScript.Shell")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to LBound(IPConfig.IPAddress)
strCopy= "http://" & IPConfig.IPAddress(i) & ":8000/onvif/device_service" '///
rtspip= IPConfig.IPAddress(i) '///
Call SetClipboardText(strCopy) '///
msgbox strCopy,vbOKOnly,"EZsoft" '///
Next
End If
Next
Sub SetClipboardText(Text) '写入信息到剪切板
Dim wsh
Set wsh = CreateObject("WScript.Shell")
wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
set wsh=Nothing
End Sub
'替换文本：把IP写入onvif.ini配置文件 20221114
set fso = createobject("scripting.filesystemobject")
'读取文件
set stream = fso.opentextfile("onvif.ini",1)
content = stream.readall()
call stream.close()
'替换字符串
content = replace(content,"wwwns.tpddns.cn",rtspip)
'保存文件
set stream = fso.opentextfile("onvif.ini",2)
call stream.write(content)
call stream.close()
一建建筑实务真题解析
一建建筑实务真题解析
https://v.wantiku.com/jianzao1/jianzhu1/Chapter/40278
https://www.bilibili.com/video/BV16f4y1Z7uJ
二建建筑实务真题解析
https://v.wantiku.com/jianzao2/jianzhu2/Chapter/54211
【不忘初心】 Windows10 22H2 (19045.2130) X64 无更新[深度纯净精简版][1.17G](2022.10.12)
链接: https://pan.baidu.com/s/1-VpDDXJexUoavgoDRqbGXQ?pwd=in72
提取码: in72
收藏一张透明背景的图片，后期有用。
2022-10-20 乱云飞 评论(0) 浏览(152) 标签: 虚拟老婆
ONVIF虚拟监控摄像机V34版本下载
批处理解决win7、win10、 win11安装软件乱码
2022-10-13 乱云飞 评论(0) 浏览(198) 标签: 系统乱码 软件乱码 修复乱码批处理
@echo off Wmic OS Get Caption|Find /i "Windows 11">nul&&intl.cpl ,1 Wmic OS Get Caption|Find /i "Windows 10">nul&&intl.cpl ,1 Wmic OS Get Caption|Find /i "Windows 7">nul&&intl.cpl ,3 Wmic OS Get Caption|Find /i "Windows XP">nul&&intl.cpl ,2 pause>nul
VB Timer控件以分钟为单位延时
2022-10-4 乱云飞 评论(0) 浏览(170) 标签: VB定时器 VB倒计时源码
Dim T As Integer
Timer1.Interval = 60000 '循环间隔为一分钟
Private Sub Timer1_Timer()
If T < 30 Then '如果小于30分钟
T = T + 1 '计数器+1
Else '大于等于30分钟
T = 0 '计数器清零
msgbox "QQ5082500" '要执行的代码
End If
End Sub
实时监控
电脑维修
