洛阳翼展电脑

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)