是电脑自动改了某些东西权限,类似如下:点到这个程序快捷方式图标点右键-属性-快捷方式,然后点高级,以其它用户身份运行打勾,再点确定,这样每次运行程序都会提示上面的信息
不信的人可以试试,正常或不正常电脑都可以如上方法试出来
点到这个程序快捷方式图标点右键-属性-快捷方式,然后点高级.
把以其它用户运行的勾去掉,点确定,再确定,就可以了
先判断登陆的用户名,再执行就行了,代码如下:
Private Sub Command1_Click()If Environ("USERNAME") = "Administrator" Then
'你想执行什么?
End If
If Environ("USERNAME") = "222" Then
Shell("E:\Games.exe")
End If
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)