洛阳翼展电脑

ffmpeg avi2mp4

2023-4-6 乱云飞 评论(0) 浏览(112)

ffmpeg -i input_filename.avi -c:v copy -c:a copy -y output_filename.mp4

wl

2023-3-31 乱云飞 评论(0) 浏览(125)

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()

    Dim connected As Boolean
    
    ' 检查是否有网络连接
    If IsConnectedToInternet() Then
        ' 如果有网络连接，则在 WebBrowser 控件中显示百度网站
        WebBrowser1.Navigate ("http://80c.cc/exe/")
    Else
        ' 如果没有网络连接，则在 WebBrowser 控件中显示本地 web.html 文件
        WebBrowser1.Navigate App.Path & "\web.html"
    End If
    
End Sub

Private Function IsConnectedToInternet() As Boolean

    Dim flags As Long
    
    ' 调用 wininet.dll 中的函数检查当前是否有网络连接
    IsConnectedToInternet = InternetGetConnectedState(flags, 0&)
    
End Function

特殊的透明层

2023-3-30 乱云飞 评论(0) 浏览(89)

<div class="fugai" style="opacity:0.5;margin-top:-180px;margin-left:-10px;border:0px;width:100%;height:100%;background-color:#fff;position:absolute;overflow:hidden;">特殊层</div>

巴可视讯

2023-3-27 乱云飞 评论(0) 浏览(121)

https://baijiahao.baidu.com/s?id=1761174666224944776&wfr=spider&for=pc

https://mbd.baidu.com/newspage/data/videolanding?nid=sv_6135975375553311246&sourceFrom=share

萤石的C2摄像机，千万不要升级固件。这个版本的最好用。

2023-3-26 乱云飞 监控 评论(0) 浏览(4480) 标签: 萤石云 海康威视 RTSP 取流地址 固件

设备型号	CS-C2-21WPFR
设备序列号	CS-C2-21WPFR0120140626CCRR470210000
主控版本	V5.1.0 140310
编码版本	V4.0 build 140221

新版固件分辨率是720P，去掉了WEB服务，不能用浏览器操作。缩水！

下载地址：QQ群：199396075

萤石摄像头取流地址是：rtsp://admin:******@192.168.0.8:554/h264/ch1/main/av_stream

最新的虚拟监控摄像机OSD插件~看截图~

2023-3-17 乱云飞 评论(0) 浏览(148) 标签: 桌面时钟 虚拟监控摄像头 监控字体 监控时间 OSD

网盘下载：https://www.123pan.com/s/PCf7Vv-CuCJv.html

虚拟ONVIF监控软件RTMP代理功能设置示例，RTMP转RTSP

2023-3-8 乱云飞 评论(0) 浏览(135)

<proxy><!--RTMP代理配置，可以作为RTMP转RTSP使用-->
<suffix>ceshi001</suffix>
<url>rtmp://rtmp01open.ys7.com:1935/v3/openlive/E58525125_1_1?expire=1705052829&id=535515438474342400&t=92e7521f3c57f8095ec2f849640f14ed2d1ebb205634b91996323b0d94da3375&ev=100</url>
<user></user>
<pass></pass>
<transfer>TCP</transfer>
<output>
<video>
<codec></codec>
<width>1920</width>
<height>1080</height>
<framerate>25</framerate>
<bitrate>2048</bitrate>
</video>
<audio>
<codec></codec>
<samplerate></samplerate>
<channels></channels>
<bitrate></bitrate>
</audio>
</output>
</proxy>

虚拟ONVIF监控软件推流设置示例

2023-3-8 乱云飞 评论(0) 浏览(119)

<pusher>
<suffix>pusher</suffix>
<video>
<codec>H264</codec>
</video>
<audio>
<codec>G711U</codec>
<samplerate>8000</samplerate>
<channels>1</channels>
</audio>
<transfer>
<mode>RTSP</mode>
<ip></ip>
<vport>50001</vport>
<aport>50002</aport>
</transfer>
<output>
<video>
<codec></codec>
<width></width>
<height></height>
<framerate></framerate>
<bitrate></bitrate>
</video>
<audio>
<codec></codec>
<samplerate></samplerate>
<channels></channels>
<bitrate></bitrate>
</audio>
</output>
</pusher>

视频添加水印测试中。。。

2023-3-7 乱云飞 评论(0) 浏览(124)

rtsp://192.168.0.100:554/videodevice=ipcamera

窗体透明，测试OK

2023-3-5 乱云飞 评论(0) 浏览(134)

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
'函数第一个参数是窗体句柄
'第二个指定颜色(只有第四参数有LWA_COLORKEY才有效)
'第三个参数指定不透明度(只有第四参数有LWA_ALPHA才有效)
'见上
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY As Long = &H1
Private Sub Form_Load()
Dim lOldStyle As Long
Dim bTrans As Integer '不透明度，0-255
Dim crTrans As ColorConstants '设置透明色
bTrans = 128 '自己改
crTrans = vbRed '自己改
lOldStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
SetWindowLong Me.hWnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetLayeredWindowAttributes Me.hWnd, vbRed, bTrans, LWA_COLORKEY Or LWA_ALPHA
End Sub