洛阳翼展电脑

批处理判断虚拟机

2023-7-23 乱云飞 评论(0) 浏览(128) 标签: 批处理 判断虚拟机 虚拟机检测

@systeminfo | findstr /i "vir"
@if %ERRORLEVEL% equ 0 (echo 是虚拟机) else (echo 不是虚拟机)

PHP读取字体文件，生成字体预览图片。

2023-7-21 乱云飞 评论(0) 浏览(141) 标签: 在线字体预览 PHP预览字体 PHP读取字体 php生成图片

网页版RTSP视频播放器：免插件在网页中播放RTSP视频测试。

2023-7-21 乱云飞 评论(0) 浏览(190) 标签: RTSP 免插件 网页播放 H5RTSP H5播放器

测试方法：把RTSP地址拼接在http://80c.cc/rtsp/?后面即可。

测试链接：http://80c.cc/rtsp/?rtsp://1.80c.cc:6907/ch7

批处理添加防火墙规则，允许程序访问网络。

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

@echo off
set appPath=C:\1.exe
set ruleName=Allow1EXE
set protocol=TCP
set localPort=Any
set action=Allow

echo 添加防火墙规则...
netsh advfirewall firewall add rule name="%ruleName%" dir=in action=%action% protocol=%protocol% localport=%localPort% program="%appPath%" enable=yes

echo 完成！
pause

ffmpeg 采集屏幕画面，以灰度模式压缩视频，推流到RTSP

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

ffmpeg -f gdigrab -framerate 30 -i desktop -vf "format=gray" -c:v libx264 -crf 23 -preset ultrafast -tune zerolatency -pix_fmt yuv420p -f rtsp rtsp://your_rtsp_stream_address

AI自动抠图网站搜集

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

https://pixlr.com/cn/remove-background/

https://www.photoroom.com/background-remover

https://icons8.com/bgremover

https://www.erase.bg/zh

https://www.slazzer.com/

https://www.vidmore.com/background-remover/

https://pixcut.wondershare.com/

https://retoucher.online/

https://bgremoval.ai/

https://freebackgroundremover.com/

https://kurocha.jp/background-removal

海康威视录像机回放视频录像RTSP流地址

2023-7-9 乱云飞 评论(0) 浏览(99) 标签: 海康威视 RTSP 录像机 视频回放

rtsp://admin:********@192.168.1.190:554/Streaming/tracks/101?starttime=20230708T000001Z

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

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

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

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

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

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

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

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