proxy en webbrowser

[rubeng]

alguien tiene idea de como cambiar la ip en un webbrowser o esconderla y mostrar otra?
salu2

[HaDeS, -]

Puedes utilizar un proxy, para utilizar un proxy por medio de un componente podes utilizar el componente Microsoft Internet Transfer Control 6.0, y en la propiedad Proxy pones el servidor proxy que queres usar.
Tambien por medio del componente Microsoft Winsock Control 6.0 cuando te comuniques con la web utiliza la cabecera x_forwarded_for.
Ejemplo.
GET /index.php HTTP/1.1
Host: www.elhacker.net
X_Forwarded_For: 127.0.0.1
Connection: keep-alive

No se si es la respuesta a tu pregunta, pero no la entiendo muy bien xD
saludos!

[rubeng]

gracias por tu ayuda.. pero esto como se usa?

Código [Seleccionar] Expandir

GET /index.php HTTP/1.1
Host: www.elhacker.net
X_Forwarded_For: 127.0.0.1
Connection: keep-alive
algun ejemplo o algo?
salu2

[HaDeS, -]

Con el componente Winsock, pero eso seria una proxy transparente, osea en los registros del servidor queda que tu ip es 127.0.0.1, pero si desde php se hace <?php echo $_SERVER['REMOTE_ADDR']; ?>, entonces aparecera tu ip tal como es.

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Winsock1.Connect "foro.elhacker.net",80
End Sub

'Cuando este Conectado
Private Sub Command2_Click()
Winsock1.Senddata "GET /index.php HTTP/1.1" & vbCrLf & _
                             "Host: foro.elhacker.net" & vbCrLf & _
                             "X_Forwarded_For: 127.0.0.1" & vbCrLf & _
                             "Connection: close" & vbCrLf & vbCrLf
End Sub

Espero que te sirva

[rubeng]

gracias por todo. ya esta
salu2

[rubeng]

ya que estamos en el tema se puede hacer un get de un jpg meterlo en un picturebox o un image?
salu2

[HaDeS, -]

Bueno, podes hacerlo de la siguiente forma.
Todo paso a paso, despues lo podes automatizar

El codigo es:

Código (vb) [Seleccionar] Expandir


'Se neceseitan 3 command button, y un objeto de imagen (Image1)
Private Sub Command1_Click()
Wk.Connect "localhost", 80    'Conectamos al host
End Sub

Private Sub Command2_Click()
Wk.SendData "GET /juacker.jpg HTTP/1.1" & vbCrLf & _        'Hacemos la peticion de la image
            "Host: localhost" & vbCrLf & _
            "Connection: keep-alive" & vbCrLf & vbCrLf
End Sub

Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim Imagen$, Imagen2$, Headers   'Declaramos las variables
Wk.GetData Imagen
If InStr(1, Imagen, vbCrLf & vbCrLf, vbTextCompare) <> 0 Then      'Si en la primera peticion se nos envia las cabeceras del servidor que indican que todo va bien, entonces dividimos lo que nos envia en dos partes, la primera que son las cabeceras del servidor, y la segunda que es una parte de la imagen.
    Headers = Split(Imagen, vbCrLf & vbCrLf, 2)
    Imagen2 = Headers(1)     'Es la parte de la imagen, sin las cabeceras del servidor
Else
    Imagen2 = Imagen       'Si no se estan enviando las cabeceras, entonces asignamos a imagen2 el valor de imagen. Recordamos que el servidor se conecta varias veces a nosotros para enviarnos el contenido del archivo. si es una imagen de una mega, no nos manda la mega al tope, nos la manda por pedazos, por eso tenemos que poner este codigo
End If
Open App.Path & "\imagen.jpg" For Binary Access Write As #1      'Abrimos el archivo imagen.jpg, puede ser cualquier otro tipo de archivo, en modo binario
Put #1, LOF(1) + 1, Imagen2       'escribimos el contenido al final del archivo del valor que nos ha enviado el servidor
Close #1
End Sub

Private Sub Command3_Click()
Image1.Picture = LoadPicture(App.Path & "\imagen.jpg")      'Cargamos la imagen que hemos pedido
End Sub


Creo que es asi , si hay alguna forma mas simple, me gustaria saberla
saludos

[rubeng]

una cosa se me guarda la imagen pero todo en blanco por que pasa esto :S
ayuda!! xD no hay drama que sea png¿

[HaDeS, -]

los image no soportan el tipo del png, mira si en el directorio esta creada la imagen y abrela con un editor normal, te debe salir tal cual la bajaste, el codigo que te pase ahi sirve para bajar cualquier tipo de archivo.
Depronto ejecutaste dos o mas veces el codigo con el archivo ya creado, si haces esto, los datos se escriben al final del archivo logrando deformarlo.
Para que te de bien el codigo el archivo "imagen.jpg" no debe estar creado.
saludos

[satan69]

como tan hablando de webbrowser.. pues mi pregunta es..

www.blabla.com/bla.txt 
seria asi

WebBrowser1.Navigate "www.blabla.com/bla.txt"

y me abre lo que tengo en bla.txt  ahora mi preguntita seria como mando el resultado a un text1.text

si pongo

text1.text= webbrowser1   ----> me manda el nombre de controlador jejejeje
como seria tonces 


y gracias de antemano