你在項(xiàng)目里,添加新建,應(yīng)用程序清單,然后根據(jù)提示操作就行,他會(huì)自動(dòng)請(qǐng)求管理員權(quán)限。
成都創(chuàng)新互聯(lián)公司專注骨干網(wǎng)絡(luò)服務(wù)器租用10余年,服務(wù)更有保障!服務(wù)器租用,四川雅安電信機(jī)房 成都服務(wù)器租用,成都服務(wù)器托管,骨干網(wǎng)絡(luò)帶寬,享受低延遲,高速訪問(wèn)。靈活、實(shí)現(xiàn)低成本的共享或公網(wǎng)數(shù)據(jù)中心高速帶寬的專屬高性能服務(wù)器。
把界面做成用戶控件,用不同的身份登陸時(shí)加載不同的自定義控件就可以了.我也做過(guò)這個(gè)實(shí)驗(yàn).
GRANT { { SELECT | INSERT | UPDATE | DELETE | REFERENCES | TRIGGER }
[,...] | ALL [ PRIVILEGES ] }
ON [ TABLE ] tablename [, ...]
TO { username | GROUP groupname | PUBLIC } [, ...] [ WITH GRANT OPTION ]
GRANT { { USAGE | SELECT | UPDATE }
[,...] | ALL [ PRIVILEGES ] }
ON SEQUENCE sequencename [, ...]
TO { username | GROUP groupname | PUBLIC } [, ...] [ WITH GRANT OPTION ]
GRANT { { CREATE | CONNECT | TEMPORARY | TEMP } [,...] | ALL [ PRIVILEGES ] }
ON DATABASE dbname [, ...]
TO { username | GROUP groupname | PUBLIC } [, ...] [ WITH GRANT OPTION ]
GRANT { EXECUTE | ALL [ PRIVILEGES ] }
ON FUNCTION funcname ( [ [ argmode ] [ argname ] argtype [, ...] ] ) [, ...]
TO { username | GROUP groupname | PUBLIC } [, ...] [ WITH GRANT OPTION ]
GRANT { USAGE | ALL [ PRIVILEGES ] }
ON LANGUAGE langname [, ...]
TO { username | GROUP groupname | PUBLIC } [, ...] [ WITH GRANT OPTION ]
GRANT { { CREATE | USAGE } [,...] | ALL [ PRIVILEGES ] }
ON SCHEMA schemaname [, ...]
TO { username | GROUP groupname | PUBLIC } [, ...] [ WITH GRANT OPTION ]
GRANT { CREATE | ALL [ PRIVILEGES ] }
ON TABLESPACE tablespacename [, ...]
TO { username | GROUP groupname | PUBLIC } [, ...] [ WITH GRANT OPTION ]
GRANT role [, ...] TO username [, ...] [ WITH ADMIN OPTION ]
希望對(duì)你有幫助
VB.net(VS2008)里面比C#還好弄,不需要自己加manifest,直接在項(xiàng)目屬性的“應(yīng)用程序”里面點(diǎn)擊“查看UAC設(shè)置”,在新打開(kāi)的app.manifest里面把 requestedExecutionLevel level="asInvoker" uiAccess="false" / 替換成 requestedExecutionLevel level="requireAdministrator" uiAccess="false" / 再編譯就行了。
kill app.path "\**.txt" 刪除同級(jí)目錄的所有txt文本文件
獲取文件權(quán)限干嗎?
結(jié)合上面那個(gè)刪除文件,你是想做一個(gè)木馬類文件搗亂吧?那就不給你獲取權(quán)限了,給你個(gè)遍歷文件權(quán)限的,如果你能從代碼里舉一反三寫出獲取權(quán)限來(lái),算你厲害。
Sub GetFiles(ByVal ParentFolder As String)
Try
Dim sFolders(), sFiles() As String
sFolders = IO.Directory.GetDirectories(ParentFolder)
For Each sFolder As String In sFolders
GetFiles(sFolder)
'Call AddPath("dir", sFolder)
Debug.Print(sFolder)
Application.DoEvents()
Next
sFiles = IO.Directory.GetFiles(ParentFolder)
For Each sFile As String In sFiles
Debug.Print(sFile)
'AddPath("file", sFile)
'lgCount = lgCount + 1
Application.DoEvents()
Next
Catch ex As Exception
End Try
End Sub
實(shí)現(xiàn)權(quán)限要求數(shù)據(jù)庫(kù)結(jié)構(gòu)如下:
用戶表(id,用戶名,密碼,角色id)
角色表(id,角色名,權(quán)限id)
權(quán)限表(id,權(quán)限名,鏈接地址)
本文名稱:vb.net的權(quán)限的代碼 vb·net
本文網(wǎng)址:http://muchs.cn/article16/docoedg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供搜索引擎優(yōu)化、自適應(yīng)網(wǎng)站、服務(wù)器托管、云服務(wù)器、網(wǎng)站導(dǎo)航、網(wǎng)站營(yíng)銷
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)