proxy en webbrowser

Iniciado por rubeng, 15 Agosto 2007, 18:12 PM

0 Miembros y 1 Visitante están viendo este tema.

HaDeS, -

#10
Bueno, no he abierto el visual pero te pongo el codigo xD, si te sale algun error me dices lo corrijo, es que no tengo mucho tiempo pa responder :P.
No te recomiendo utilizar ese control, mejor utiliza el componente del winsock.
asi:
Código (vb) [Seleccionar]

private sub command1_click()
winsock1.connect "www.blabla.com",80
'esperas a que se conecte, luego undes command2
end sub

private sub command2_click()
winsock1.senddata "GET /bla.txt HTTP/1.1" & vbcrlf & _
                            "Host: www.blabla.com" & vbcrlf & _
                            "Connection: close" & vbcrlf & vbcrlf
end sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Texto$, Texto2$, header
'$ = string
Winsock1.GetData Texto
header = split(texto,vbcrlf & vbcrlf)
texto2 = header(1)
Text1.text = texto2
end sub


Mira si te funciona, bytes ;)
jiji, perdon, se me habia olvidado xD, en eso estaba pensando mientras iba por mi comida, weno, creo que asi debe funcionar. digo creo porque todavia no he abierto el visual.
End Sub

Ferсhu

Hades creo q te falto saltar la info de la cabecera de respuesta, es decir hay q guardar el texto dsp de q aparezca "Content-Type: text/plain"  :)

Pero asi debe funcionar igual.

HaDeS, -

ya esta, gracias <~>FeRcHu<~> ;)

satan69

Cita de: HaDeS, - en 22 Agosto 2007, 04:38 AM
Bueno, no he abierto el visual pero te pongo el codigo xD, si te sale algun error me dices lo corrijo, es que no tengo mucho tiempo pa responder :P.
No te recomiendo utilizar ese control, mejor utiliza el componente del winsock.
asi:
Código (vb) [Seleccionar]

private sub command1_click()
winsock1.connect "www.blabla.com",80
'esperas a que se conecte, luego undes command2
end sub

private sub command2_click()
winsock1.senddata "GET /bla.txt HTTP/1.1" & vbcrlf & _
                            "Host: www.blabla.com" & vbcrlf & _
                            "Connection: close" & vbcrlf & vbcrlf
end sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Texto$, Texto2$, header
'$ = string
Winsock1.GetData Texto
header = split(texto,vbcrlf & vbcrlf)
texto2 = header(1)
Text1.text = texto2
end sub


Mira si te funciona, bytes ;)
jiji, perdon, se me habia olvidado xD, en eso estaba pensando mientras iba por mi comida, weno, creo que asi debe funcionar. digo creo porque todavia no he abierto el visual.
End Sub


yo decia por el webbrower porque toda pc tiene navegador IE... es mejor en cierta forma para que lo quieres....y si utilizo el winsock.. pues tendria que enviarselo a la victima .. y mucho problema .. mas kb para infectar...

si tienes alguna sugerencia con el webbrowser.... gracias de antemano

HaDeS, -

Pues la verdad a mi me funciona bastante mal ese componente, porque cuando lo quiero agregar, salen errores y de todo, por eso nunca uso componentes, uso es una clase que encontre por ahi del winsock, que no tengo que agregar componentes.
con ese del webbrowser, me parece que lo utilice hace como dos años, intenta si con text1.text = webbrowser1.openurl(...
me parece que asi es, pero ni pi xD
saludos ;)

pablincn

hola a todos quiero saber si se puede enviar variables de sesion desde el control winsock a php si pude enviar variables post y get, lo que pasa es que se desconecta el control y se me pierden las variables de sesion como el usuario y el pass si alguien me puede ayudar por favor

sircid

#16
Cita de: satan69 en 22 Agosto 2007, 03:32 AM
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  ;D ;D ;D ;D


y gracias de antemano

text1.text = webbrowser1.document.documentelement.outerhtml

En cualquier pagina html te incluiria en el text1.text todo el codigo html con sus tags <html><body>... etc etc. Pero al mostrar un txt el codigo de fuente es el txt integro.

Por cierto, como HaDeS decia, utilizar el winsock y el protocolo http x ti mismo es mucho mejor que usar el webbrowser. webbrowser va a tener todos los errores que el internet explorer tiene, y ademas al utilizarlo en vb6 a mi no me daba nada mas que errores. me pase a winsock y protocolo http para construir mi propio webbrowser, tienes maximo control sobre la informacion que se va a enviar al servidor(cookies) y sobre todo como se va a enviar esa informacion (headers)... etc.

el protocolo http es muy facil, si tienes dudas no tienes nada mas que preguntar.