网站 › 『编程语言区』 › VB检测自身软件是否有管理员权限【源码】

小歆 发表于 2012-12-9 12:37

VB检测自身软件是否有管理员权限【源码】

这是小菜的一个笨方法， 不知道有没有更好的方法，还请大牛们指点...


    On Error Resume Next
    Open "C:\gly.dll" For Output As #1
    Print #1, Now & "   检测管理员权限"
    Close #1
    FileCopy "C:\gly.dll", Environ("SystemDrive") & "\Windows\System32\gly.dll"
    If Err.Number = 75 Then
      MsgBox "没有管理员权限1"
    ElseIf Dir(Environ("SystemDrive") & "\Windows\System32\gly.dll", vbNormal) <> "" Then
      Kill Environ("SystemDrive") & "\Windows\System32\gly.dll"
      MsgBox "有管理员权限1！！！"
    End If
    Kill "C:\gly.dll"

小歆 发表于 2012-12-29 10:28

VB6.0在vista win7 下自动以管理员权限运行软件

VB6.0在vista win7 下自动以管理员权限运行软件

选择”工程”→”工程1 属性”，在打开的”工程1 – 工程属性”面板中，点”生成”选项卡，在里面的”版本信息”的”文件描述”中写入值”update”(这里就是关键，只要输入包含有”update”字符，生成的exe就会与管理员方式运行)，好了，这时生成的exe文件就会在图标上自动加上一个盾牌标志，双击运行试一下吧，呵～
操作系统自己会检测文件名是否包含Setup/Install/Update

转自MSDN
http://social.microsoft.com/Forums/ru-RU/vbasiczhchs/thread/9e1b2199-7403-4adf-80c6-4ef41c621c26

小歆 发表于 2015-4-27 16:02

opelwang 发表于 2015-4-21 00:40
经测试，可以的哟。

http://www.52pojie.cn/forum.php?mod=redirect&goto=findpost&ptid=175576&pid=3458188
感觉还是这样好用一点。。。

1354669803 发表于 2012-12-9 16:02

一点都看不懂

小歆 发表于 2012-12-9 16:35

1354669803 发表于 2012-12-9 16:02 static/image/common/back.gif
一点都看不懂

就是将一个DLL文件复制到\Windows\System32\中，如果没有管理员权限会返回一个“错误75”，要是有管理员权限就会在\Windows\System32\中检测的那个dll文件...

2314902431 发表于 2012-12-9 16:49

那个 淡尘 不是学的是VB吗?

xxhaishixx 发表于 2012-12-14 21:08

不错~呵呵……还可以用函数

opelwang 发表于 2013-11-6 19:26

确实是一个方法，XP下可以。

小歆 发表于 2013-11-8 23:23

opelwang 发表于 2013-11-6 19:26 static/image/common/back.gif
确实是一个方法，XP下可以。

XP下没有管理员运行软件这一说吧...

gqdsc 发表于 2013-11-14 15:36

这个太曲折了吧~

小歆 发表于 2013-11-16 20:18

gqdsc 发表于 2013-11-14 15:36 static/image/common/back.gif
这个太曲折了吧~

http://www.52pojie.cn/forum.php?mod=redirect&goto=findpost&ptid=175576&pid=3458188
这个方法简单点...

查看完整版本: VB检测自身软件是否有管理员权限【源码】