Ejemplos usando el Api de windows para Visual basic

163 - Exportar funciones api usando el Link.exe

Ejemplo para poder exportar las funciones Api contenidas en un archivo dll o exe, usando el Commando Exports del Link.exe de visual basic

Para exportar las funciones de alguna dll o archivo que contenga funciones Api, por ejemplo el archivo kernell32.dll, User32.dll, Shell32.dll, advapi u otro archivo que contenga funciones , desde la línea de comandos de windows se puede usar el Link.exe con el comando Exports

La sintáxis para exportar las funciones sería

"Ruta del LINK.EXE de vb" /dump /exports "Ruta del archivo dll o Exe" /out:"ruta del archivo Txt"

Nota: El archivo Link.exe se encuentra en el directorio de instalación de vb

Este ejemplo hace eso mismo, pero lo hace desde Visual basic. El archivo txt lo genera en el app.path.

vista del formulario para exportar las funciones api a un archivo de texto

Controles:

Agregar un RichTextBox
Un Commondialog
Un CommandButton.

Código fuente en el formulario

Option Explicit ' Abre el cuadro de diálogo para seleccionar el archivo dll / exe etc.. Private Sub Command1_Click() With CommonDialog1 .FileName = vbNullString .Filter = "Archivos dll|*.dll|Archivos exe|*.exe|Todos|*.*" .ShowOpen If .FileName = vbNullString Then Exit Sub Call Exportar_funciones(.FileName) End With End Sub ' Exporta las funciones al archivo txt Function Exportar_funciones(Path_Dll As String) Dim Path_txt As String Dim Nombre_Archivo As String Dim Pausa As Long Dim ret As Long ' Comadno del Link.exe para exportar las funciones Const Comando_Export As String = " /dump /exports " 'Path del archivo Link.exe ( ubicado en el directorio _ de instalación de visual basic ) Const Path_Link As String = "C:\Archivos de programa\Microsoft " & _ "Visual Studio\VB98\LINK.EXE" ' Extrae el nombre del archivo Dll separándolo del path Nombre_Archivo = Right(Path_Dll, Len(Path_Dll) - InStrRev(Path_Dll, "\")) Me.Caption = Nombre_Archivo ' extrae el nombre de la extensión Nombre_Archivo = Left(Nombre_Archivo, InStr(Nombre_Archivo, ".") - 1) ' ruta donde generar el archivo txt con las funciones Api Path_txt = App.Path & "\" & Nombre_Archivo & ".txt" If Path_Dll = vbNullString Or Path_txt = vbNullString Then Exit Function End If ' exporta mediante el shell ejecutando el archivo Link.exe ret = Shell(Chr(34) & Path_Link & Chr(34) & _ Comando_Export & Chr(34) & Path_Dll & Chr(34) & _ " /out:" & Chr(34) & Path_txt & Chr(34), vbHide) Pausa = Timer Me.MousePointer = vbHourglass ' Pausa para que no dé error al cargar el archivo en el richtextbox While (Pausa + 2) > Timer DoEvents Wend ' Carga el txt en el RichtextBox RichTextBox1.LoadFile Path_txt Me.MousePointer = vbNormal MsgBox " Se generó el archivo: " & Nombre_Archivo & ".txt" & vbNewLine & _ " .. en el App.Path ", vbInformation End Function Private Sub Form_Load() Command1.Caption = " -> Seleccionar archivo para exportar " End Sub Private Sub Form_Resize() Command1.Width = 3000 Command1.Height = 350 RichTextBox1.Move 0, 0, _ Me.ScaleWidth, _ Me.ScaleHeight - (Command1.Height + 100) Command1.Move Me.ScaleWidth - (Command1.Width + 50), _ (RichTextBox1.Top + RichTextBox1.Height + 50) End Sub

Enlaces relacionados

Visor de funciones y constantes api

Buscar en Recursos vb