翼展电脑服务中心

获取文件路径和文件名，包含后缀

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

fileName = Dir(App.Path & "\" & App.EXEName & ".*") ' 获取应用程序的文件名（包括后缀）

启动一个无边框的，完全透明的，宽度0，高度0的，定时关闭的窗口

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

VB实现窗口透明效果，测试OK

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

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
Const GWL_EXSTYLE = -20
Const WS_EX_LAYERED = &H80000
Const LWA_ALPHA = &H2
Private Sub Form_Load()
    Dim hwnd As Long
    hwnd = Me.hwnd    
    SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED  '设置窗体样式为 Layered
    SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA  '设置窗体为透明
End Sub

非常简约alist蓝色主题样式备份，去掉了注释20230703

2023-7-2 乱云飞评论(0) 浏览(130) 标签: Alist CSS BAK

<style>
* {border-radius: 0px !important;}
@media screen and (max-width:560px){.wp-none{display:none}}
body{zoom:1.0;-moz-transform:scale(1.0);-moz-transform-origin:0 0}
.hope-c-PJLV-ikoJJtX-css,.hope-c-PJLV-ijpihTg-css,.hope-c-PJLV-ijSQbqe-css,.hope-c-PJLV-ijgALRM-css,
.hope-c-PJLV-iikaotv-css,.hope-c-PJLV-iehpHsP-css,.hope-c-PJLV-iehpHsP-css,.hope-c-PJLV-ieKuSxQ-css,
.hope-c-PJLV-ifiEvmt-css,.hope-c-PJLV-igXrpAn-css,.hope-c-PJLV-ihAJmko-css,.hope-c-PJLV-ihHRgxo-css,
.hope-c-PJLV-iiBaxsN-css,.hope-c-PJLV-ibMsOCJ-css,.hope-c-PJLV-ibnmsYG-css,.hope-c-PJLV-ibsfJwa-css,
.hope-c-PJLV-ibtHApG-css,.hope-c-PJLV-ibvTkII-css,.hope-c-PJLV-idcOWKd-css,.hope-c-PJLV-iSMXDf-css,
.hope-c-PJLV-ihahDK-css,.solid-contextmenu{transform:scale(1.0)!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}
.obj-box.hope-stack.hope-c-dhzjXW.hope-c-PJLV.hope-c-PJLV-iigjoxS-css{background-color:rgb(0 0 0 / 90%);!important}
.hope-c-ivMHWx-hZistB-cv.hope-icon-button{background-color:rgba(255,255,255,0.8);!important}
.hope-c-PJLV.hope-c-PJLV-ikSuVsl-css{background-color:rgba(255,255,255,0.9);padding:8px;!important}
.hope-c-PJLV-iiOacaA-css{background-color:rgba(0,191,255,0.8);width:940px;height:90px;!important}
.hope-c-PJLV.hope-c-PJLV-iiuDLME-css{background-color:rgb(0 0 0 / 90%);!important}
.hope-c-PJLV-ijgzmFG-css{background-color:rgba(255,255,255,0.8);!important}
.hope-c-PJLV-ikgiLXI-css{background-color:#00BFFF;color:#fff;!important}
.hope-c-PJLV-iicyfOA-css{background-color:rgba(255,255,255,1);!important}
.hope-c-PJLV-ikEIIxw-css{height:32px;color:#00BFFF;!important}
.hope-c-PJLV-iiRelTQ-css,.aplayer-list-title{color:#000000!important}
.hope-ui-light{background-color:#00BFFF!important}
.hope-c-PJLV-ieESZju-css{color:#00BFFF!important}
.footer{display:none !important}
.hope-c-PJLV-ibnaJym-css {
  min-width: 100%;
  max-width: 100%;
  width: auto !important;
  height: auto !important;
  max-height: 100% !important;
  overflow: hidden;
}
</style>

屏蔽网页内元素，不显示DIV

2023-6-27 乱云飞评论(0) 浏览(82) 标签: 不显示元素元素透明

style="display:none"

style="opacity:0;"

document.title = "EZSOFT";
document.getElementsByClassName("copyright-content")[0].style.display = 'none';
//var cp = document.getElementsByClassName("common-footer")[0];
//cp.innerHTML = cp.innerHTML + "翼展云桌面";

海康威视硬盘录像机虚拟监控通道在线测试

2023-6-25 乱云飞评论(0) 浏览(170) 标签: 海康威视硬盘录像机虚拟监控在线测试

海康大华宇视华为摄像机转换直播流地址RTSP/WebRTC/RTMP/HLS/HTTP-FLV/WS-FLV

通道一是真实监控，通道二是虚拟监控。

地址 http://1.80c.cc:7000/

账号 80ccc

密码 www.80c.cc

监控网页变化源码

2023-6-24 乱云飞评论(0) 浏览(2)

如果页面高度大于300PX则跳转到指定页面

2023-6-18 乱云飞代码评论(0) 浏览(89) 标签: 网页跳转页面高度检测高度

window.onload = function() {
  //获取当前页面高度
  var pageHeight = window.innerHeight;
  //如果页面高度大于300，跳转到指定页面
  if (pageHeight > 300) {
     window.location.href = "http://80c.cc/?300px";
  }
}