快捷導(dǎo)航

易語言制作UAC管理員模式添加器

更新時間：2018年12月03日 09:49:22 作者：易語言源碼貝貝吧

今天小編就為大家分享一篇關(guān)于易語言制作UAC管理員模式添加器，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

DLL命令表

.版本 2
.DLL命令 BeginUpdateResource, 整數(shù)型, "kernel32.dll", "BeginUpdateResourceA"
  .參數(shù) pFileName, 文本型
  .參數(shù) bDeleteExistingResources, 邏輯型
.DLL命令 UpdateResource, 邏輯型, "kernel32.dll", "UpdateResourceA"
  .參數(shù) hUpdate, 整數(shù)型
  .參數(shù) lpType, 整數(shù)型
  .參數(shù) lpName, 整數(shù)型
  .參數(shù) wLanguage, 整數(shù)型
  .參數(shù) lpData, 整數(shù)型
  .參數(shù) cbData, 整數(shù)型
.DLL命令 EndUpdateResource, 邏輯型, "kernel32.dll", "EndUpdateResourceA"
  .參數(shù) hUpdate, 整數(shù)型
  .參數(shù) fDiscard, 邏輯型
.DLL命令 FindResource, 整數(shù)型, "kernel32.dll", "FindResourceA"
  .參數(shù) hModule, 整數(shù)型
  .參數(shù) lpName, 整數(shù)型
  .參數(shù) lpType, 整數(shù)型

常量數(shù)據(jù)表

常量名稱 Manifest清單數(shù)據(jù)
常量值
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="">
<assemblyIdentity version="1.0.0.0" name=".add"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
  <security>
   <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
    <requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
   </requestedPrivileges>
  </security>
</trustInfo>
</asmv1:assembly>

UAC管理員模式添加器

此功能需要加載Ex_DirectUI 2.0模塊

.版本 2
.支持庫 edroptarget
.支持庫 iconv
.支持庫 spec
.程序集 窗口程序集
.程序集變量 DUI, Ex_DirectUI
.程序集變量 分組框, 分組框_Ex
.程序集變量 標簽, 標簽_Ex
.程序集變量 編輯框, 編輯框_Ex
.程序集變量 按鈕, 按鈕_Ex, , "2"
.子程序 __啟動窗口_創(chuàng)建完畢
DUI.掛接皮膚 (取窗口句柄 (), , 取字節(jié)集數(shù)據(jù) ({ 70, 185, 240 }, #整數(shù)型, ), , , , #外形方式_矩形)
分組框.創(chuàng)建 (取窗口句柄 (), 12, 32, 356, 66, , , , , , , , , RGB2ARGB (#白色, 190), , #外形方式_矩形, )
標簽.創(chuàng)建 (取窗口句柄 (), 18, 42, 100, 20, “請選擇PE文件：”)
編輯框.創(chuàng)建 (取窗口句柄 (), 108, 40, 194, 20, , , , , , , , , #輸入方式_只讀方式)
按鈕 [1].創(chuàng)建 (取窗口句柄 (), 308, 40, 50, 21, “...”)
按鈕 [2].創(chuàng)建 (取窗口句柄 (), 22, 68, 336, 21, “ 一鍵向PE文件添加UAC(可拖入PE文件至本窗口)”)
按鈕 [2].圖標 (#添加圖標)
按鈕 [1].掛接事件 (#事件_左鍵按下, &按鈕1_被左鍵按下)
按鈕 [2].掛接事件 (#事件_左鍵按下, &按鈕2_被左鍵按下)
拖放對象.注冊拖放控件 (取窗口句柄 ())
.子程序 按鈕1_被左鍵按下
.如果真 (通用對話框.打開 () ＝ 真)
  編輯框.內(nèi)容 (通用對話框.文件名)
.如果真結(jié)束
.子程序 按鈕2_被左鍵按下
.如果真 (編輯框.內(nèi)容 () ＝ “”)
  信息框_Ex (取窗口句柄 (), “一鍵向PE文件添加UAC(可拖入PE文件至本窗口)！”, #確認鈕, “提示”, #信息圖標)
  返回 ()
.如果真結(jié)束
.如果 (更新Manifest清單 (編輯框.內(nèi)容 (), 編碼轉(zhuǎn)換 (到字節(jié)集 (#Manifest清單數(shù)據(jù)), #編碼_char, #編碼_UTF_8, )))
  信息框_Ex (取窗口句柄 (), “向指定PE文件添加UAC成功！”, #確認鈕, “提示”, #信息圖標)
.否則
  信息框_Ex (取窗口句柄 (), “向指定PE文件添加UAC失敗！”, #確認鈕, “提示”, #錯誤圖標)
.如果結(jié)束
.子程序 _拖放對象_得到文件
.參數(shù) 接收到的文件路徑, 文本型
.如果 (到小寫 (取文件格式 (接收到的文件路徑)) ＝ “exe”)
  編輯框.內(nèi)容 (接收到的文件路徑)
.否則
  信息框_Ex (取窗口句柄 (), “請拖放PE文件到本窗口！”, #確認鈕, “提示”, #錯誤圖標)
.如果結(jié)束
.子程序 取文件格式, 文本型
.參數(shù) 文件名, 文本型
返回 (取文本右邊 (文件名, 取文本長度 (文件名) － 倒找文本 (文件名, “.”, , 假)))
.子程序 更新Manifest清單, 邏輯型
.參數(shù) PE文件路徑, 文本型
.參數(shù) 清單數(shù)據(jù), 字節(jié)集
.局部變量 hUpdate, 整數(shù)型
.局部變量 hModule, 整數(shù)型
.局部變量 ret, 邏輯型
hUpdate ＝ BeginUpdateResource (PE文件路徑, 假)
hModule ＝ GetModuleHandle (PE文件路徑)
.如果真 (FindResource (hModule, 1, 24) ≠ 0) ' 判斷PE文件是否存在Manifest清單
  UpdateResource (hUpdate, 24, 1, 0, 0, 0) ' 刪除PE文件中的Manifest清單
.如果真結(jié)束
UpdateResource (hUpdate, 24, 1, 2052, 取變量數(shù)據(jù)地址 (清單數(shù)據(jù)), 取字節(jié)集長度 (清單數(shù)據(jù))) ' 加入UAC的清單數(shù)據(jù)
ret ＝ EndUpdateResource (hUpdate, 假)
.如果真 (ret ＝ 假)
  hUpdate ＝ BeginUpdateResource (PE文件路徑, 假)
  UpdateResource (hUpdate, 24, 1, 2052, 取變量數(shù)據(jù)地址 (清單數(shù)據(jù)), 取字節(jié)集長度 (清單數(shù)據(jù)))
  ret ＝ EndUpdateResource (hUpdate, 假)
.如果真結(jié)束
CloseHandle (hModule)
返回 (ret)

運行結(jié)果：