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

[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)