Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Cuadro de diálogo buscar Equipo de Red

  • 0 Respuestas
  • 1648 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5469
  • Actividad:
    15%
  • Reputación 35
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 27, 2010, 04:36:31 pm »
Ejemplo que utiliza la función del API SHBrowseForFolder y SHGetSpecialFolderLocation para selecionar uno de los ordenadores conectados a nuestra red.

Vista del cuadro de diálogo

Para desplegar el diálogo , llamar a la función " Buscar_Equipo_De_Red " y esta función luego retornará el nombre de la máquina seleccionada
Controles

Un CommandButton

Código: Visual Basic
  1. Option Explicit
  2.  
  3. 'Constantes
  4. Private Const ERROR_SUCCESS As Long = 0
  5. Private Const MAX_PATH As Long = 260
  6. Private Const CSIDL_NETWORK As Long = &H12
  7. Private Const BIF_RETURNONLYFSDIRS As Long = &H1
  8. Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
  9.  
  10. 'Estructura BROWSEINFO necesaria para el Api SHBrowseForFolder
  11.  
  12. Private Type BROWSEINFO 'BI
  13. hOwner As Long
  14. pidlRoot As Long
  15. pszDisplayName As String
  16. lpszTitle As String
  17. ulFlags As Long
  18. lpfn As Long
  19. lParam As Long
  20. iImage As Long
  21. End Type
  22.  
  23. 'Declaramos la función Api SHBrowseForForlder
  24. Private Declare Function SHBrowseForFolder _
  25. Lib "shell32.dll" _
  26. Alias "SHBrowseForFolderA" ( _
  27. lpBrowseInfo As BROWSEINFO) As Long
  28.  
  29. 'Declaramos la función Api SHGetSpecialFolderLocation
  30.  
  31. Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" ( _
  32. ByVal hwndOwner As Long, _
  33. ByVal nFolder As Long, _
  34. pidl As Long) As Long
  35.  
  36.  
  37. 'Función que devuelve el nombre de la máquina
  38.  
  39.  
  40. Private Function Buscar_Equipo_De_Red() As String
  41.  
  42. Dim BI As BROWSEINFO
  43. Dim pidl As Long
  44. Dim sPath As String
  45. Dim pos As Integer
  46.  
  47. ' Obtener el pidl de la carpeta Entorno de red
  48. If SHGetSpecialFolderLocation(Me.hWnd, CSIDL_NETWORK, pidl) = ERROR_SUCCESS Then
  49.  
  50. With BI
  51. .hOwner = Me.hWnd
  52. .pidlRoot = pidl
  53. .pszDisplayName = Space$(MAX_PATH)
  54. .lpszTitle = " Seleccionar el ordenador de la red de la lista :"
  55. .ulFlags = BIF_BROWSEFORCOMPUTER
  56. End With
  57.  
  58. ' Esto abre el diálogo para buscar el equipo de red
  59. If SHBrowseForFolder(BI) <> 0 Then
  60. 'retorna el valor a la función, es decir el nombre del equipo
  61. Buscar_Equipo_De_Red = "\\" & Replace(BI.pszDisplayName, Chr(0), vbNullString)
  62. End If
  63.  
  64. End If
  65. End Function
  66.  
  67. Private Sub Command1_Click()
  68. ' Llama a la función que abre el cuadro de diálogo
  69. Call Buscar_Equipo_De_Red
  70. End Sub
  71.  
  72. Private Sub Form_Load()
  73. Command1.Caption = " Buscar equipo de Red "
  74. End Sub
« Última modificación: Mayo 12, 2014, 03:27:02 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1665
Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
RichTextBox:Buscar todas las palabras iguales que uno desee y cambiarle el color

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2955
Último mensaje Julio 26, 2010, 03:48:27 pm
por ANTRAX
Buscar archivos en forma avanzada usando funciones API

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1853
Último mensaje Julio 28, 2010, 12:40:43 am
por Ignaro mayor de BsAs
Abrir la caja de dialogo de Abrir con selección multiple de archivos(API)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2272
Último mensaje Julio 26, 2010, 12:17:09 pm
por ANTRAX
Dialogo Guardar Como

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1980
Último mensaje Julio 27, 2010, 04:35:00 pm
por ANTRAX