洛阳翼展电脑

1994三国演义

2019-8-17 乱云飞 评论(0) 浏览(1) 标签: 1994版 三国演义 老版三国演义 唐国强

Chrome浏览器设置自动启用Flash插件

2019-8-10 乱云飞 评论(0) 浏览(643)

1、打开Chrome浏览器，输入chrome://flags/#run-all-flash-in-allow-mode，打开，找到Enable Ephemeral Flash Permissions，设置为Disabled；

2、打开浏览器设置chrome://settings/，滚到最下面打开“高级”，找到内容设置：

3、点开内容设置，找到Flash

4、打开Flash，在允许的地方添加你的网站即可

可设置成

[*.]com

[*.]cn

[*.]net

[*.]org

[*.]top

等等，这样大部分网站就都能默认开启flash了。

一个VIP接口

2019-8-9 乱云飞 评论(0) 浏览(735)

https://api.ourder.com:888/dplayer/hls.html

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

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

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

修改谷歌浏览器默认字体

2019-8-6 乱云飞 评论(0) 浏览(681) 标签: 微软雅黑 谷歌浏览器 默认字体

修改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) 浏览(756) 标签: 批处理检测 检测软件 检测注册表

@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) 浏览(662) 标签: 谷歌浏览器 驱动 兼容性检测

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

VBS以管理员身份运行程序

2019-8-4 乱云飞 评论(0) 浏览(721) 标签: 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