elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda con este codigo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con este codigo  (Leído 1,937 veces)
5v5

Desconectado Desconectado

Mensajes: 57


Ver Perfil
Ayuda con este codigo
« en: 31 Mayo 2005, 21:08 pm »

miren en la web encontre y modifique el siguiente codigo... el cual abre un una ventana, como la del command dialog, en la que se muestra el entorno de red, pero tambien me aparecen las carpetas compartidas, y yo lo que quiero que me aparezca, es solamente mis grupos de trabajo .....y no las carpetas compartidas....ayuda  donde me hace falta modificar.....


Option Explicit
Private Const ERROR_SUCCESS As Long = 0
Private Const MAX_PATH As Long = 260
Private Const CSIDL_NETWORK As Long = &H12
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000

Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetSpecialFolderLocation _
Lib "shell32.dll" _
(ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
pidl As Long) As Long

Private Declare Sub CoTaskMemFree Lib "ole32.dll" _
(ByVal pv As Long)
Private Function GetBrowseNetworkWorkstation() As String
Dim BI As BROWSEINFO
Dim pidl As Long
Dim sPath As String
Dim pos As Integer

If SHGetSpecialFolderLocation(Me.hWnd, CSIDL_NETWORK, pidl) = RROR_SUCCESS then

With BI
.hOwner = Me.hWnd
.pidlRoot = pidl
.pszDisplayName = Space$(MAX_PATH)
.lpszTitle = "Select a network computer."
.ulFlags = BIF_BROWSEFORCOMPUTER
End With

If SHBrowseForFolder(BI) <> 0 Then
GetBrowseNetworkWorkstation = "\" & BI.pszDisplayName
End If

Call CoTaskMemFree(pidl)

End If
end Function
Private Sub Command1_Click()
Text1.Text = GetBrowseNetworkWorkstation()
End Sub

pero la verdad, no logro entenderlo muy bien, me lo podrian explicar un poquito..... ;D


En línea

....Gusto....


Desconectado Desconectado

Mensajes: 1.804



Ver Perfil
Re: Ayuda con este codigo
« Respuesta #1 en: 31 Mayo 2005, 22:33 pm »

no creo q puedas. vos con esta funcion llamas al entorno de erd, pero no se si se puede "navegar" en éste :(
Lo que vos queres es lo q aparece al tocar "toda la red"y luego "red de MS windows".

saludos ;D


En línea

.:.~GuStO~.:.

5v5

Desconectado Desconectado

Mensajes: 57


Ver Perfil
Re: Ayuda con este codigo
« Respuesta #2 en: 31 Mayo 2005, 22:56 pm »

si eso, mira encontre algo de inf., creo que deve de estar en la constante CSIDL_NETWORK, de la linea:
If SHGetSpecialFolderLocation(Me.hWnd, CSIDL_NETWORK, pidl) = RROR_SUCCESS then

ya que esta constante es donde se indica en que parte quieres empezar...o algo asi...
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con este codigo!!
Programación C/C++
an_war 7 2,110 Último mensaje 25 Noviembre 2010, 06:16 am
por Beakman
ayuda con este codigo porfaavor
Programación C/C++
david0903 1 988 Último mensaje 30 Noviembre 2012, 18:41 pm
por durasno
ayuda a completar este codigo
PHP
chury666 3 1,195 Último mensaje 18 Febrero 2013, 23:43 pm
por chury666
Contestar al PING del irc. Ayuda con este codigo
Programación C/C++
70N1 1 827 Último mensaje 22 Mayo 2013, 16:08 pm
por 0xDani
Ayuda con este codigo js. Crear style dinamicamente.
Programación General
70N1 0 814 Último mensaje 18 Julio 2013, 10:09 am
por 70N1
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines