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

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

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

[Visual Basic] 纯文本查看 复制代码

    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 下自动以管理员权限运行软件

选择”工程”→”工程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? ... 576&pid=3458188
感觉还是这样好用一点。。。

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

一点都看不懂

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

1354669803 发表于 2012-12-9 16:02
一点都看不懂

就是将一个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
确实是一个方法，XP下可以。

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

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

这个太曲折了吧~

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

gqdsc 发表于 2013-11-14 15:36
这个太曲折了吧~

http://www.52pojie.cn/forum.php? ... 576&pid=3458188
这个方法简单点...

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] VB检测自身软件是否有管理员权限【源码】

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