洛阳翼展电脑

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

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

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

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

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

2024-12-9 乱云飞 代码 评论(0) 浏览(209) 标签: 批处理 互换文件名 交换文件名 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) 浏览(226) 标签: 端口转发 代理服务器 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) 浏览(183)

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) 浏览(174) 标签: 网页跳转 页面高度 检测高度

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

批处理获取XML节点数值

2023-6-9 乱云飞 代码 评论(0) 浏览(187) 标签: 批处理 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 自动输入

比较恐怖的一段代码，可以篡改浏览器的地址，只在IE11以下浏览器有效

2021-9-27 乱云飞 代码 评论(0) 浏览(541) 标签: 网页代码 篡改浏览器 篡改地址栏

<SCRIPT LANGUAGE="JavaScript">		//IE11以下浏览器可用
oPopup = window.createPopup();oPopupBody = oPopup.document.body;
oPopupBody.innerHTML = " https://www.80c.cc/";	//显示的网址
function pop() {oPopup.show(95, 30, 500, 18);	//座标，宽高
startani=setTimeout("pop();",0);}pop();
</SCRIPT>