alguien tiene idea de como cambiar la ip en un webbrowser o esconderla y mostrar otra?
salu2
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!
gracias por tu ayuda.. pero esto como se usa?
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
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.
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 :P
gracias por todo. ya esta
salu2
ya que estamos en el tema se puede hacer un get de un jpg meterlo en un picturebox o un image?
salu2
Bueno, podes hacerlo de la siguiente forma.
Todo paso a paso, despues lo podes automatizar
El codigo es:
'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 :P, si hay alguna forma mas simple, me gustaria saberla
saludos
una cosa se me guarda la imagen pero todo en blanco :P por que pasa esto :S
ayuda!! xD no hay drama que sea png¿
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 ;)
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
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:
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
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.
ya esta, gracias <~>FeRcHu<~> ;)
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:
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
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 ;)
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
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.