宝峰科技

 找回密码
 注册

QQ登录

只需一步,快速开始

智能终端设备维修查询系统注册会员邮箱认证须知!
查看: 1448|回复: 0

【叶子出品】根据文本信息动态调用API【提供源码】

[复制链接]

该用户从未签到

叶子的离开 发表于 2014-11-17 13:06:55 | 显示全部楼层 |阅读模式

欢迎您注册加入!这里有您将更精采!

您需要 登录 才可以下载或查看,没有账号?注册

x
[Visual Basic .NET] 纯文本查看 复制代码
#Include Once "windows.bi"


Function CallAPI Cdecl (ByVal LibPath As ZString Ptr,ByVal FuncName As ZString Ptr,ByVal ParamNum As Integer,...) As Integer
	Dim As Any Ptr hins,LibFuncCall
	Dim As Integer RetInt
	hins = LoadLibrary(LibPath)
	If hins Then
		LibFuncCall = GetProcAddress(hins,FuncName)
		If LibFuncCall Then
			If ParamNum Then
				Dim ARG As Any Ptr
				Dim i As Integer
				ARG = va_first()
				For i = 1 To ParamNum
					Dim TL As Any Ptr = va_arg(ARG,Any Ptr)
					Asm
						push [TL]
					End Asm
					ARG = va_next(ARG,Any Ptr)
				Next
				Asm
					Call [LibFuncCall]
					Mov [RetInt],Eax
				End Asm
			Else
				Asm
					Call [LibFuncCall]
					Mov [RetInt],Eax
				End Asm
			EndIf
		Else
			MessageBox(0,"导出函数加载失败!","",MB_OK)
		EndIf
	Else
		MessageBox(0,"找不到DLL文件!","",MB_OK)
	EndIf
	CallAPI = RetInt
End Function


CallAPI("user32.dll","MessageBoxA",4,0,"大家好","我是叶飞",0)
CallAPI("kernel32.dll","Sleep",1,1000)

您需要登录后才可以回帖 登录 | 注册

本版积分规则

免责声明

本站中所有被研究的素材与信息全部来源于互联网,版权争议与本站无关。本站所发布的任何软件编程开发或软件的逆向分析文章、逆向分析视频、补丁、注册机和注册信息,仅限用于学习和研究软件安全的目的。全体用户必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。学习编程开发技术或逆向分析技术是为了更好的完善软件可能存在的不安全因素,提升软件安全意识。所以您如果喜欢某程序,请购买注册正版软件,获得正版优质服务!不得将上述内容私自传播、销售或者用于商业用途!否则,一切后果请用户自负!

QQ|Archiver|手机版|小黑屋|联系我们|宝峰科技 ( 滇公网安备 53050202000040号 | 滇ICP备09007156号-2 )

Copyright © 2001-2023 Discuz! Team. GMT+8, 2024-3-29 02:32 , File On Powered by Discuz! X3.49

快速回复 返回顶部 返回列表