elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problema para bajar código de fuente (especialmente para WarGhost)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Problema para bajar código de fuente (especialmente para WarGhost)  (Leído 5,368 veces)
dPix

Desconectado Desconectado

Mensajes: 222


¬_¬ - ¬O.o


Ver Perfil
Problema para bajar código de fuente (especialmente para WarGhost)
« en: 13 Septiembre 2006, 00:13 am »

Hola a todos, weno mi problema incide en que no se que estoy haciendo mal pero el caso es que no funciona, ¿el qué? Pues recibir simplemente el código de fuente de una búsqueda en google a través del uso de Sockets (GET...) bueno, pongo el code y me contáis si encontráis el error, muchas gracias de antemano.

Code para poner en marcha:
Código:
If InStr(1, recib, "*google") Then
WinsocK2.Connect "www.google.es", 80
Timer1.Enabled = True
End If

Timer puesto a 3500 de intervalo, en estado original desactivado:
Código:
Private Sub Timer1_Timer()
If WinsocK2.State = sckConnected Then
List1.AddItem "Conectado a google.es por el puerto 80."
Call intentare
End If
End Sub

Llamada que hace el timer el cuál sirve para que no vaya excesivamente rápida la conexión (creo que no es ese el problema):
Código:
Private Sub intentare()
Timer1.Enabled = False
Dim midebuk As Integer
midemuk = InStr(1, Text3.Text, "*google") + 8
WinsocK2.SendData ("GET /search?hl=es&q=" & Mid(Text3.Text, midemuk) & "&meta= HTTP/1.0" & Chr(13) & Chr(10))
List1.AddItem ("GET /search?hl=es&q=" & Mid(Text3.Text, midemuk) & "&meta=" & " HTTP/1.0")
WinsocK2.SendData ("Host:www.google.es" & Chr(13) & Chr(10))
List1.AddItem "Host:www.google.es"
WinsocK2.SendData (Chr(13) & Chr(10))
List1.AddItem (Chr(13) & Chr(10))
End Sub

Datos: al recibir *google busca lo que esté después del espacio después de la "e", aún no tengo puesto que funcione con más palabras ya que aún no funciona ni con una sola, funciona mediante sockets independientes (sin .ocx) y he creado dos con un mismo módulo y módulo de clase y he declarado:
Código:
Public WithEvents WinsocK1 As CSocket
Public WithEvents WinsocK2 As CSocket
También en el load del form:
Código:
Set WinsocK1 = New CSocket
Set WinsocK2 = New CSocket

Espero haberme explicado bien, si hacen falta más datos para ayudarme los daré, muchas gracias de antemano y espero que me ayuden.

Salu2,

dPix :)


En línea

elmaro


Desconectado Desconectado

Mensajes: 301


Unas simples palabras...


Ver Perfil
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #1 en: 13 Septiembre 2006, 00:24 am »

donde esta el code del data arrival???


En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #2 en: 13 Septiembre 2006, 01:32 am »

Esto se puede hacer perfectamente kon la API URLDownloadToFile, Ertai lo hizo asi en una aplicacion suya...aunke no me akuerdo de la Aplikacion...xD

Salu2

En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #3 en: 13 Septiembre 2006, 02:16 am »

No te e entendido muy lo que quieres hacer pero creo que es que busque algo estomáticamente en Google no?

Mira este código te devuelve el código limpio de la búsqueda ;).

Código:
Dim temp As String
Dim buscar As String

Private Sub Form_Load()
buscarGoogle ("Wola 1")
End Sub

Public Function buscarGoogle(data As String)
ws.Close
ws.Connect "www.google.es", 80
buscar = data
End Function

Private Sub ws_Connect()
buscar = Replace(buscar, Chr(32), "%20")
ws.SendData "GET /search?hl=es&q=" & buscar & " HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: Buscador(By WarGhost)" & vbCrLf & _
"Host: www.google.es" & vbCrLf & vbCrLf
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
temp = temp & data
Label1.Caption = "Buscando"
If Not InStr(1, temp, "</html>") = 0 Then
Text1.Text = Mid(temp, InStr(1, temp, "<html>"))
Label1.Caption = "Busqueda Terminada"
ws.Close
Open "C:\Busqueda.htm" For Binary Access Write As #1
Put #1, , Text1.Text
Close #1
MsgBox "Busqueda guardada en C:\Busqueda.htm", vbInformation
End If
End Sub

