Sección de código fuente Visual basic


Ping y Trace route

Dll Activex para realizar Ping y Trace mediante el Api winsock



 

Este código fuente es un DLL Activex que hice en base a unos ejemplos que tenía archivados, y que permitían realizar mediante el uso de algunas funciones del Api, principalmente la librería wsock32.dll, un ping a un dominio y también un TraceRoute.

La dll tiene 2 métodos, uno llamado Ping y otro Trace. A estos se le deben enviar como parámetro un control TextBox o Label de nuestro proyecto para mostrar el resultado

La dll compilada la podés descargar desde este enlace. Dll Ping trace

Además de dichos métodos, tiene 3 propiedades que son:

Pasos para crear la Dll Activex

 

  1. Comenzar un proyecto de tipo Dll Activex.
  2. Al módulo de clase por defecto llamado class1 cambiarlo por: getPing
  3. Agregar un módulo .bas donde se definirán algunas funciones API, UDT y constantes.
  4. Renombrar el proyecto (Proyecto1) por GPing o el que quieras (este nombre será el que aparecerá luego cuando la referencies) ... o si no, podés establecrle el nomre que tendrá, desde el menú proyecto > Propiedades de proyecto > descripción del proyecto, como está en la imagen:

 

vista de la ventana de Propiedades de proyecto para establecer el nombre de la Dll Activex

 

 

Pegar el siguiente código en el módulo de clase

 

Colocar el siguiente código en el módulo .bas

 


Generar la Dll e incluirla en un proyecto Exe

 

Ahora compilar la Dll desde el menú Archivo. Una ves generada, crear un proyecto de tipo Exe estándar para probarla.

 

Colocar los siguientes controles en un formulario:

 

Los controles quedarán similares a los de la siguiente gráfico:

 

Desde el menú Proyecto > Referencias , añadir la dll generada.

 

El código del Formulario

 




Buscar en Recursos vb