翼展电脑服务中心

窗体透明，测试OK

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

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

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

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

<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) 浏览(264) 标签: 百度网盘开源网盘 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) 浏览(129)

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

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

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

添加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