洛阳翼展电脑

高级系统设置，现在还有问题不会发送空格键

2019-8-6 乱云飞 评论(0) 浏览(76) 标签: VBS 系统设置 控制面板

dim Shell
Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run"rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3"
'Shell.Run"cmd.exe /c rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3",0
WScript.Sleep 1000
Shell.AppActivate "系统属性"
Shell.SendKeys " "

这个代码帮我省了不少力，自动设置资源管理器的图标样式为中等图标

2019-8-6 乱云飞 评论(0) 浏览(78) 标签: 模拟按键 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}"

批处理判断文件是否存在

2019-8-6 乱云飞 评论(0) 浏览(67)

@if exist C:\ez.bmp (echo 文件存在！) else (echo 文件不存在！)

修改谷歌浏览器默认字体

2019-8-6 乱云飞 评论(0) 浏览(55)

修改chrome字体为默认雅黑：
1：打开chrome浏览器，地址栏输入chrome://version/，查看chrome版本
2：在“我的电脑”里查找“Custom.css”，找到 chrome的custom.css。
3：右键用笔记本打开该文件，
写上
* {
font-family: "Microsoft YaHei", "微软雅黑" !important;
}
pre, code, textarea, tt, kbd, samp,
pre *, code *, textarea *, tt *, kbd *, samp * {
font-family: monospace !important;
}

批处理.bat检测是否安装某些软件

2019-8-4 乱云飞 评论(0) 浏览(74)

@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-8-4 乱云飞 评论(0) 浏览(73)

http://npm.taobao.org/mirrors/chromedriver/

VBS以管理员身份运行程序

2019-8-4 乱云飞 评论(0) 浏览(68) 标签: VBS 管理员权限

Option Explicit
RunAsAdmin
Msgbox CreateObject("WScript.Shell").CurrentDirectory
' 以管理员身份运行 By Yu2n
Sub RunAsAdmin()
	Dim oItems, vItem, sVer, nVer, vArg, sArgs, sCurDir
	Set oItems = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
	For Each vItem In oItems
		sVer = vItem.Version
	Next
	Set oItems = Nothing
	nVer = Clng(Split(sVer, ".")(0) & Split(sVer, ".")(1))
	If nVer >= 60 Then
		If Not WScript.Arguments.Named.Exists("RunAsAdmin") Then
			For Each vArg In WScript.Arguments
				sArgs = sArgs & " """ & vArg & """"
			Next
			sArgs = sArgs & " /RunAsAdmin:True"
			CreateObject("Shell.Application").ShellExecute "WScript.exe", _
				"""" & WScript.ScriptFullName & """" & sArgs, "", "runas", 1
			WScript.Quit(0)
		Else
			sCurDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\") -1)
			CreateObject("WScript.Shell").CurrentDirectory = sCurDir
		End If
	End If
End Sub

批处理清空回收站

2019-8-4 乱云飞 评论(0) 浏览(73) 标签: 批处理 清空回收站

@echo off
setlocal enabledelayedexpansion
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  if exist %%a:\$recycle.bin (
     pushd %%a:\$recycle.bin
     for /f %%b in ('dir /b /a') do (rd /s /q %%b)
  )
)
pause

右下角显示所有图标

2019-8-4 乱云飞 评论(0) 浏览(60)

taskkill /f /im explorer.exe >nul 2>nul

reg add HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v EnableAutoTray /t REG_DWORD /d 0 /f

start "" explorer

批处理把任务栏属性里的使用小图标打勾和任务栏按钮选成从不合并怎么写？求例子

2019-8-4 乱云飞 评论(0) 浏览(62)

注册表控制的，导入注册表即可。

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]

"TaskbarSmallIcons"=dword:00000001

"TaskbarGlomLevel"=dword:00000001

你可以把上面内容用reg add实现。