代码调用百度图片无广告版,桌面壁纸图库实例。
2021-7-31 乱云飞 代码 评论(0) 浏览(3734) 标签: 美女图库 美女代码 黑丝美女 百度图片
本页面图片来源自百度图片搜索【桌面壁纸】,可以定制图片关键字,可嵌入各种网站。
点击这里查看大图版
需要代码可QQ联系。QQ 345794501
批处理检测系统安装日期
2021-4-21 乱云飞 代码 评论(0) 浏览(386) 标签: 批处理 检测系统 安装日期
cmd /k systeminfo | find "安装日期"
cmd /k systeminfo | find "Install Date"
把网盘映射成本地磁盘
2021-4-4 乱云飞 代码 评论(1) 浏览(395) 标签: 映射网盘 挂载网盘 本地硬盘
https://rclone.org/rclone config //第一次运行需要配置
rclone mount %~n0: Z: --cache-dir %temp% --vfs-cache-mode writes
需要搭配 WinFsp 使用。可以代替RAIDRIVE。
id.innerHTML='新值';
2020-12-9 乱云飞 代码 评论(0) 浏览(424)
id.innerHTML='新值';
B站视频解析核心源码,不依赖第三方API
![[该内容已加密,请点击标题输入密码访问]](/ez/jiami.png)
缩放网页 transform:scale
2020-10-10 乱云飞 代码 评论(0) 浏览(501) 标签: 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) 浏览(765)
@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
这个代码帮我省了不少力,自动设置资源管理器的图标样式为中等图标
2019-8-6 乱云飞 代码 评论(0) 浏览(790) 标签: 模拟按键 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}"
批处理.bat检测是否安装某些软件
2019-8-4 乱云飞 代码 评论(0) 浏览(798) 标签: 批处理检测 检测软件 检测注册表
@echo off reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "sogou input">nul 2>nul if %errorlevel%==0 (echo 搜狗拼音输入法:已安装) else echo 搜狗拼音输入法:未安装 echo. reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "{052CFB79-9D62-42E3-8A15-DE66C2C97C3E}">nul 2>nul if %errorlevel%==0 (echo QQ:已安装) else echo QQ:未安装 echo. reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "3X0sd">nul 2>nul if %errorlevel%==0 (echo 你已经中了3X0流氓软件!请卸载!) else echo 恭喜:你没有中3X0流氓软件。 echo. pause exit