乱云飞 - 翼展电脑服务中心

把虚拟监控软件模拟成海康威视摄像头配置

2023-3-2 乱云飞评论(0) 浏览(199) 标签: 海康威视虚拟监控配置文件

<information>
<tds:Manufacturer>HIKVISION</tds:Manufacturer>
<tds:Model>DS-2CD3232D-I5</tds:Model>
<tds:FirmwareVersion>V5.6.800 build 230202</tds:FirmwareVersion>
<tds:SerialNumber>DS-2CD3232D-I520230202CCCH878282230</tds:SerialNumber>
<tds:HardwareId>88</tds:HardwareId>
</information>

Alist界面美化代码！简洁直角系！

2023-2-24 乱云飞评论(0) 浏览(265) 标签: 百度网盘开源网盘 Alist 界面美化全局直角

演示地址：http://1.80c.cc:5100

<style>
/*白天背景图*/
.hope-ui-light{background-color:#00BFFF!important;} 

/*主列表夜间模式透明，50%这数值是控制透明度大小的*/
.obj-box.hope-stack.hope-c-dhzjXW.hope-c-PJLV.hope-c-PJLV-iigjoxS-css
{background-color:rgb(0 0 0 / 90%) !important;border-radius:0px!important;}

/*readme夜间模式透明，50%这数值是控制透明度大小的*/
.hope-c-PJLV.hope-c-PJLV-iiuDLME-css
{background-color:rgb(0 0 0 / 90%) !important;border-radius:0px!important;}

/*主列表透明*/
.obj-box.hope-stack.hope-c-dhzjXW.hope-c-PJLV.hope-c-PJLV-igScBhH-css 
{background-color: rgba(255, 255, 255, 1.0) !important;border-radius:0px!important;}

/*readme透明*/
.hope-c-PJLV.hope-c-PJLV-ikSuVsl-css
{background-color: rgba(255, 255, 255, 0.9) !important;border-radius:0px!important;}

/*顶部-----------------*/
.hope-c-PJLV-iiOacaA-css
{background-color:#ffff99!important;width:940px;!important;border-radius:0px!important;}

.hope-c-PJLV-iikaotv-css{border-radius:0px!important;} /*复制链接按钮*/
.hope-c-PJLV-ijSQbqe-css{border-radius:0px!important;} /*图片选择框*/
.hope-c-PJLV-ijpihTg-css{border-radius:0px!important;} /*视频播放列表*/
.hope-c-PJLV-ijhzIfm-css{border-radius:0px!important;} /*视频播放列表*/
.hope-c-PJLV-igXrpAn-css{border-radius:0px!important;} /*视频播放列表*/
.hope-c-PJLV-ifiEvmt-css{border-radius:0px!important;} /*视频播放列表*/
.hope-c-PJLV-ibtHApG-css{border-radius:0px!important;} /*视频播放列表*/
.hope-c-PJLV-ibvTkII-css{border-radius:0px!important;} /*弹出删除对话框*/
.hope-c-PJLV-ikoJJtX-css{border-radius:0px!important;} /*列表模式的链接*/
.hope-c-PJLV-ihHRgxo-css{border-radius:0px!important;} /*网格模式的链接*/
.hope-c-PJLV-ibnmsYG-css{border-radius:0px!important;} /*网格模式图片*/
.hope-c-PJLV-ieKuSxQ-css{border-radius:0px!important;} /*图片模式的链接*/
.hope-c-PJLV-ihAJmko-css{border-radius:0px!important;} /*图片模式鼠标滑过*/

/*head和主页二字背景*/
.hope-c-PJLV-ikgiLXI-css
{background-color:#00BFFF!important;border-radius:0px!important;}

/*大框架*/
.hope-c-PJLV-iicyfOA-css
{background-color: rgba(255, 255, 255, 0.9) !important;border-radius:0px!important;}

.solid-contextmenu{border-radius:0px!important;} /*右键菜单*/
.hope-c-PJLV-iSMXDf-css{border-radius:0px!important;} /*右上角弹出*/

/*顶部右上角切换按钮透明*/
.hope-c-ivMHWx-hZistB-cv.hope-icon-button
{background-color: rgba(255, 255, 255, 0.8) !important;border-radius:0px!important;}

/*右下角侧边栏按钮透明*/
.hope-c-PJLV-ijgzmFG-css
{background-color: rgba(255, 255, 255, 0.8) !important;border-radius:0px!important;}

.footer { display: none !important; } /*去掉底部文字*/
</style>
*****************************************************************
<center class="dibu">
<div class="hope-c-PJLV hope-c-PJLV-iicyfOA-css">
<div style=" line-height:40px;font-size: 12pt;background-color:#ffff99;height:90px">
<a class="nav-link" href="http://80c.cc/" target="_blank"> EZSOFT</a>&nbsp;&nbsp;
<a class="nav-link" href="http://80c.cc/ez" target="_blank">翼展电脑</a>&nbsp;&nbsp;
<a class="nav-link" href="http://80c.cc/down.html" target="_blank">虚拟监控下载</a>&nbsp;&nbsp;
<a class="nav-link" href="/@manage" target="_blank">管理</a>&nbsp;&nbsp;
<a class="nav-link" href="https://github.com/Xhofe/alist" target="_blank">Alist</a><br>
<a class="nav-link" href="https://beian.miit.gov.cn/#/Integrated/index" target="_blank">冀ICP备2222000777号 </a>
</div>
<div>
</center>

雄迈硬盘录像机二次开发文档及SDK

2023-2-21 乱云飞评论(0) 浏览(130)

https://developer.jftech.com/docs/?menusId=9d3495b07a9f4cb593d60c23ef8219fb&lang=zh

VB中如何用关闭按纽实现最小化?

2023-2-15 乱云飞评论(0) 浏览(184)

添加API声明：Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

在Form_QueryUnload()事件中，将窗体最小化，然后取消程序关闭。

最小化的方法是：
I = ShowWindow(Me.hwnd, 6)

代码如下：
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
I = ShowWindow(Me.hwnd, 6)
Cancel = True
End Sub