代码调用百度图片无广告版，桌面壁纸图库实例。
2021-7-31 乱云飞 代码 评论(0) 浏览(3641) 标签: 美女图库 美女代码 黑丝美女 百度图片
本页面图片来源自百度图片搜索【桌面壁纸】，可以定制图片关键字，可嵌入各种网站。
点击这里查看大图版
需要代码可QQ联系。QQ 345794501
批处理检测系统安装日期
2021-4-21 乱云飞 代码 评论(0) 浏览(313) 标签: 批处理 检测系统 安装日期
cmd /k systeminfo | find "安装日期"
cmd /k systeminfo | find "Install Date"
把网盘映射成本地磁盘
2021-4-4 乱云飞 代码 评论(1) 浏览(334) 标签: 映射网盘 挂载网盘 本地硬盘
https://rclone.org/rclone config //第一次运行需要配置
rclone mount %~n0: Z: --cache-dir %temp% --vfs-cache-mode writes
需要搭配 WinFsp 使用。可以代替RAIDRIVE。
id.innerHTML='新值';
2020-12-9 乱云飞 代码 评论(0) 浏览(365)
id.innerHTML='新值';
B站视频解析核心源码，不依赖第三方API
![[该内容已加密，请点击标题输入密码访问]](/ez/jiami.png)
缩放网页 transform:scale
2020-10-10 乱云飞 代码 评论(0) 浏览(430) 标签: CSS代码 缩放网页 等比例缩放
transform:scale(1.1)自动粘贴信息到微信，自动发送。
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 20
wscript.sleep 700
wsh.AppActivate("emmm")
wsh.sendKeys "^v"
wsh.sendKeys str(i)
wsh.sendKeys "%s"
next
wscript.quit
连接网络共享磁盘...
2020-5-24 乱云飞 代码 评论(0) 浏览(621)
@color 9F
@mode con cols=50 lines=10
@title 连接网络共享磁盘 www.80c.cc
@echo.
@echo 连接网络共享磁盘...
@echo.
@echo 技术支持：洛阳翼展科技 13213610060
::--------------------------------------------------------
@set 服务器=\\192.168.1.56\出库记录
@set 注册表=##192.168.1.56#出库记录
@set 用户名=kuaidi
@set 密码=1
@set 盘符=Z
@set 卷标=出库记录
@set 退出时间=15
::--------------------------------------------------------
@net use * /delete /y >nul 2>nul
@echo.
@net use %盘符%: %服务器% %密码% /user:%用户名% /persistent:yes
@label %盘符%: %卷标% >nul 2>nul
@reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\%注册表% /v _LabelFromReg /d %卷标% /f >nul 2>nul
@start "打开%盘符%盘" "%盘符%:\" >nul 2>nul
@echo.
@echo.
@echo 请打开我的电脑%盘符%盘操作。
@ping -n %退出时间% 127.0.0.1>nul 2>nul
::--------------------------------------------------------
rem cmd /k
exit
VIP解析播放器代码备份
$vip_bofangqi = <<< vip_bofangqi
<html>
<head>
<title>测试版播放器</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
</head>
<body scroll="no" style="margin:0px; overflow: hidden;" bgcolor=#fcfcfc>
<script src="jquery.js"></script>
<script language="javascript">
document.write("<iframe src="+Base64.decode("$vipurl_fan".split("").reverse().join(""))+" /v/ style='width:90%;height:100%;' scrolling=auto frameborder=0 align=center border=0 overflow:hidden; seamless;></iframe>");
</script>
</body>
</html>
vip_bofangqi;
这个代码帮我省了不少力，自动设置资源管理器的图标样式为中等图标
2019-8-6 乱云飞 代码 评论(0) 浏览(673) 标签: 模拟按键 VBS 快捷键 设置图标 中等图标
on error resume next
'自动设置资源管理器的图标样式为中等图标
'VBS by 80c.cc 2019-8-6
Set Shell = CreateObject("WScript.Shell")
WScript.Sleep 1500
Shell.run "C:\windows"
WScript.Sleep 1500
Shell.SendKeys "^{a}"
WScript.Sleep 1500
Shell.SendKeys "^"+"%"+"3"
WScript.Sleep 1500
Shell.SendKeys "^%{3}"
WScript.Sleep 1500
Shell.SendKeys "%{V}"
WScript.Sleep 1500
Shell.SendKeys "{Y}"
WScript.Sleep 1500
Shell.SendKeys "{ENTER}"
WScript.Sleep 1500
Shell.SendKeys "^{TAB}"
WScript.Sleep 1500
Shell.SendKeys "{L}"
WScript.Sleep 1500
Shell.SendKeys "{ENTER}"
WScript.Sleep 1500
Shell.SendKeys "%{F4}"
WScript.Sleep 1500
Shell.SendKeys "%{F4}"
实时监控
电脑维修
