洛阳翼展电脑

VB Timer控件以分钟为单位延时

2022-10-4 乱云飞 评论(0) 浏览(169) 标签: 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

IE7透明度设置

2022-9-28 乱云飞 评论(0) 浏览(181)

filter:alpha(opacity=30)

海康摄像机/录像机rtsp视频流地址格式

2022-9-27 乱云飞 评论(0) 浏览(170) 标签: 海康威视摄像机 海康威视录像机 RTSP视频流 RTSP取流地址

★目前海康录像机、网络摄像机，网络球机的RTSP单播取流格式如下（车载录像机不支持RTSP取流）：
rtsp://用户名:密码@IP:554/Streaming/Channels/101 

→录像机示例： 取第1个通道的主码流预览
rtsp://admin:hik12345@10.16.4.25:554/Streaming/Channels/101 

取第1个通道的子码流预览
rtsp://admin:hik12345@10.16.4.25:554/Streaming/Channels/102 

取第1个通道的第三码流预览
rtsp://admin:hik12345@10.16.4.25:554/Streaming/Channels/103 

取第12个通道的主码流预览
rtsp://admin:hik12345@10.16.4.25:554/Streaming/Channels/1201 

→网络摄像机/网络球机示例： 取主码流的URL： 
rtsp://admin:hik123456@192.168.1.64:554/Streaming/Channels/101 

★如果是多播取流的话，则使用以下路径
rtsp://用户名:密码@IP:554/Streaming/Channels/101?transportmode=multicast 

→录像机示例： 取第1个通道的主码流预览 
rtsp://admin:hik12345@10.16.4.25:554/Streaming/Channels/101?transportmode=unicast 

★2012年之前的设备URL规定：
rtsp://username:password@//ch/ 

路径后面不能有空格、回车等符号，否则会连接失败。→举例说明： 主码流取流： 
rtsp://admin:12345@192.0.0.64:554/h264/ch1/main/av_stream 

子码流取流： 
rtsp://admin:12345@192.0.0.64:554/h264/ch1/sub/av_stream 

零通道取流： 
rtsp://admin:12345@192.0.0.64:554/h264/ch0/main/av_stream 

如果摄像机密码是a12345678,IP是192.168.1.,64，RTSP端口默认554未做改动，是H.264编码，那么主码流取流:
rtsp://admin:a12345678@192.168.1.64:554/h264/ch1/main/av_stream

子码流取流:
rtsp://admin:a12345678@192.168.1.64:554/h264/ch1/sub/av_stream

【如果是H.265编码的，那么将H.264替换成H.265即可】注意：URL中“:”“?”“&”等符号均为英文半角。 

禁止在IFRAME子页面点击右键

2022-9-27 乱云飞 评论(0) 浏览(183) 标签: 网页代码 IFRAME页面 禁止右键

<script type="text/javascript">
//禁止在IFRAME子页面点击右键
    window.onload=function(){
        document.getElementById('QQ5082500').contentDocument.oncontextmenu = function(){ 
            return false;
        } 
    }
</script>

仅2.6MB的轻量级ONVIF摄像头搜索测试软件！

2022-9-27 乱云飞 评论(0) 浏览(222) 标签: ONVIF测试软件 ONVIF搜索软件 ONVIF转RTSP

下载地址：https://wwwez.lanzoul.com/icqkW085aopi

oCAM录屏软件，简单好用，单文件版！

2022-9-27 乱云飞 评论(0) 浏览(300) 标签: 屏幕录像 录屏软件 单文件绿色版

https://lanzoui.com/iiTpJ0be6y2d

VBS读取XML节点内容，经测试读取大文件会出错。

2022-9-23 乱云飞 评论(0) 浏览(8)

VBS获取本机内网IP地址并写入到剪切板

2022-9-22 乱云飞 评论(0) 浏览(6)

VBS写入文本到剪切板

2022-9-22 乱云飞 评论(0) 浏览(154) 标签: VB源码 VB写剪切板

Dim strCopy
strCopy="翼展科技版权所有 http://80c.cc"
Call SetClipboardText(strCopy)

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

VB源码，获取计算机名

2022-9-22 乱云飞 评论(0) 浏览(148) 标签: VB源码 获取计算机名

MsgBox Environ("computername")

----------------------------------------------------------------

Dim a As Object
Set a = CreateObject("Wscript.Network")
Print a.ComputerName
Print a.UserName
Print a.UserDomain