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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


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

Desconectado Desconectado

Mensajes: 248


Ver Perfil
almacenar nombre ventana
« en: 1 Agosto 2006, 08:29 am »

bueno quiero que se capte el nombre de la ventana y los vaya poniendo en un listbox pero que no aparezcan repetidos. lo de capturar el nombre de la ventana lo se hacer (getwindowstext) pero no se pasar al listbox y que no se repitan o sea que no figure un mismo dato dos veces.
salu2


En línea

-POLACO-

Desconectado Desconectado

Mensajes: 48


Ver Perfil
Re: almacenar nombre ventana
« Respuesta #1 en: 1 Agosto 2006, 09:03 am »

Mira para pasar al listbox los resultados de (getwindowstext) solo se debe hacer asi
supongamos que lo que te tira el (getwindowstext) lo guardas en la variable "Nombre_Ventana"
List1.AddItem Nombre_Ventana asi lo agregas al listbox.
Ahora para Eliminar Duplicados (No es mio este code) pero funciona joya,debes agregar un Modulo al proyecto  y pega este code :
Código:
'MODULO
Public Sub xListKillDupes(listbox As listbox)
'Elimina duplicado en ListBox
        Dim Search1 As Long
        Dim Search2 As Long
        Dim KillDupe As Long
KillDupe = 0
For Search1& = 0 To listbox.ListCount - 1
For Search2& = Search1& + 1 To listbox.ListCount - 1
KillDupe = KillDupe + 1
If listbox.List(Search1&) = listbox.List(Search2&) Then
listbox.RemoveItem Search2&
Search2& = Search2& - 1
End If
Next Search2&
Next Search1&

End Sub
para llamarlo esto en el Formulario  debes colcoar asi : 

Código:
'FORMULARIO
' Nombre_Ventana aca guardas los nombres de las ventanas
List1.AddItem Nombre_Ventana'carga los resultados
Call xListKillDupes(List1)'elimina duplicados

Espero te sirva ,si no entendes postea ,saludos .-.


En línea

rubeng

Desconectado Desconectado

Mensajes: 248


Ver Perfil
Re: almacenar nombre ventana
« Respuesta #2 en: 1 Agosto 2006, 20:07 pm »

muchas gracias voy a probarlo
salu2
En línea

rubeng

Desconectado Desconectado

Mensajes: 248


Ver Perfil
Re: almacenar nombre ventana
« Respuesta #3 en: 2 Agosto 2006, 07:36 am »

me funciona un rato pero luego me dice llamada a procedimiento o argumento no valida y me señala esta parte en amarillo
listbox.RemoveItem Search2&
alguien sabe por que ? gracias
En línea

elmaro


Desconectado Desconectado

Mensajes: 301


Unas simples palabras...


Ver Perfil
Re: almacenar nombre ventana
« Respuesta #4 en: 2 Agosto 2006, 17:50 pm »

agrega en el modulo que tenes despues de Public Sub xListKillDupes(listbox As listbox) esto:
Código:
On Error Resume Next
asi simplemente pasa x alto ese error,. que parece una uevada
no prove el codigo ni nada,. pero calculo k es xq ya no se encuentran mas "repetidos" entonces no va a "remover" nada
suerte




El MaRo!
En línea

-POLACO-

Desconectado Desconectado

Mensajes: 48


Ver Perfil
Re: almacenar nombre ventana
« Respuesta #5 en: 10 Agosto 2006, 20:48 pm »

Tiene razon ElMaro .
Evidentemente el error te lo tira por que quiere eliminar algo que NO existe.
Fijate que quizas el tengas alguna ventana sin Titulo y por eso te da el error (Me.Caption="" ).
o si no hace la comparacion algo asi :

If Nombre_Ventana<>"" then
Call xListKillDupes(List1)
End If

Asi NO dara error. Saludos .-.
Del extasis a la agonia ,oscila nuestra hitoria;Podemosser lo mejor y tambien lo peor ,con la misma facilidad.Bersuit
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines