易语言置入代码实现动态取DLL指针并调用的方法 取时间+信息框 Win10/XP 已测试通过

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 汇编动态调用DLL, , , Win10/XP 已测试通过
   
5. .程序集变量 Kernel32基址, 整数型
   
6. .程序集变量 GetProcAddress函数指针, 子程序指针
   
7. .程序集变量 LoadLibraryA函数指针, 子程序指针
   
8. .程序集变量 空白指针, 子程序指针
   
9. 
   
10. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
    
11. 
    
12. Kernel32基址 ＝ 取Kernel32基址 ()
    
13. GetProcAddress函数指针 ＝ 取GetProcAddress函数指针 (Kernel32基址)
    
14. LoadLibraryA函数指针 ＝ 取Kernel32函数指针 (“LoadLibraryA”)
    
15. .如果真 (LoadLibraryA函数指针 ＝ 空白指针)
    
16.     信息框 (“取LoadLibraryA函数指针失败！”, 16, , )
    
17.     返回 (0)
    
18. .如果真结束
    
19. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
20. 返回 (0)  ' 可以根据您的需要返回任意数值
    
21. 
    
22. .子程序 _临时子程序
    
23. .局部变量 信息框指针, 子程序指针
    
24. .局部变量 字节集, 字节集
    
25. .局部变量 时间指针, 子程序指针
    
26. .局部变量 信息框标题, 文本型
    
27. .局部变量 信息框内容, 文本型
    
28. .局部变量 索引, 整数型
    
29. .局部变量 计数, 整数型
    
30. .局部变量 d, 短整数型, , "8"
    
31. 
    
32. 信息框指针 ＝ 取DLL指针 (“user32”, “MessageBoxA”)
    
33. 时间指针 ＝ 取Kernel32函数指针 (“GetLocalTime”)
    
34. 字节集 ＝ 取空白字节集 (16)
    
35. 调用指针 (时间指针, 取字节集指针 (字节集))
    
36. 索引 ＝ 1
    
37. .计次循环首 (8, 计数)
    
38.     d [计数] ＝ 取字节集数据 (字节集, #短整数型, 索引)
    
39. .计次循环尾 ()
    
40. 信息框内容 ＝ “今天是” ＋ 到文本 (d [1]) ＋ “年” ＋ 到文本 (d [2]) ＋ “月” ＋ 到文本 (d [4]) ＋ “日 星期” ＋ 到文本 (d [3]) ＋ “ ” ＋ 到文本 (d [5]) ＋ “时” ＋ 到文本 (d [6]) ＋ “分” ＋ 到文本 (d [7]) ＋ “秒 ” ＋ 到文本 (d [8]) ＋ “毫秒”
    
41. 信息框标题 ＝ “系统时间”
    
42. 调用指针 (信息框指针, 0, 取文本指针 (信息框内容), 取文本指针 (信息框标题), #确认钮)
    
43. 
    
44. 
    
45. .子程序 取Kernel32基址, 整数型
    
46. 
    
47. 置入代码 ({ 100, 161, 48, 0, 0, 0, 139, 64, 12, 139, 112, 28, 173, 139, 64, 8, 201, 195 })
    
48. 返回 (0)
    
49. 
    
50. .子程序 取Kernel32函数指针, 子程序指针
    
51. .参数 函数名, 文本型, , 函数名区分大小写
    
52. 
    
53. 返回 (到指针 (调用指针 (GetProcAddress函数指针, Kernel32基址, 取文本指针 (函数名))))
    
54. 
    
55. 
    
56. .子程序 取GetProcAddress函数指针, 子程序指针
    
57. .参数 基址, 整数型
    
58. 
    
59. 置入代码 ({ 139, 69, 8, 232, 4, 0, 0, 0, 201, 194, 4, 0, 83, 81, 82, 86, 139, 216, 139, 67, 60, 3, 195, 139, 64, 120, 3, 195, 139, 80, 32, 3, 211, 51, 201, 139, 52, 138, 3, 243, 65, 128, 62, 71, 117, 245, 128, 126, 3, 80, 117, 239, 128, 126, 7, 65, 117, 233, 128, 126, 14, 0, 117, 227, 73, 139, 80, 36, 3, 211, 102, 139, 12, 74, 139, 80, 28, 3, 211, 139, 52, 138, 3, 243, 139, 198, 94, 90, 89, 91, 195 })
    
60. 返回 (空白指针)
    
61. 
    
62. 
    
63. 
    
64. .子程序 调用指针, 整数型
    
65. .参数 指针地址, 子程序指针
    
66. .参数 参数1, 整数型, 可空
    
67. .参数 参数2, 整数型, 可空
    
68. .参数 参数3, 整数型, 可空
    
69. .参数 参数4, 整数型, 可空
    
70. .参数 参数5, 整数型, 可空
    
71. .参数 参数6, 整数型, 可空
    
72. .参数 参数7, 整数型, 可空
    
73. .参数 参数8, 整数型, 可空
    
74. .参数 参数9, 整数型, 可空
    
75. .参数 参数10, 整数型, 可空
    
76. .参数 参数11, 整数型, 可空
    
77. .参数 参数12, 整数型, 可空
    
78. .参数 参数13, 整数型, 可空
    
79. .参数 参数14, 整数型, 可空
    
80. .参数 参数15, 整数型, 可空
    
81. 
    
82. 置入代码 ({ 86, 190, 15, 0, 0, 0, 141, 77, 8, 141, 76, 241, 252, 139, 65, 4, 133, 192, 116, 2, 255, 49, 78, 131, 233, 8, 133, 246, 117, 239, 255, 85, 8, 94, 201, 194, 124, 0 })
    
83. 返回 (0)
    
84. 
    
85. .子程序 取文本指针, 整数型
    
86. .参数 文本, 文本型
    
87. 
    
88. 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
    
89. 返回 (0)
    
90. 
    
91. .子程序 到指针, 子程序指针
    
92. .参数 指针, 整数型
    
93. 
    
94. 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
    
95. 返回 (空白指针)
    
96. 
    
97. .子程序 取DLL指针, 子程序指针, 公开
    
98. .参数 库名, 文本型, , 库名不区分大小写
    
99. .参数 函数名, 文本型, , 函数名区分大小写
    
100. 
     
101. 返回 (到指针 (调用指针 (GetProcAddress函数指针, 调用指针 (LoadLibraryA函数指针, 取文本指针 (库名)), 取文本指针 (函数名))))
     
102. 
     
103. 
     
104. .子程序 取字节集指针, 整数型
     
105. .参数 数据, 字节集
     
106. 
     
107. 置入代码 ({ 139, 69, 8, 139, 0, 131, 192, 8, 201, 194, 4, 0 })
     
108. 返回 (0)
     

复制代码

Cute

开开心心 发表于 2020-7-3 18:05
为啥瘟7用不了

win7取消了 LoadLibraryA函数，所以就不能用

电脑高手

Cute 发表于 2018-10-16 22:29
沙发前来凑个积分...

这么多了还..

Cute

沙发前来凑个积分...

66大顺

板凳来占个位置

520

来看看咋整的

1心1亿

看看咋整的

4面8方

我也看看

醉菲i

沙发前来凑个积分...

开开心心

为啥瘟7用不了