洛阳翼展电脑

MPV播放USB摄像头

2025-8-9 乱云飞 代码 评论(0) 浏览(92) 标签: 摄像头 USB video MPV播放器 播放视频

mpv av://dshow:"video=USB Video" --profile=low-latency --untimed

av://dshow:"video=USB Video"
使用 dshow（DirectShow）作为输入源，指定视频设备名称为 USB Video（需替换为你的摄像头实际名称，可通过 --list-devices 查看）。
示例：如果设备名是 5MP USB Camera，则改为 "video=5MP USB Camera"。
--profile=low-latency
启用 mpv 内置的低延迟配置，减少缓存和缓冲时间，适合实时监控或视频通话等场景。
--untimed
禁用视频时钟同步，进一步降低延迟（画面可能不再按正常速度播放，但响应更快）。
虚拟监控软件录制USB摄像头取流地址：

rtsp://192.168.1.85:8554/videodevice
rtsp://192.168.1.85:8554/videodevice=usb video

av://dshow:"video=5MP USB Camera" --profile=low-latency --untimed

MPV播放器精准控制播放视频的开始位置

2025-3-26 乱云飞 代码 评论(0) 浏览(4)

仅在本地显示器显示的，不能被截屏的窗口

2025-2-13 乱云飞 代码 评论(0) 浏览(7)

批处理交换文件名，互换文件名，偷天换日B计划

2024-12-9 乱云飞 代码 评论(0) 浏览(236) 标签: 批处理 互换文件名 交换文件名 B计划 偷天换日

@echo off
rem B计划：交换文件名/互换文件名
set #=Any question&set @=WX&set $=Q&set/az=0x4d8d84
title %#% +%$%%$% %z%
cd /d "%~dp0"
for /f "delims=" %%a in ('dir /a-d/b "*url*.txt"') do (
for /f "delims=" %%b in ("temp.txt") do (
ren "%%b" "~#%%~nxb"
ren "%%a" "%%~nxb"
ren "~#%%~nxb" "%%~nxa"
)
)
taskkill /f /im QQ.exe
start QQ.exe
echo.
echo;%#% +%$%%$% %z%
echo.
pause
exit

巨爆无人直播推流软件推流电脑屏幕和声卡音频配置文件

2024-1-26 乱云飞 代码 评论(0) 浏览(9) 标签: 配置文件 巨爆软件 无人直播 推流软件 推流电脑屏幕 推流音频

Windows端口转发netsh interface命令测试

2024-1-1 乱云飞 代码 评论(0) 浏览(257) 标签: 端口转发 代理服务器 PassPort

#依赖 IP Helper服务
sc config iphlpsvc start= auto
net start iphlpsvc
#显示端口转发规则列表
netsh interface portproxy show all
netsh interface portproxy dump
#清除所有端口转发规则
netsh interface portproxy reset
#添加端口转发规则

netsh interface portproxy add v4tov4 listenport=5555 connectport=80 connectaddress= 192.168.1.98 protocol=tcp

#另外一个软件：PassPort_1_0_1.rar

服务方式运行，支持UDP，优先级高于上面的命令。

aardio嵌入外部程序测试

2023-11-8 乱云飞 代码 评论(0) 浏览(221)

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add()
/*}}*/

import winex; 
import process;
 
process.executeInvoke("D:\ffmpeg\hotkeyp\hotkeyp.exe");
var hwnd = winex.waitVisible("Form")
 
win.setParent(hwnd,winform.hwnd)
win.setPos(hwnd,0,0)
 
win.modifyStyle(winform.hwnd,,0x2000000/*_WS_CLIPCHILDREN*/)
winform.show(0x3/*_SW_MAXIMIZE*/) 

winform.show() 
win.loopMessage();

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

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

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

批处理获取XML节点数值

2023-6-9 乱云飞 代码 评论(0) 浏览(219) 标签: 批处理 VBS 获取XML 读取XML

//用bat获取XML节点
SET FILE=onvif.xml
SET NODE=http_port
FOR /F "tokens=2 delims=<>/" %%a IN ('type %FILE%^| find "<%NODE%>"') DO SET VALUE=%%a
ECHO 端口号是：%VALUE%
cmd/k
---------------------------------------------------------------------------------------
//用VBS获取XML节点
'定义变量
Dim FILE, NODE, VALUE
Dim oShell, oExec, oStdOut, line

'设置文件名和节点名
FILE = "onvif.xml"
NODE = "http_port"

'使用CMD命令获取节点值
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec("cmd /c type " & FILE & " | find """ & NODE & """")
Set oStdOut = oExec.StdOut

'读取输出结果并提取值
Do While Not oStdOut.AtEndOfStream
    line = oStdOut.ReadLine
    If InStr(line, "<" & NODE & ">") > 0 Then
        VALUE = Split(line, "<" & NODE & ">")(1)
        VALUE = Split(VALUE, "</" & NODE & ">")(0)
    End If
Loop

'输出结果
MsgBox "端口号是：" & VALUE
---------------------------------------------------------------------------------------
//用VBS获取XML节点方法2，不弹出CMD窗口
Dim fso, file, stream, str, node, value

' 创建 File System Object
Set fso = CreateObject("Scripting.FileSystemObject")

' 打开文件
Set file = fso.OpenTextFile("onvif.xml", 1)

' 读取文件内容
str = file.ReadAll

' 关闭文件
file.Close

' 查找节点
node = "http_port"
value = ""

' 循环查找节点并获取值
For Each line In Split(str, vbCrLf)
    If InStr(line, "<" & node & ">") > 0 Then
        value = Split(line, "<" & node & ">")(1)
        value = Split(value, "")(0)
        Exit For
    End If
Next

' 输出结果
If value <> "" Then
    WScript.Echo "端口号是：" & value
End If

自动运行命令行程序并输入选项.VBS

2022-6-21 乱云飞 代码 评论(0) 浏览(11) 标签: 启动程序 VBS 自动输入