翼展电脑服务中心


1994三国演义

2019-8-17 乱云飞 评论(0) 浏览(1)

[该内容已加密,请点击标题输入密码访问]

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

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

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

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

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

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

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

修改谷歌浏览器默认字体

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

修改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) 浏览(41)

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

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

VBS以管理员身份运行程序

2019-8-4 乱云飞 评论(0) 浏览(35) 标签: 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
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog