Imprimir Página - Ayuda con mi programa lo mas importante me falla :S

Título: Ayuda con mi programa lo mas importante me falla :S
Publicado por: Saok Dagon en 23 Octubre 2006, 14:29 pm

Hola

veamos me fallan dos cosas de mi programa.Yo estoy haciendo un flitrador de webs para que haya webs que se puedan visitar y webs que no,yo tenia pensado usar los archivos Host que estan en stem32/drivers/etc pero no me funciona,entonces me e quedado sin ideas.

el problema B esque uso un progress bar pero esta barra no se me mueve nunca cambia :-\

aver si me echan una mano

saludos[sh]

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: WarGhost en 23 Octubre 2006, 16:35 pm

si no pones parte del código no creo que te podamos ayudar :P

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: Saok Dagon en 23 Octubre 2006, 17:25 pm

ola

de la duda a) lo de que filtre las webs pues no tengo nada (mas que la configuracion de los objetos) pero de la progress bar tengo puesto:

Citar

sub barra()
On error resume next
if barra.value = 20 Then
msgbox "Completado"
end if
end sub

saludos[sh]

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: SheKeL_C$ en 23 Octubre 2006, 17:54 pm

Normal q no s mueva la barra

no t dire el code sino q t enseñare q es cada cosa. Haz un proyecto nuevo y pon una barra d progreso ( llamala barra )

Código:

Private sub timer1_timer
'Lo mas importante de la barra d progreso son estos 3:
'barra.min = 0 ; ay dices el valor minimo q tendra la barra,suele ser 0.
'barra.value = barra.value + 1; Signifa el valor q tendra en ese instante la barra, es lo q esta coloreao d color verde o azul.
'barra.max  = 100 ; lo mismo q el min pero al reves. Es el valor maximo d la barra
barra.min = 0
barra.max = 100
if barra.value = barra.max then timer1.interval = 0: Exit sub
barra.value = barra.value = + 1
end sub

private sub Form_load
 timer1.interval = 10
end sub

P.D : m imagino q abra algun error gramaticalmente, corrijelo e ira ;)

Salu2

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: Saok Dagon en 24 Octubre 2006, 08:25 am

ola

gracias,ya e resuelto el problema con la progress bar.ahora solo me queda el otro ploblema.

Alguien tiene alguna idea de como montar un filtrador web.?

saludos[sh]

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: WarGhost en 24 Octubre 2006, 13:19 pm

puedes usar un IF y un InStr.

;D Salu2

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: Saok Dagon en 25 Octubre 2006, 13:38 pm

ola

;D me lo podrias explicar un poquito mas porfavor el uso de If lo comonozco pero el otro no :huh:

saludos[sh]

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: einfluss en 25 Octubre 2006, 14:46 pm

hey saok como brilla todo :D aqui tienes un poco de info sobre InStr
http://msdn.microsoft.com/library/spa/default.asp?url=/library/SPA/vblr7/html/vafctInStr.asp

Saludox
EINFLUSS.

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: WarGhost en 25 Octubre 2006, 14:52 pm

Cita de: Saok Dagon en 25 Octubre 2006, 13:38 pm

ola

;D me lo podrias explicar un poquito mas porfavor el uso de If lo comonozco pero el otro no :huh:

saludos[sh]

Código:

If InStr(1, LCase(Text1.Text), "elhacker.net") <> 0 Then
MsgBox "Esta web esta restringida :D, Gracias", vbCritical
Else
'funcionamiento normal
End If

eso bloquearía la web y los subdominios.

;D Salu2

Título: Re: Ayuda con mi programa lo mas importante me falla :S
Publicado por: Saok Dagon en 25 Octubre 2006, 19:59 pm

ola

WarGhost eso lo bloquearia si yo estubiera haciendo un explorador web,pero lo que yo necesito esque lo bloque en internet explorer y mozilla o en alguno de esos dos.

saludos[sh]

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Saok Dagon en 23 Octubre 2006, 14:29 pm