人人做人人澡人人爽欧美,国产主播一区二区,久久久精品五月天,羞羞视频在线观看免费

當(dāng)前位置:蘿卜系統(tǒng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁(yè)面

用PB完成Windows2000下的自動(dòng)關(guān)機(jī)

用PB完成Windows2000下的自動(dòng)關(guān)機(jī)

更新時(shí)間:2022-10-11 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

    在Windows2000中關(guān)機(jī)與在Windows98中不一樣,需要首先獲得權(quán)限,然后調(diào)用關(guān)機(jī)API函數(shù),才能關(guān)機(jī)。以下是具體的步驟:

第一步: 聲明結(jié)構(gòu)
-----------------------------------------------------------------------

需要聲明三個(gè)結(jié):LUID, LUID_AND_ATTRIBUTES, token_privileges

LUID

long  lowpart
long  highpart




LUID_AND_ATTRIBUTES

luid  pLuid
long  Attributes




token_privileges

long  privilegecount
luid_and_attributes  privileges[]



第二步: 聲明外部擴(kuò)展函數(shù)
-----------------------------------------------------------------------

FUNCTION ulong ExitWindowsEx(ulong uFlags,ulong dwReserved) LIBRARY "user32.dll"
FUNCTION ulong GetCurrentProcess() LIBRARY "kernel32.dll"
FUNCTION ulong LookupPrivilegeValue(ref string lpSystemName,ref string lpName,ref Luid lpLuid) LIBRARY "advapi32.dll" ALIAS FOR "LookupPrivilegeValueA"
FUNCTION ulong AdjustTokenPrivileges(ulong TokenHandle,boolean DisableAllPrivileges,ref TOKEN_PRIVILEGES NewState,ulong BufferLength,ref TOKEN_PRIVILEGES PreviousState,ref ulong ReturnLength) LIBRARY "advapi32.dll"
FUNCTION ulong OpenProcessToken(ulong ProcessHandle,ulong DesiredAccess,ref ulong TokenHandle) LIBRARY "advapi32.dll"



第三步: 程序腳本

-----------------------------------------------------------------------

/*獲得關(guān)機(jī)權(quán)限*/

string ls_lpSystemName,ls_lpName
ls_lpname='SeShutdownPrivilege'
ulong  lu_hdlProcessHandle,lu_hdlTokenHandle,lu_lBufferNeeded
luid lst_tmpLuid
TOKEN_PRIVILEGES lst_tkp
TOKEN_PRIVILEGES lst_tkpNewButIgnored
lu_hdlProcessHandle = GetCurrentProcess()
OpenProcessToken(lu_hdlProcessHandle,40, lu_hdlTokenHandle)
LookupPrivilegeValue( ls_lpSystemName, ls_lpname, lst_tmpLuid)
lst_tkp.PrivilegeCount = 1
lst_tkp.Privileges[1].pLuid = lst_tmpLuid
lst_tkp.Privileges[1].Attributes = 2
AdjustTokenPrivileges(lu_hdlTokenHandle, False, lst_tkp,16, lst_tkpNewButIgnored,lu_lBufferNeeded)


/*關(guān)機(jī)*/

ExitWindowsEx (9,0)


/* The End */

如果您在這篇文章里得到了些什么,請(qǐng)給作者一些鼓勵(lì):zaodt_ms@hotmail.com

溫馨提示:喜歡本站的話,請(qǐng)收藏一下本站!

本類教程下載

系統(tǒng)下載排行

網(wǎng)站地圖xml | 網(wǎng)站地圖html
主站蜘蛛池模板: 吉安县| 郸城县| 贵港市| 江津市| 哈巴河县| 清苑县| 汤原县| 静海县| 堆龙德庆县| 禹城市| 呼和浩特市| 镇赉县| 长岛县| 宁安市| 株洲县| 剑川县| 新营市| 兰西县| 景宁| 旬阳县| 宜黄县| 双城市| 新闻| 井陉县| 海门市| 恩施市| 万荣县| 屏东县| 苍溪县| 衡南县| 天水市| 九龙县| 阜新市| 青川县| 江津市| 余姚市| 平乡县| 丹巴县| 章丘市| 崇文区| 邵阳县|