elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
29 Mayo 2012, 03:17  


Tema destacado: Últimos eventos sobre seguridad/inseguridad

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  Duda con "If InStr" 		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Duda con "If InStr"  (Leído 806 veces)
usuario oculto


Desconectado Desconectado

Mensajes: 450



Ver Perfil WWW
Duda con "If InStr"
« en: 5 Julio 2011, 19:42 »
 con esto...
el code me busca una cosa y si la encuentra sale mensaje:
Código:
'la parte del código es la que se aseugra de haberlo encontrado:

 If InStr(Titulo_Win, El_titulo) <> 0 Then

 msgbox ("hola mundo")



lo que pretendo es que cuando lo busque si no lo encuentra me salga algo tipo

msgbox ("no encontrado")
'o lo que me la gana, ejemplo , cerrar un timer o reiniciar el pc..

20:14 sin resolver
« Última modificación: 5 Julio 2011, 20:47 por mansan[a] » En línea
Que le jodan a  la salud mental!
Fecha de registro:    16 Noviembre 2008, 17:38
años atrás users baneados :)
AlxSpy

Desconectado Desconectado

Mensajes: 137


Ver Perfil
Re: Duda con "If InStr" sin resolver
« Respuesta #1 en: 5 Julio 2011, 20:32 »
agregale un else:

Código:
'la parte del código es la que se aseugra de haberlo encontrado:

 If InStr(Titulo_Win, El_titulo) <> 0 Then

 msgbox ("hola mundo")
else
 msgbox "No se encontro"
end if
En línea
usuario oculto


Desconectado Desconectado

Mensajes: 450



Ver Perfil WWW
Re: Duda con "If InStr" sin resolver
« Respuesta #2 en: 5 Julio 2011, 20:44 »
no funciona de esa manera, siempre me sale la que pongo debajo del "else" aunque sea correcta la búsqueda
En línea
Que le jodan a  la salud mental!
Fecha de registro:    16 Noviembre 2008, 17:38
años atrás users baneados :)
AlxSpy

Desconectado Desconectado

Mensajes: 137


Ver Perfil
Re: Duda con "If InStr"
« Respuesta #3 en: 5 Julio 2011, 21:03 »
es sencillo asi te va quedar claro el uso de esa funcion:

Código
Private Sub Form_Load()
    Dim CadenaDondeBuscar As String
    Dim CadenaABuscar As String
 
    CadenaDondeBuscar = "hola que tal"
    CadenaABuscar = "que"
 
    If InStr(1, CadenaDondeBuscar, CadenaABuscar) <> 0 Then
        MsgBox "cadnena encontrada", vbInformation
    Else
        MsgBox "no se encontro la cadena", vbCritical
    End If
 
    End
End Sub
 
 

en CadenaABuscar cambiale por otra cosa como "qpow" y se va ejecutar el else.
« Última modificación: 6 Julio 2011, 01:29 por raul338 » En línea
Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: Duda con "If InStr"
« Respuesta #4 en: 5 Julio 2011, 22:02 »
Código
Dim text As String
Dim palabra As String
 
text = "Hola mundo"
palabra = "mun"
 
If InStr(text, palabra) Then
MsgBox "el string palabra se encuentra dentro de texto"
Else
MsgBox "el string palabra no se encuentra dentro de texto"
End If
 
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
De donde puedo descargar utilidades: "Formas", "Estilos", "Motivos", D
Diseño Gráfico 		Ad0nis 2 1,395 Último mensaje 2 Septiembre 2006, 15:48
por Ad0nis
[Ayuda] modificar "start page" en "internet explorer" con "batch"
Scripting 		taton 7 4,228 Último mensaje 20 Septiembre 2006, 01:45
por taton
tengo un asuper duda que tiene que ver con la pelicula ""americanpai""
Dudas Generales 		dante_1987 2 580 Último mensaje 22 Noviembre 2008, 13:41
por Carloswaldo
Duda urgente con la señal "pwr" de "airodump"
Wireless en Linux 		pitoloko 6 1,849 Último mensaje 21 Abril 2009, 08:08
por pitoloko
Duda sobre meta http-equiv="Content-Type" content="text/html; charset=utf-8"
Desarrollo Web 		Hadess_inf 3 4,706 Último mensaje 22 Julio 2010, 06:44
por Morris
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines