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

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  auto it scrapper
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: auto it scrapper  (Leído 1,824 veces)
asdexiva

Desconectado Desconectado

Mensajes: 217



Ver Perfil
auto it scrapper
« en: 13 Junio 2015, 19:55 pm »

Código:
#include <Inet.au3>          ; Liberia para obtener archivos de internet, en este caso el codigo fuente de la url
#include <Array.au3>         ; Array para almacenar nuestros datos, cada dato incluira una posicion
#include <String.au3>        ; Funciones para el manejo de Strings
#include <File.au3>          ; Guardar y Escribir archivos.

$contador = 0               

while $contador < 14         

if $contador = 0 Then   

local $url = _InetGetSource('http://xd.com')  ; Url de la portada

Else
local $url = _InetGetSource('xd.com' & '/page/' & $contador & '/')
EndIf

local $aArray1    ; Declaramos el Array dodne vamos a guardar los datos

$aArray1 = _StringBetween ($url, '<h2>', '</h2>') ; Con esta funcion tomaremos los datos que esten entre '<h2>', '</h2>' .Ver Img2


$contador2 = 0  ;   Contador para los articulos

While $contador2 < 7  ; Este contador limita a 7, que son los articulos que se muestran por pagina


    $buffer = $aArray1 [$contador2] ; Añadimos el valor de la posicion $contador en el Array1 a $buffer

    $buffer = BinaryToString($buffer, 4) ; Esto lo hacemos porque muchas paginas tienen formato  charset=utf-8 -

Local $file  = FileOpen ("Enlaces.txt",1) ; Abrimos el archivo donde guardaremos los enlaces

  if $file = -1 Then
MsgBox (0, "Error", "No se puede abrir")
Exit
EndIf


FileWriteLine($file, $buffer) ; Escribimos los enlaces en una linea del archivo

FileClose($file)

$contador2 = $contador2 + 1 ; Aumentamos el contador para seguir recorriendo el Array que contiene los enlaces

WEnd

$buffer = $aArray1 &[$contador2]
$buffer = $aArray1 &^ ERROR
>Exit code: 1
$contador +=  1 ; Aumentamos el contador para visitar
WEnd


por que me marca un error en esta parte me tiene loco ;S

Código:
 $buffer = $aArray1 [$contador2] ; Añadimos el valor de la posicion $contador en el Array1 a $buffer

    $buffer = BinaryToString($buffer, 4)


(28) : ==> Subscript used on non-accessible variable.:


si me pueden ayudar gracias


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Auto ejecutador
Programación Visual Basic
_Marianella_ 3 1,965 Último mensaje 19 Junio 2006, 22:45 pm
por _Marianella_
Auto copia
Programación Visual Basic
bautistasbr 5 2,226 Último mensaje 24 Junio 2006, 19:39 pm
por bautistasbr
[SOURCE] HideMyAss Proxy Scrapper
PHP
xiruko 3 2,846 Último mensaje 7 Febrero 2013, 14:50 pm
por xiruko
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines