Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: bautistasbr en 6 Octubre 2005, 17:43 pm



Título: una mini duda
Publicado por: bautistasbr en 6 Octubre 2005, 17:43 pm
ola,tengo una pequeña duda,tengo un checkbox,q cuando lo pinchas impide abrirse ventanas emergentes,pero lo q quiero q cada vez q impida el acceso a una pagina,me las muestre en un label y se vallan sumando.No se si me e explicado bien,pero espero q me ayuden.  ;D


Título: Re: una mini duda
Publicado por: {_The_Alwar_} en 6 Octubre 2005, 18:11 pm
pues le pones que en el evento click del check box agregue a una label lo que tu quieras, y si quieres con una variable Booleana controlas si esta marcado o no


Título: Re: una mini duda
Publicado por: bautistasbr en 6 Octubre 2005, 20:34 pm
como lo ago?
esq soy un poco burro


Título: Re: una mini duda
Publicado por: {_The_Alwar_} en 6 Octubre 2005, 20:37 pm
burro, no creo, seras novato...digo yo vamos, pero te e entendido mal, tu lo que quieres es que cuando se bloquee una ventana te avise como el IE con la barrita esa amarila no? esk eso no se, q estas haciendo una navegador no? como lo estas haciendo?


Título: Re: una mini duda
Publicado por: bautistasbr en 6 Octubre 2005, 20:49 pm
estoy haciendo un navegador,tiene la opcion anti ventanas emergentes,pero lo que quiero hacer es q cuando bloque alguna pagina me salga en el formulario el numero de paginas bloqueadas,y si encuentra otra,q lo sume


Título: Re: una mini duda
Publicado por: bautistasbr en 6 Octubre 2005, 20:50 pm
estoy haciendo un navegador,tiene la opcion anti ventanas emergentes,pero lo que quiero hacer es q cuando bloque alguna pagina me salga en el formulario el numero de paginas bloqueadas,y si encuentra otra,q lo sume,no se si me explico


Título: Re: una mini duda
Publicado por: {_The_Alwar_} en 6 Octubre 2005, 20:56 pm
cuentame como has exo para que las bloque, ¿estas utilizando el control del IE?


Título: Re: una mini duda
Publicado por: bautistasbr en 6 Octubre 2005, 21:10 pm
q yo sepa no e usado ningun control d IE. t paso el codigo
esto es lo q hace cuando pulso el checkbox

Private Sub chkpopup_Click()
On Error Resume Next
'pop-up ad blocking
If chkpopup.Value = 1 Then
    txtblock.Visible = True
    txtnumber.Visible = True
ElseIf chkpopup.Value = 0 Then
    txtblock.Visible = False
    txtnumber.Visible = False
ElseIf chkpopup.Value = 2 Then
    txtblock.Visible = True
    txtnumber.Visible = True
End If
End Sub


y despues

Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
On Error Resume Next
If chkpopup.Value = 1 Then
    Cancel = True
    txtnumber.Text = txtnumber.Text + 1
ElseIf chkpopup.Value = 0 Then
    Cancel = False
ElseIf chkpopup.Value = 2 Then
    Cancel = True
    txtnumber.Text = txtnumber.Text + 1
End If
End Sub

pero lo q quiero es q me diga q a bloqueado una pagina y el numero total de bloqueadas,con que me lo diga en un label me conformo


Título: Re: una mini duda
Publicado por: {_The_Alwar_} en 6 Octubre 2005, 21:14 pm
muy facil, en el procedimiento de bloquear la ventana le añades label1.caption (etiketa de las ventanas) = label1.caption + 1
osea

Código:
Label1.caption = Label1.caption + 1


Título: Re: una mini duda
Publicado por: bautistasbr en 6 Octubre 2005, 21:52 pm
no me funciona,me sigue diciendo label1 envez de el numero d paginas bloqueadas


Título: Re: una mini duda
Publicado por: {_The_Alwar_} en 6 Octubre 2005, 21:59 pm
espera  se me olvido decirte que tienes que pasarlo a variables integer para que lo sume y ademas primero debes poner un cerete en la label no cres?¿


Título: Re: una mini duda
Publicado por: la caca en 7 Octubre 2005, 18:39 pm
la verdad que sí porque yo no sabía que las letras se podian sumar  :P    L+R = 5 jajajajaj en todo caso sumas cadenas de caracteres L+R = LR   o  LOLO + HOLA = LOLOHOLA jejje

pero al definir la variable en integer tenes 2 opciones:

1)

Private sub form_load()
label1.caption = "0"
end sub

o poner en la propiedad caption del label 0

chau         


Título: Re: una mini duda
Publicado por: bautistasbr en 7 Octubre 2005, 19:37 pm
como ya dije antes,soy un burro.ME podeis poner el codigo entero y explicarme el codigo?

GRACIAS POR LAS MOLESTIAS


Título: Re: una mini duda
Publicado por: DarkMouth en 7 Octubre 2005, 19:51 pm
   
    Ponle esto:
Código:

If IsNumeric(Label1.Caption) Then
  Label1.caption = cInt(Label1.caption) + 1
Else
  'No es numero, no se puede sumar
End



Título: Re: una mini duda
Publicado por: bautistasbr en 7 Octubre 2005, 20:02 pm
no va,no se si habeis entendido mi pregunta,pero lo q quiero hacer esq cuando boque una pagina me lo ponga en un label,y
cada vez las vaya sumando


Título: Re: una mini duda
Publicado por: {_The_Alwar_} en 7 Octubre 2005, 20:12 pm
tronco!! y que te estamos diciendo!! que en el proceso de bloquear una pagina hagas esto
Código:
form1.load
Label1.caption= "0"
end sub

'En el proceso de bloqueo
Label1.caption = label1.caption +1
Asi cada vez que se bloque una ventana se pone el numero que hubiera mas uno


Título: Re: una mini duda
Publicado por: bautistasbr en 7 Octubre 2005, 20:31 pm
MIL GRACIAS
YA ME FUNCIONA
GRACIAS POR AGUANTARME Y SIENTO A VER SIDO TAN PESADO