P.D: porque especialmente para WarGhost?

;D Salu2
En línea

dPix

Desconectado Desconectado

Mensajes: 222


¬_¬ - ¬O.o


Ver Perfil
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #4 en: 13 Septiembre 2006, 21:26 pm »

elmaro, al haber un dataarraival lo que hace es llamar a INTENTARE, pero nunca recibe nada, ya que le he puesto que cuando reciba datos que los ponga en un text, pero nada de nada.

Hendrix, tan solo se trata de bajar un codigo de fuente de una búsqueda en google y buscar los resultados de la primera página.

WarGhost, si, quiero que busque la palabra que esté detrás de *google, pero parece ser que todo está bien pero no funciona nada, no se que habré tocado pero no encuentro el error, voy a comparar lo que he hecho yo con lo tuyo.

PD: era dirigido principalmente a tí porque leí sobre lo del GET en un post tuyo.

Salu2
En línea

WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #5 en: 13 Septiembre 2006, 22:09 pm »

Esque no se que quieres hacer muy bien, si me lo explicas mejor te ayudo ;).
En línea

dPix

Desconectado Desconectado

Mensajes: 222


¬_¬ - ¬O.o


Ver Perfil
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #6 en: 13 Septiembre 2006, 23:09 pm »

A ver, lo que quiero es conectarme a google mediante sockets, bajar un código de fuente (de la búsqueda que sea) analizarla y quedarme con los links que llevan a las páginas (resultados) ofrecidos por google. Espero que ahora me entiendas, esta búsqueda funciona por petición previa indicando una palabra que es la que será buscada, pero no se porque no me funciona con lo que dije en el primer post.

Salu2
En línea

Robokop


Desconectado Desconectado

Mensajes: 1.660



Ver Perfil
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #7 en: 14 Septiembre 2006, 01:16 am »

Como ya te dijo Hendrix usa La apir urlDownloadtofile
mira un ejemplito
Código:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DescargarGoogle(direccion As String, Directorio As String) As Boolean
    Dim valor As Long
    valor = URLDownloadToFile(0, direccion, Directorio, 0, 0)
    If valor = 0 Then DescargarGoogle = True
End Function
Private Sub Form_Load()
DescargarGoogle "http://www.google.com.mx/search?hl=es&q=busqueda+google&btnG=B%C3%BAsqueda+en+Google&meta=", "C:\links.htm"
DescargarGoogle "http://www.google.com.mx/search?hl=es&q=busqueda+google&btnG=B%C3%BAsqueda+en+Google&meta=", "C:\codigo.txt"
End Sub

En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #8 en: 14 Septiembre 2006, 01:29 am »

a eso mismo me referia....

Zankiu Robokop!! ;D ;D

En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: Problema para bajar código de fuente (especialmente para WarGhost)
« Respuesta #9 en: 14 Septiembre 2006, 01:42 am »

si pero creo que el lo que quiere es que valla cojiedo los resultado y luego los liste no?

por ejemplo:

buscas www.elhacker.net

y que salga:
www.elhacker.net
www.elhacker.net/gmailbug/
foro.elhacker.net/
...

asi no??¿?¿?
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Extrayendo código fuente de una web (Problema con código generado por JS)
PHP
Littl3 4 8,481 Último mensaje 3 Marzo 2011, 04:13 am
por Nakp
Problema para breakpoint en Winproc
Ingeniería Inversa
x64core 2 2,488 Último mensaje 6 Noviembre 2012, 17:23 pm
por apuromafo CLS
Llega Photoshop Touch especialmente diseñado para móviles
Noticias
wolfbcn 0 1,394 Último mensaje 27 Febrero 2013, 22:06 pm
por wolfbcn
Código de fuente, modificar para ver respuestas
Dudas Generales
5ant1ag094 1 9,549 Último mensaje 8 Marzo 2013, 23:22 pm
por ‭lipman
Diseñan una fuente de texto especialmente pensada para programar
Noticias
wolfbcn 0 1,016 Último mensaje 10 Febrero 2016, 14:13 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines