Título: Importar APIs Publicado por: Lekim en 24 Noviembre 2015, 00:45 am Hola
///IMPORTAR APIs/// Quiero compartir esta código curioso para importar APIs de librerías DLL y de aplicaciones. Es muy útil. Código
Sl2 El método también se puede usar para obtener información a través de aplicaciones que usen comandos Este ejemplo obtiene es el resultado de hacer: ping www.google.es Código
Mediante este...snippet, supongo. Se obtendría el resultado de una línea de comandos que usáramos en la consola de windows: Código
Es importante poner entre comillas la aplicación a la que llamamos: ""cmd.exe"" Código
para menos lío también se puede llamar así: Código
el caso es que la aplicación quede entre comillas. [MODIFICACADO] Bueno, he hecho una pequeña modificación porque me he dado cuenta que claro, no todas las aplicaciones con comandos tienen el mismo comando de salida. Por ejemplo link.exe tiene /out: y cmd.exe tiene '>'. Así que esto es mejor aplicarlo cuando establecemos el comando y no desde el snippet Con lo cual quedaría así con link.exe: Código
o así en con cmd.exe: Código
Y he modificado esta línea quitando '>': Código
También he añadido: Código
Que no se en otra compu, pero en la mía si no establezco esta codificación para leer el archivo no se ven correctamente las vocales con acento. ------------------------------------------------------- ALGUNOS COMANDOS INTERESANTES PARA OBTENER INFORMACIÓN Código: Dim sCommand As String = String.Format("""{0}"" /r dir C: >", "cmd.exe") Código: Dim sCommand As String = String.Format("""{0}"" /r ping {1} >", "cmd.exe", "www.elhacker.net") Para mostrar todo el contenido de la tabla de rutas IP Código: Dim sCommand As String = String.Format("""{0}"" /r route print >", "cmd.exe") Muestra la configuración de TCP/IP completa de todos los adaptadores Código: Dim sCommand As String = String.Format("""{0}"" /r ipconfig /all >", "cmd.exe") Muestra una lista de todos los controladores de dispositivo instalados y sus propiedades. [modo tabla] Código: Dim sCommand As String = String.Format("""{0}"" /r driverquery >", "cmd.exe") Código: Dim sCommand As String = String.Format("""{0}"" /r driverquery /fo csv >", "cmd.exe") Muestra los archivos en lista donde se ejecuta esta apliación Código: Dim sCommand As String = String.Format("""{0}"" /r tree /f >", "cmd.exe") Muestra todos los archivos del directorio C: (puede tardar un poco según el disco) Código: Dim sCommand As String = String.Format("""{0}"" /r tree c:\ /f >", "cmd.exe") [Este es muy buen comando] Muestra información de configuración detallada acerca de un equipo y su sistema operativo (puedes usar 'csv' o 'list' en lugar de 'table' Código: Dim sCommand As String = String.Format("""{0}"" /r systeminfo /fo table >", "cmd.exe") Para obtener información de un determinado host (sistema) comando= 'systeminfo /s HOST /fo table' Para(obtener) 'HOST' escribe hostname en la consola y luego lo incorporas en el siguente comando, en este caso es 'mypc' Código: Dim sCommand As String = String.Format("""{0}"" /r systeminfo /s mypc /fo table >", "cmd.exe") Muestra una lista de los servicios que se están ejecutando Código: Dim sCommand As String = String.Format("""{0}"" /r Net start >", "cmd.exe") Muestra las conexiones activas Código: Dim sCommand As String = String.Format("""{0}"" /r netstat >", "cmd.exe") Muestra todas las conexiones y puertos de escucha ' Código: Dim sCommand As String = String.Format("""{0}"" /r netstat -a >", "cmd.exe") Muestra el ejecutable que crea cada conexión o puerto de(escucha) Código: Dim sCommand As String = String.Format("""{0}"" /r netstat -b >", "cmd.exe") Muestra las estadísticas Ethernet. Se puede combinar con la opción()-s Código: Dim sCommand As String = String.Format("""{0}"" /r netstat -e >", "cmd.exe") Muestra estadísticas por protocolo. De forma predeterminada, se muestran para IP, IPv6, ICMP, ICMPv6, TCP, TCPv6, UDP y UDPv; se puede utilizar la opción -p para especificar un subconjunto de los valores predeterminados Código: Dim sCommand As String = String.Format("""{0}"" /r netstat -s >", "cmd.exe") CONSEJO: 'ALGUNOS COMANDOS PERMITEN USAR TRES TIPOS DE LISTA [LIST|CSV|TABLE] usando CSV puedes acceder fácilmente a la información usando SPLIT MODO CSV: "infoA","InfoB","infoC","InfoD" Ejemplo: Devuelve la dirección de control de acceso a medios (MAC, media access control) y lista de los protocolos de red asociados con cada la dirección de todas las tarjetas de red de cada equipo Código: Dim sCommand As String = String.Format("""{0}"" /r getmac /fo csv /nh /v >", "cmd.exe") Código: Dim sCommand As String = String.Format("""{0}"" /r getmac /s mypc /fo csv >", "cmd.exe") Espero que os sirva sl2 :D [condejo] Para un TextBox u otro control de texto usa la fuente Courier New para que las tablas se muestren de forma ordenada. |