Board logo

标题: [问题求助] vbs在win10环境下运行提示要提升权限 [打印本页]

作者: winsfly    时间: 2024-3-1 20:44     标题: vbs在win10环境下运行提示要提升权限

本帖最后由 winsfly 于 2024-3-5 19:57 编辑
  1. dim program
  2. program=zc.exe
  3. set Wshell=CreateObject("Wscript.Shell")
  4. set oexec=Wshell.Exec(program)
  5. wscript.Sleep 3000
  6. Wshell.SendKeys "123"
  7. wscript.Sleep 200
  8. Wshell.SendKeys "{TAB}"
  9. wscript.Sleep 200
  10. Wshell.SendKeys "cszlpa"
  11. wscript.Sleep 200
  12. Wshell.SendKeys "{ENTER}"
复制代码
在win10运行时会提示请求的操作需要提升,所以求一段代码放在 前面提前运行获取管理员权限
作者: winsfly    时间: 2024-3-1 20:52

回复 1# winsfly


    其实还有种办法可以达到目的,不用启动快捷方式,在命令里面指定进入该游戏的exe目录再运行此游戏程序也可以达到目的,求助大侠
作者: jyswjjgdwtdtj    时间: 2024-3-2 15:27

set Wshell=CreateObject("Wscript.Shell")
set Link = WShell.CreateShortcut(program)
exead=link.targetpath'这是目标的exe的地址

program=zc.exe 这条语句是错的 不知道你是怎么运行成功的
作者: jyswjjgdwtdtj    时间: 2024-3-2 15:31

  1. dim program
  2. program="a.lnk"
  3. set Wshell=CreateObject("Wscript.Shell")
  4. set Link = WShell.CreateShortcut(program)
  5. exead=link.targetpath
  6. Wshell.run(exead)
  7. wscript.Sleep 3000
  8. Wshell.SendKeys "123"
  9. wscript.Sleep 200
  10. Wshell.SendKeys "{TAB}"
  11. wscript.Sleep 200
  12. Wshell.SendKeys "cszlpa"
  13. wscript.Sleep 200
  14. Wshell.SendKeys "{ENTER}"
复制代码
如果你想方便地输入几组账号密码 可能需要一个循环
作者: czjt1234    时间: 2024-3-3 06:55

运行命令并带参数
  1. p = """C:\Program Files\Google\Chrome\Application\chrome.exe"" https://www.baidu.com/"
  2. set Wshell = CreateObject("Wscript.Shell")
  3. Wshell.Run p
  4. wscript.Sleep 3000
  5. Wshell.SendKeys "123"
  6. wscript.Sleep 200
  7. Wshell.SendKeys "{TAB}"
  8. wscript.Sleep 200
  9. Wshell.SendKeys "cszlpa"
  10. wscript.Sleep 200
  11. Wshell.SendKeys "{ENTER}"
复制代码

作者: winsfly    时间: 2024-3-5 19:50

  1. set Wshell=CreateObject("Wscript.Shell")
  2. Set objShell = CreateObject("WScript.Shell")
  3. objShell.CurrentDirectory = "D:\impk1.11" rem 前面双引号内为暗黑游戏根目录
  4. dim a
  5. a="D2loader.exe -w -nohide -lq -direct -skiptobnet -pdir zcms -title AAAAAAAA"
  6. set ea=Wshell.Exec(a)
  7. wscript.Sleep 3000 rem 启动到登录界面的延时时间,网速慢的稍微调成3000(3秒)以上
  8. Wshell.SendKeys "123456" rem 前面双引号内为账号a密码
  9. wscript.Sleep 200
  10. Wshell.SendKeys "{TAB}"
  11. wscript.Sleep 200
  12. Wshell.SendKeys "账号a" rem 前面双引号内为账号a名称
  13. wscript.Sleep 200
  14. Wshell.SendKeys "{ENTER}"
复制代码
回复 5# czjt1234

win7可以正常运行,但是win10会提示提升权限,想求一段让本vbs已管理员权限运行的代码放到 前面执行
作者: czjt1234    时间: 2024-3-5 20:13

  1. Call RunAsAdmin()    '以管理员权限运行vbs
  2. Sub RunAsAdmin()
  3.     Dim oWshShell, oShell, s, i
  4.     Set oWshShell = CreateObject("WScript.Shell")
  5.     If oWshShell.Run("fltmc.exe", 0, True) = 0 Then Exit Sub
  6.     s = """" & WScript.ScriptFullName & """ "
  7.     For Each i In WScript.Arguments
  8.         If InStr(i, " ") > 0 Then i = """" & i & """"
  9.         s = s & i & " "
  10.     Next
  11.     Set oShell = CreateObject("Shell.Application")
  12.     oShell.ShellExecute "WScript.exe", Left(s, Len(s) - 1), , "runas"
  13.     WScript.Quit()
  14. End Sub
复制代码

    fltmc.exe是Windows自带的程序,有管理员权限时能正常运行,返回值为0
    在winxp、win7、win10、win11中均测试通过

    注意,以管理员权限运行vbs,并不是绕过管理员权限限制
    所以还是可能会有是否允许继续运行的提示




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2