index.vbs - 洛阳翼展电脑


index.vbs

2020-5-2 乱云飞

on error resume next
set shell = createobject("WScript.Shell")
set shuo = createobject("sapi.spvoice")
shuo.rate=2
shuo.Volume=80

'激活系统
shuo.speak "开始激活系统!",1
shell.popup "开始激活系统,请确认弹出的提示!",3,"翼展电脑服务中心",vbOKOnly
shell.run "cmd /k cscript //b slmgr /ipk WNMTR-4C88C-JK8YV-HQ7T2-76DF9",0
shell.run "cmd /k cscript //b slmgr /skms 1.80c.cc",0
shell.run "cmd /k slmgr /ato",0	

'自动设置图标样式
shuo.speak"开始自动设置图标样式!请不要操作电脑!",1
shell.popup"开始自动设置图标样式!请不要操作电脑!",5,"翼展电脑服务中心",vbOKOnly
'弹出C:\windows,按【CTRL+ALT+3】'ctrl=^ alt=%
Shell.run "C:\"
WScript.Sleep 1500
Shell.SendKeys "^{a}"
WScript.Sleep 1500
Shell.SendKeys "^"+"%"+"3"
WScript.Sleep 1000
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}"
WScript.Sleep 2000

'运行校时
shuo.speak"请校对电脑时间!然后关闭程序!",1
Shell.Run "time.exe",1,true
WScript.Sleep 1000

'安装摄像头软件
shuo.speak"请安装摄像头软件!然后关闭程序!",1
Shell.Run "ecap.exe",1,true
WScript.Sleep 1000

'禁止系统自动升级
shuo.speak"请点击立即应用,阻止WINDOWS自动升级!然后关闭程序!",1
Shell.Run "wub.exe",1,true
WScript.Sleep 1000

shuo.speak"正在安装谷歌浏览器,请稍等!",1
Shell.Run "ChromeSetup.exe",0,true
WScript.Sleep 1000
Shell.Run "taskkill /f /im chrome.exe", 0

shuo.speak"正在安装软件宝库!",1
Shell.Run "soft.exe",1,false
WScript.Sleep 2000

'提权运行批处理,方法一,测试OK
shuo.speak"以管理员权限运行优化程序!"
CreateObject("Shell.Application").ShellExecute"cmd.exe","/c index.bat ::","","runas",0

'提权运行批处理,方法二,测试OK
'shell.Run "index.bat",1,false

'提权运行批处理,方法三,测试OK
'DIM admin_shell  
'set admin_shell=wscript.createObject("wscript.shell")  
'iReturn=admin_shell.Run("cmd.exe /C index.bat",1,TRUE)

本文链接:http://80c.cc/ez/301.html

发表评论:

预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog