如果页面高度大于300PX则跳转到指定页面
2023-6-18 乱云飞 代码 评论(0) 浏览(213) 标签: 网页跳转 页面高度 检测高度
window.onload = function() {
//获取当前页面高度
var pageHeight = window.innerHeight;
//如果页面高度大于300,跳转到指定页面
if (pageHeight > 300) {
window.location.href = "http://80c.cc/?300px";
}
}
如何实现监控手机屏幕?(附源码)
23一建建筑精讲破题案例集训
https://www.bilibili.com/video/BV1MX4y1m7o8【新课62讲全】2023一建经济蔺飞飞-精讲班持续更新(有讲义)
各省市高速在线实时监控
河南:https://weixin.hngscloud.com/ 公众号:河南高速 浙江:监控视频 (zjt.gov.cn) 公众号:浙里畅行 四川:https://etc.scjtonline.cn/ScWeChatAvatar/#/homePage 黑龙江:帮车宝APP,路况:https://gzh.hljtit.com/gis#/home 江西:https://gzh.hljtit.com/gis#/home 小程序江西交通监控云 江苏:江苏路网 (gandongyun.com) (还有零星省道)公众号:江苏高速 安徽:安徽高速出行服务(试运行) (u-road.com) (手动点亮右上角监控按钮) 上海:https://epsn.jtw.sh.gov.cn/wxgzh/html/ssjt.html (手动点亮右上角监控按钮) 陕西(需在微信使用):https://gaoguantong.ruitong369.c … 12122/MainTest.html 公众号:陕西交通12122 广西(微信):https://traffic.gxxfzjt.com/traffic.html 河北:公众号:畅行燕赵;路况:河北省高速公路出行信息服务网 (hebecc.com) 新疆:新疆交通公众出行信息服务网 (xinjiang.gov.cn) 云南:云南高速通APP(现在只有点播),路况:https://wxyngst.u-road.com/YunNanWeChatServer/html/SVG/map.html 吉林:(目前只有平台没有设备)https://www.hikjtxx.com/app?inde … e=123#/live_traffic 广东:(目前仅开放内部用户)小程序高速视频云,二维码:https://img1.imgtp.com/2023/02/17/h5dQcHPh.jpg 宁夏:https://pubvideo.nxjtglgs.com/public/page/index?project=nx,公众号:宁夏高速服务(只有俩摄像头,一个还是坏的) 以下省份只有路况无监控 湖北:http://www.02712122.com/oss/gst-hubei/svg/index.html 甘肃:http://gstgansuapi.u-road.com/Ga … /roadCondition.html 福建(微信):https://jjzd.fzga.gov.cn/3g/sslkxx.msw 内蒙:实时路况_内蒙古自治区交通运输厅 (nmg.gov.cn) 辽宁:https://app.ln-gst.com/nuxtH5/epidemicSituation、辽宁高速通APP 湖南(快拍):湖南高速公众出行服务网 (u-road.com)、湖南高速通APP 山东:e高速APP批处理获取XML节点数值
2023-6-9 乱云飞 代码 评论(0) 浏览(220) 标签: 批处理 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
H5player视频播放增强脚本
https://h5player.anzz.top/
https://greasyfork.org/zh-CN/scripts/381682-html5%E8%A7%86%E9%A2%91%E6%92%AD%E6%94%BE%E5%99%A8%E5%A2%9E%E5%BC%BA%E8%84%9A%E6%9C%AC
新版监控时钟
支持WIN10系统虚拟摄像头,支持QQ、微信、抖音、网课等软件。
2023-5-31 乱云飞 评论(0) 浏览(381) 标签: 虚拟摄像头 电脑摄像头 USB摄像头 网课摄像头
支持WIN10系统虚拟摄像头,支持QQ、微信、抖音、网课等软件。
可以用视频文件代替实时的电脑摄像头画面。
支持1080P,后台隐藏运行。
最新力作:监控B计划(监控信号源切换器)
2023-5-26 乱云飞 评论(0) 浏览(246) 标签: 监控B计划 监控信号源切换器 监控画面定格器 监控画面冻结器