Private Sub Command1_Click()
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 <> 0 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"
End Sub
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!