proxy en webbrowser

HaDeS, - · 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

.
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 · 22 Agosto 2007, 04:53 AM

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, - · 22 Agosto 2007, 04:59 AM

ya esta, gracias <~>FeRcHu<~>

satan69 · 28 Agosto 2007, 04:35 AM

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 .
No te recomiendo utilizar ese control, mejor utiliza el componente del winsock.
asi:
Código (vb) [Seleccionar] Expandir
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, - · 28 Agosto 2007, 05:04 AM

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 · 23 Octubre 2007, 00:29 AM

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 · 28 Octubre 2007, 11:43 AM

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

y gracias de antemano

Código [Seleccionar]

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.