[问题求助] vbs在win10环境下运行提示要提升权限

winsfly

dim program

program=zc.exe
set Wshell=CreateObject("Wscript.Shell")
set oexec=Wshell.Exec(program)

wscript.Sleep 3000
Wshell.SendKeys "123"
wscript.Sleep 200
Wshell.SendKeys "{TAB}"
wscript.Sleep 200
Wshell.SendKeys "cszlpa"
wscript.Sleep 200
Wshell.SendKeys "{ENTER}"
复制代码

在win10运行时会提示请求的操作需要提升，所以求一段代码放在 前面提前运行获取管理员权限

winsfly

回复 1# winsfly


    其实还有种办法可以达到目的，不用启动快捷方式，在命令里面指定进入该游戏的exe目录再运行此游戏程序也可以达到目的，求助大侠

winsfly

set Wshell=CreateObject("Wscript.Shell")
Set objShell = CreateObject("WScript.Shell")
objShell.CurrentDirectory = "D:\impk1.11"	rem 前面双引号内为暗黑游戏根目录

dim a
a="D2loader.exe -w -nohide -lq -direct -skiptobnet -pdir zcms -title AAAAAAAA"
set ea=Wshell.Exec(a)
wscript.Sleep 3000				rem 启动到登录界面的延时时间,网速慢的稍微调成3000(3秒)以上
Wshell.SendKeys "123456"			rem 前面双引号内为账号a密码
wscript.Sleep 200
Wshell.SendKeys "{TAB}"
wscript.Sleep 200
Wshell.SendKeys "账号a"				rem 前面双引号内为账号a名称
wscript.Sleep 200
Wshell.SendKeys "{ENTER}"
复制代码

回复 5# czjt1234

win7可以正常运行，但是win10会提示提升权限，想求一段让本vbs已管理员权限运行的代码放到 前面执行