洛阳翼展电脑

批处理检测系统安装日期

2021-4-21 乱云飞 代码 评论(0) 浏览(374) 标签: 批处理 检测系统 安装日期

cmd /k systeminfo | find "安装日期"

cmd /k systeminfo | find "Install Date"

把网盘映射成本地磁盘

2021-4-4 乱云飞 代码 评论(1) 浏览(385) 标签: 映射网盘 挂载网盘 本地硬盘

https://rclone.org/
rclone config //第一次运行需要配置
rclone mount %~n0: Z: --cache-dir %temp% --vfs-cache-mode writes
需要搭配 WinFsp 使用。可以代替RAIDRIVE。

id.innerHTML='新值';

2020-12-9 乱云飞 代码 评论(0) 浏览(410)

id.innerHTML='新值';

B站视频解析核心源码，不依赖第三方API

2020-11-1 乱云飞 代码 评论(0) 浏览(1)

缩放网页 transform:scale

2020-10-10 乱云飞 代码 评论(0) 浏览(489) 标签: CSS代码 缩放网页 等比例缩放

transform:scale(1.1)

自动粘贴信息到微信，自动发送。

2020-6-2 乱云飞 代码 评论(0) 浏览(456)

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) 浏览(695)

@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) 浏览(749) 标签: 模拟按键 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) 浏览(751) 标签: 批处理检测 检测软件 检测注册表

@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

老虎抢亲程序代码

2019-7-29 乱云飞 代码 评论(0) 浏览(643) 标签: 老虎抢亲 VB代码　抢窗口

'被抢窗口需要提前启动
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
SetParent FindWindow(vbNullString, "新建文本文档 - 记事本"), Me.hWnd
Me.WindowState = 0
End Sub