一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

服務器之家:專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務器之家 - 編程語言 - 易語言 - 易語言制作UAC管理員模式添加器

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

2022-02-23 15:39易語言源碼貝貝吧 易語言

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

DLL命令表

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
.版本 2
.DLL命令 BeginUpdateResource, 整數型, "kernel32.dll", "BeginUpdateResourceA"
  .參數 pFileName, 文本型
  .參數 bDeleteExistingResources, 邏輯型
.DLL命令 UpdateResource, 邏輯型, "kernel32.dll", "UpdateResourceA"
  .參數 hUpdate, 整數型
  .參數 lpType, 整數型
  .參數 lpName, 整數型
  .參數 wLanguage, 整數型
  .參數 lpData, 整數型
  .參數 cbData, 整數型
.DLL命令 EndUpdateResource, 邏輯型, "kernel32.dll", "EndUpdateResourceA"
  .參數 hUpdate, 整數型
  .參數 fDiscard, 邏輯型
.DLL命令 FindResource, 整數型, "kernel32.dll", "FindResourceA"
  .參數 hModule, 整數型
  .參數 lpName, 整數型
  .參數 lpType, 整數型

常量數據表

?
1
2
3
4
5
6
7
8
9
10
11
12
13
常量名稱 Manifest清單數據
常量值
<?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模塊

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
.版本 2
.支持庫 edroptarget
.支持庫 iconv
.支持庫 spec
.程序集 窗口程序集
.程序集變量 DUI, Ex_DirectUI
.程序集變量 分組框, 分組框_Ex
.程序集變量 標簽, 標簽_Ex
.程序集變量 編輯框, 編輯框_Ex
.程序集變量 按鈕, 按鈕_Ex, , "2"
.子程序 __啟動窗口_創建完畢
DUI.掛接皮膚 (取窗口句柄 (), , 取字節集數據 ({ 70, 185, 240 }, #整數型, ), , , , #外形方式_矩形)
分組框.創建 (取窗口句柄 (), 12, 32, 356, 66, , , , , , , , , RGB2ARGB (#白色, 190), , #外形方式_矩形, )
標簽.創建 (取窗口句柄 (), 18, 42, 100, 20, “請選擇PE文件:”)
編輯框.創建 (取窗口句柄 (), 108, 40, 194, 20, , , , , , , , , #輸入方式_只讀方式)
按鈕 [1].創建 (取窗口句柄 (), 308, 40, 50, 21, “...”)
按鈕 [2].創建 (取窗口句柄 (), 22, 68, 336, 21, “ 一鍵向PE文件添加UAC(可拖入PE文件至本窗口)”)
按鈕 [2].圖標 (#添加圖標)
按鈕 [1].掛接事件 (#事件_左鍵按下, &按鈕1_被左鍵按下)
按鈕 [2].掛接事件 (#事件_左鍵按下, &按鈕2_被左鍵按下)
拖放對象.注冊拖放控件 (取窗口句柄 ())
.子程序 按鈕1_被左鍵按下
.如果真 (通用對話框.打開 () = 真)
  編輯框.內容 (通用對話框.文件名)
.如果真結束
.子程序 按鈕2_被左鍵按下
.如果真 (編輯框.內容 () = “”)
  信息框_Ex (取窗口句柄 (), “一鍵向PE文件添加UAC(可拖入PE文件至本窗口)!”, #確認鈕, “提示”, #信息圖標)
  返回 ()
.如果真結束
.如果 (更新Manifest清單 (編輯框.內容 (), 編碼轉換 (到字節集 (#Manifest清單數據), #編碼_char, #編碼_UTF_8, )))
  信息框_Ex (取窗口句柄 (), “向指定PE文件添加UAC成功!”, #確認鈕, “提示”, #信息圖標)
.否則
  信息框_Ex (取窗口句柄 (), “向指定PE文件添加UAC失敗!”, #確認鈕, “提示”, #錯誤圖標)
.如果結束
.子程序 _拖放對象_得到文件
.參數 接收到的文件路徑, 文本型
.如果 (到小寫 (取文件格式 (接收到的文件路徑)) = “exe”)
  編輯框.內容 (接收到的文件路徑)
.否則
  信息框_Ex (取窗口句柄 (), “請拖放PE文件到本窗口!”, #確認鈕, “提示”, #錯誤圖標)
.如果結束
.子程序 取文件格式, 文本型
.參數 文件名, 文本型
返回 (取文本右邊 (文件名, 取文本長度 (文件名) - 倒找文本 (文件名, “.”, , 假)))
.子程序 更新Manifest清單, 邏輯型
.參數 PE文件路徑, 文本型
.參數 清單數據, 字節集
.局部變量 hUpdate, 整數型
.局部變量 hModule, 整數型
.局部變量 ret, 邏輯型
hUpdate = BeginUpdateResource (PE文件路徑, 假)
hModule = GetModuleHandle (PE文件路徑)
.如果真 (FindResource (hModule, 1, 24) ≠ 0) ' 判斷PE文件是否存在Manifest清單
  UpdateResource (hUpdate, 24, 1, 0, 0, 0) ' 刪除PE文件中的Manifest清單
.如果真結束
UpdateResource (hUpdate, 24, 1, 2052, 取變量數據地址 (清單數據), 取字節集長度 (清單數據)) ' 加入UAC的清單數據
ret = EndUpdateResource (hUpdate, 假)
.如果真 (ret = 假)
  hUpdate = BeginUpdateResource (PE文件路徑, 假)
  UpdateResource (hUpdate, 24, 1, 2052, 取變量數據地址 (清單數據), 取字節集長度 (清單數據))
  ret = EndUpdateResource (hUpdate, 假)
.如果真結束
CloseHandle (hModule)
返回 (ret)

運行結果:

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

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接

延伸 · 閱讀

精彩推薦
  • 易語言易語言關于程序進程和線程的基礎知識

    易語言關于程序進程和線程的基礎知識

    今天小編就為大家分享一篇關于易語言關于程序進程和線程的基礎知識,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起...

    三葉資源網6662022-02-24
  • 易語言易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    今天小編就為大家分享一篇關于易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,...

    易語言幫助手冊9092022-01-12
  • 易語言易語言獲取指定磁盤的名稱

    易語言獲取指定磁盤的名稱

    今天小編就為大家分享一篇關于易語言獲取指定磁盤的名稱,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來...

    易語言幫助手冊12662022-01-04
  • 易語言實例操作易語言載入窗口

    實例操作易語言載入窗口

    在本文中小編給大家整理的是關于易語言載入窗口的教程和步驟內容,需要的可以跟著學習下...

    易語言教程網19162022-03-02
  • 易語言易語言生成exe文件的方法

    易語言生成exe文件的方法

    在本篇內容中小編給大家分享的是關于易語言生成exe文件的方法知識點,需要的朋友們參考下。...

    易語言教程網14792022-03-01
  • 易語言易語言設置進度條邊框樣式的方法

    易語言設置進度條邊框樣式的方法

    今天小編就為大家分享一篇關于易語言設置進度條邊框樣式的方法,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨...

    易語言幫助手冊4422022-01-20
  • 易語言一步一步跟我學易語言之關于變量

    一步一步跟我學易語言之關于變量

    今天小編就為大家分享一篇關于一步一步跟我學易語言之關于變量,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨...

    易語言幫助手冊10822021-06-17
  • 易語言一步一步跟我學易語言之第二個易程序菜單設計

    一步一步跟我學易語言之第二個易程序菜單設計

    今天小編就為大家分享一篇關于的一步一步跟我學易語言之第二個易程序菜單設計,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要...

    易語言幫助手冊7092021-06-17
主站蜘蛛池模板: 双性产卵 | 99视频有精品视频免费观看 | 亚洲欧美综合区自拍另类 | 欧美日韩一区二区三区在线观看 | 国产乱子伦一区二区三区 | 精品一区视频 | 韩剧消失的眼角膜免费完整版 | 黑人巨摘花第一次出血 | 国产成人精品视频一区 | 久久精品无码人妻无码AV蜜臀 | 欧美精品一区二区三区免费播放 | 我的绝色岳每雯雯 | 亚洲国产精品嫩草影院久久 | 99久久爱热6在线播放 | 亚洲乱码一二三四区国产 | 日日爽| 四虎精品免费国产成人 | 日本javhd | kayden kross喷水| 亚洲不卡高清免v无码屋 | 国士李风起全文在线阅读 | 亚飞与亚基国语1080p在线观看 | 香蕉精品国产高清自在自线 | 国产色图片 | 免费视频专区一国产盗摄 | 激情三级做爰在线观看激情 | 四虎现在的网址入口2022 | 艾秋麻豆果冻传媒老狼仙踪林 | 亚洲国产视频网站 | 欧美三级不卡在线观线看高清 | 四虎 2022 永久网站 | 美女机机对机机的视频(免费) | 欧美交换乱理伦片120秒 | 美女国内精品自产拍在线播放 | 大伊香蕉精品二区视频在线 | 日本大片在线 | 秋霞黄色 | 欧美精品一区二区三区免费 | 高人先生免费观看全集 | 国产精品视频久久久久 | 91九色在线视频 |