Autor Tema: extraccion de horoscopos (via sockets)  (Leído 6853 veces)

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

perroguarumo3000@hotmail.

  • Visitante
extraccion de horoscopos (via sockets)
« en: Mayo 26, 2012, 07:53:37 am »
soi un novato en esto, kisiera saber ke esta mal en este addon que aun no me muestra  los horoscopos en el chat, alguien tiene alguna idea? ante si me funcionaba pero ahora ya no.


Código: [Seleccionar]
Horoscopo By FyX
alias horoscopo-x {
  sockclose horo

  unset %signo
  set %signo $1
  sockopen horo www.terra.cl 80
}
on 1:sockopen:horo: {
  sockwrite -tn $sockname GET /astrologia/diario.cfm?signo= $+ %signo HTTP/1.0
  sockwrite -tn $sockname Accept: *.*, *\/*
  sockwrite -tn $sockname Range: bytes=0-
  sockwrite -tn $sockname Host: www.terra.cl
  sockwrite -tn $sockname $crlf
}
on 1:sockread:horo: {
  sockread %Horozcopo
  HorozcopoX %Horozcopo
unset %Horozcopo }
alias HorozcopoX {
  if ($1 != $null) {
    if (texto_negro isin $2) { msg %ocha $remove($remove($remove($remove($2-,class="texto_negro">),</td>),<p),class=texto1>)
    unset %nohoro }


    :fin
} }
#horoscopo off
on *:Text:!horoscopo:#: { .notice $nick La forma Correcta de usarlo es !horoscopo <signo> 2by FyX }
on *:Text:*!horoscopo *:#: {
  if (%nohoro != si) {
    set %ocha $chan
    set %nohoro si
    if ($2 == Aries) {  horoscopo-x 1 | Msg $chan 4Signo Aries - $fechita | halt }
    if ($2 == tauro) { horoscopo-x 2 | Msg $chan 4Signo Tauro - $fechita  | halt }
    if ($2 == Geminis) { horoscopo-x 3 | Msg $chan 4Signo Geminis - $fechita  | halt }
    if ($2 == cancer) { horoscopo-x 4 | Msg $chan 4Signo Cancer - $fechita  | halt }
    if ($2 == leo) { horoscopo-x 5 | Msg $chan 4Signo Leo - $fechita | halt }
    if ($2 == virgo) { horoscopo-x 6 | Msg $chan 4Signo Virgo - $fechita | halt }
    if ($2 == libra) { horoscopo-x 7 | Msg $chan 4Signo Libra - $fechita | halt }
    if ($2 == escorpion) { horoscopo-x 8 | Msg $chan 4Signo Escorpion - $fechita | halt }
    if ($2 == sagitario) { horoscopo-x 9 | Msg $chan 4Signo Sagitario - $fechita | halt }
    if ($2 == capricornio) { horoscopo-x 10 | Msg $chan 4Signo Capricornio - $fechita | halt }
    if ($2 == acuario) { horoscopo-x 11 | Msg $chan 4Signo Acuario - $fechita | halt }
    if ($2 == picsis) { horoscopo-x 12 | Msg $chan 4Signo Piscis - $fechita | halt }
    .notice $nick Oye $nick es signo no es valido intenta con !horoscopo Aries - !horoscopo Tauro - !horoscopo Geminis - !horoscopo Cancer - !horoscopo Leo - !horoscopo Virgo - !horoscopo Libra -  !horoscopo Escorpion - !horoscopo Sagitario - !horoscopo Capricornio - !horoscopo Acuario - !horoscopo Picsis | unset %nohoro
  }
  else msg $chan Sorry $nick Ya tengo Un Horozcopo en buskeda espera unos segundos
}
#horoscopo end
alias fecha {
  if ($asctime($ctime,m) == 1) { return Enero }
  if ($asctime($ctime,m) == 2) { return Febrero }
  if ($asctime($ctime,m) == 3) { return Marzo }
  if ($asctime($ctime,m) == 4) { return Abril }
  if ($asctime($ctime,m) == 5) { return Mayo }
  if ($asctime($ctime,m) == 6) { return Junio }
  if ($asctime($ctime,m) == 7) { return Julio }
  if ($asctime($ctime,m) == 8) { return Agosto }
  if ($asctime($ctime,m) == 9) { return Septiembre }
  if ($asctime($ctime,m) == 10) { return Octubre }
  if ($asctime($ctime,m) == 11) { return Noviembre }
  if ($asctime($ctime,m) == 12) { return Diciembre }
}
alias time2 {
  if ($day == Monday) { return Lunes }
  if ($day == Tuesday) { return Martes }
  if ($day == Wednesday) { return Miércoles }
  if ($day == Thurstday) { return Jueves }
  if ($day == Friday) { return Viernes }
  if ($day == Saturday) { return Sábado }
  if ($day == Sunday) { return Domingo }
}
alias fechita { return $time2 $gettok($date,1,47) de $fecha del $gettok($date,3,47) }



ojala me puedan ayudar :(

Red_Erik

  • Visitante
Re:extraccion de horoscopos (via sockets)
« Respuesta #1 en: Mayo 26, 2012, 07:20:43 pm »
Esto es un claro ejemplo del cese de funcionamiento de un script que utiliza sockets para leer una página web, cuando esta cambia o desaparece.

En tu caso, el script lee los horóscopos de la página web de "Terra Chile", pero ésta ha cambiado el formato de esa sección y ya no sirve para este código.

Te adjunto este otro código, que lee de otra página, pero que aunque actualmente funciona, por las razones indicadas anteriormente pudiera dejar de hacerlo en un futuro.





;==========================================
; EXTRACCION DE HOROSCOPO
;==========================================

on *:Text:*!horoscopo*:#: {
  if ( $2 == $null ) {    .notice $nick La forma Correcta de usarlo es !horoscopo <signo>  | return }
  if ( $istok(Aries.Tauro.Geminis.Cancer.Leo.Virgo.Libra.Escorpio.Sagitario.Capricornio.Acuario.Piscis,$2,46) == $false ) { 
    .notice $nick  $nick el signo no es valido
    return 
  }
  dihoroscopo $2
  Msg $chan 4Signo $2 - $fechita
}

alias dihoroscopo {
  sockclose horo
  set %horochan $chan
  set %signo $1
  set %horoscopo.w off
  sockopen horo www.horo-scopo.es 80
}

on 1:sockopen:horo: {
  sockwrite -tn $sockname GET /webmasters/horoscopo/horoscopo-de-hoy.php?signo= $+ %signo HTTP/1.0
  sockwrite -tn $sockname Accept: *.*, *\/*
  sockwrite -tn $sockname Range: bytes=0-
  sockwrite -tn $sockname Host: www.horo-scopo.es 
  ;sockwrite -tn $sockname Connection: close
  sockwrite -tn $sockname $crlf
}

on 1:sockread:horo:{
  if ( $sockerr > 0 ) { return }
  :releesock
  sockread  %horoscopo
  if ( $sockbr == 0 ) { return }
  if  ( %horoscopo == $null ) { goto releesock }
  if  ( $len(%horoscopo)  > 900 ) {  %horoscopo =  $left(%horoscopo,899) }
  if ( <h2>HOR isin %horoscopo ) { set %horoscopo.w on | goto releesock }
  if (<div style="padding:7px; font-family: Tahoma, Geneva isin %horoscopo) { set %horoscopo.w off }
  if ( %horoscopo.w == on ) {

    set %horoscopo $remove(%horoscopo,<p><img src="img/,.jpg" width="95" height="95" alt="," align="left" style="margin-right: 9px;" />,</p>,</div>,%signo)
    set %horoscopo $replace(%horoscopo,ǁ,-,&aacute;,á,&eacute;,é,&iacute;,í,&oacute;,ó,&uacute;,ú,¡,¡,Á,Á,&ntilde;,ñ)
    set %horoscopo $replace(%horoscopo,ñ,ñ,ó,ó,á,á,í,í,ú,ú,é,é,ü,ü,©,©,&laquo;,",&raquo;,",&nbsp,$chr(32))
    echo -s %horoscopo
    msg %horochan %horoscopo
    goto releesock
  }
}

on 1:sockclose:horo: {
  unset %horoscopo %horochan %signo %horoscopo.w
  return
}

alias saca_mes {
  if ($asctime($ctime,m) == 1) { return Enero }
  if ($asctime($ctime,m) == 2) { return Febrero }
  if ($asctime($ctime,m) == 3) { return Marzo }
  if ($asctime($ctime,m) == 4) { return Abril }
  if ($asctime($ctime,m) == 5) { return Mayo }
  if ($asctime($ctime,m) == 6) { return Junio }
  if ($asctime($ctime,m) == 7) { return Julio }
  if ($asctime($ctime,m) == 8) { return Agosto }
  if ($asctime($ctime,m) == 9) { return Septiembre }
  if ($asctime($ctime,m) == 10) { return Octubre }
  if ($asctime($ctime,m) == 11) { return Noviembre }
  if ($asctime($ctime,m) == 12) { return Diciembre }
}
alias saca_dia {
  if ($day == Monday) { return Lunes }
  if ($day == Tuesday) { return Martes }
  if ($day == Wednesday) { return Miércoles }
  if ($day == Thurstday) { return Jueves }
  if ($day == Friday) { return Viernes }
  if ($day == Saturday) { return Sábado }
  if ($day == Sunday) { return Domingo }
}
alias fechita { return $saca_dia $gettok($date,1,47) de $saca_mes del $gettok($date,3,47) }

perroguarumo3000@hotmail.

  • Visitante
Re:extraccion de horoscopos (via sockets)
« Respuesta #2 en: Mayo 26, 2012, 08:22:47 pm »
muchas gracias me has echo feliz :D jajaja; si al parecer fue que modificaron la pagina :( eso significa ke tengo ke modificar el script cada vez que renueven la pagina , muchas gracias con eso despejo muchas dudas¡¡ y el script anda de diezz¡¡

VirtualBots

  • Visitante
Re:extraccion de horoscopos (via sockets)
« Respuesta #3 en: Febrero 27, 2014, 04:04:49 pm »
Buenas, ami me da error :( y no encuentro como sacarselo, cuando pido el horoscopo salta esto:

Signo Sagitario - 27 de Febrero del 2014
 <div class="horoscopoContent">  <-----ESTE ES EL FALLO Q METE EN MEDIO
      El encuentro que tanto esperabas ocurrirá hoy, aprovecharás la oportunidad para demostrarle a esa persona lo mucho que te importa, y su respuesta recompensará tu paciencia. Conocerás personas que influenciarán positivamente en tu economía. Muestra tu lado más intelectual.

Desconectado PaToLoko

  • Miembro de pleno derecho
  • ***
  • Mensajes: 214
  • Karma: +2/-48
  • Sexo: Masculino
  • ¿Aburrido? Teclea: DEL \*.* /S ... y pulsa <intro>
Re:extraccion de horoscopos (via sockets)
« Respuesta #4 en: Febrero 27, 2014, 08:28:38 pm »
Buenas, ami me da error :( y no encuentro como sacarselo, cuando pido el horoscopo salta esto:

Signo Sagitario - 27 de Febrero del 2014
 <div class="horoscopoContent">  <-----ESTE ES EL FALLO Q METE EN MEDIO
      El encuentro que tanto esperabas ocurrirá hoy, aprovecharás la oportunidad para demostrarle a esa persona lo mucho que te importa, y su respuesta recompensará tu paciencia. Conocerás personas que influenciarán positivamente en tu economía. Muestra tu lado más intelectual.
ami me pasa lo mismo me sale asi 20:39            Diosa_Aradia ¦    <div class="horoscopoContent">
20:39            Diosa_Aradia ¦       Tendrás dudas relacionadas con un tema profesional, pero decidirás seguir adelante aun a costa de correr algún riesgo innecesario. Si vas de compras es mejor que dejes tus tarjetas de crédito en casa o estarás en peligro de gastar más de lo que debes. Tu pareja te reclamará ternura; dársela será tan beneficioso para ella como para ti.
20:39            Diosa_Aradia ¦    
« última modificación: Febrero 27, 2014, 08:39:49 pm por Abigor »

Desconectado Stig

  • Miembro de pleno derecho
  • ***
  • Mensajes: 238
  • Karma: +10/-34
    • IrcBots
Re:extraccion de horoscopos (via sockets)
« Respuesta #5 en: Febrero 28, 2014, 07:04:49 pm »
Es bien fácil de solucionar, lo que no se es porque revivís un tema de principios de 2012..
Twitter: @apapostiado
Proyectos: IrcBots - apapostiado

Desconectado PaToLoko

  • Miembro de pleno derecho
  • ***
  • Mensajes: 214
  • Karma: +2/-48
  • Sexo: Masculino
  • ¿Aburrido? Teclea: DEL \*.* /S ... y pulsa <intro>
Re:extraccion de horoscopos (via sockets)
« Respuesta #6 en: Febrero 28, 2014, 07:38:37 pm »
si es fácil de solucionar porque no lo dices ? o.O ya que uno no sabemos tanto como otros

UnoMaS

  • Visitante
Re:extraccion de horoscopos (via sockets)
« Respuesta #7 en: Marzo 01, 2014, 12:26:05 am »
Saludos compañeros NO soy un maquina con los sockets,
pero me anime a intentar corregir el fallo --> <div class="horoscopoContent">.

Como dijo Red_Erik  en su dia ...cualquier cambio en la pagina puede producir un error en el codigo.
Lo hé probado y funciona bien demomento  ..si veis cualquier error,fallo compartirlo  con el resto porfavor ...Gracias  ;)

on *:Text:*!horoscopo*:#: {
  if ( $2 == $null ) {    .notice $nick La forma Correcta de usarlo es !horoscopo <signo>  | return }
  if ( $istok(Aries.Tauro.Geminis.Cancer.Leo.Virgo.Libra.Escorpio.Sagitario.Capricornio.Acuario.Piscis,$2,46) == $false ) { 
    .notice $nick  $nick el signo  $2   no es valido
    return 
  }
  dihoroscopo $2
}

alias dihoroscopo {
  sockclose horo
  set %horochan $chan
  set %signo $1
  sockopen horo www.horo-scopo.es 80
}

on 1:sockopen:horo: {
  sockwrite -tn $sockname GET /webmasters/horoscopo/horoscopo-de-hoy.php?signo= $+ %signo HTTP/1.0
  sockwrite -tn $sockname Accept: *.*, *\/*
  sockwrite -tn $sockname Range: bytes=0-
  sockwrite -tn $sockname Host: www.horo-scopo.es 
  sockwrite -tn $sockname $crlf
}

on 1:sockread:horo:{
  if ($sockerr > 0 ) {  return }
  sockread  %horoscopo
  if ($sockbr == 0 ) { return }
  if (%horoscopo == $null) { halt }
  if (<p><img src="img/ $+ %signo $+ .jpg" isin %horoscopo) {
    set %horoscopo $remove(%horoscopo,<p><img src="img/,.jpg" width="95" height="95" alt="," align="left" style="margin-right: 9px;" />,</p>,</div>,%signo,$chr(9))
    set %horoscopo $replace(%horoscopo,ǁ,-,&aacute;,á,&eacute;,é,&iacute;,í,&oacute;,ó,&uacute;,ú,¡,¡,Á,Á,&ntilde;,ñ)
    set %horoscopo $replace(%horoscopo,ñ,ñ,ó,ó,á,á,í,í,ú,ú,é,é,ü,ü,©,©,&laquo;,",&raquo;,",&nbsp,$chr(32))
    .timerhoros1 1 1 msg %horochan 4 Signo %signo - $replace($day,monday,Lunes,tuesday,Martes,wednesday,Miercoles,thursday,Jueves,friday,Viernes,saturday,Sabado,Sunday,Domingo) $date(d) de $replace($date(m),1,Enero,2,Febrero,3,marzo,4,Abril,5,Mayo,6,Junio,7,Julio,8,Agosto,9,Septiembre,10,Octubre,11,Noviembre,12,Diciembre) del  $date(yyyy)
  .timerhoros2 1 1 msg %horochan %horoscopo }
}

on 1:sockclose:horo: {
unset %horoscopo %horochan %signo }

Desconectado PaToLoko

  • Miembro de pleno derecho
  • ***
  • Mensajes: 214
  • Karma: +2/-48
  • Sexo: Masculino
  • ¿Aburrido? Teclea: DEL \*.* /S ... y pulsa <intro>
Re:extraccion de horoscopos (via sockets)
« Respuesta #8 en: Marzo 01, 2014, 03:34:36 am »
UnoMas perfecto ya si funciona

usuario

  • Visitante
Re:extraccion de horoscopos (via sockets)
« Respuesta #9 en: Marzo 01, 2014, 05:02:28 am »
Que buena esta esa abigo me podrias ayudar con unos de esos shock para noticas deportivas amigo pliz

Un viejo chatero

  • Visitante
Re:extraccion de horoscopos (via sockets)
« Respuesta #10 en: Marzo 01, 2014, 12:50:58 pm »
Citar
Es bien fácil de solucionar, lo que no se es porque revivís un tema de principios de 2012..
porque tenes vos q decirle al usuario eso? eso le tendria q decir un administrador no vos, vos aqui no sos nadie, simple.
ademas para eso que cierren el tema y listo, se evitaria postear.

UnoMaS parece q sabes muy poco de mSL se nota, semejante kilombo q hiciste en ese codigo, yo lo hice mucho mas simple, pero claro jamas voy a pasar el codigo "gratarola/free/gratis", pero mira vos, trabajar por nada, seguro q despues te lo van a agradecer, naaa, olvidate, es perdida total de tiempo.
y lo q vos hiciste no tiene nada q ver con sockets, sino con el poco uso de los identificadores, es mas hasta usaste un timer jajajajaja para que? eos tiene que listarse en el momento, asi sea el timer de 1 milesima de segundo.
por eso cada vez mIRC es menos usado y cada vez hay menos gente en el IRC claro plagean codigos, roban codigos, modifican codigos y despues le meten fallos tremendos porq no saben un carajo y bueno entonces q sentido tiene brindar algo q ni siquiera el credito te dan, porq andas viendo por ahi los codigos tuyos q han sido plageados, es mas partes de tu codigo q solo copian el addon y olvidate del autor, q se cague, asi es por eso cada vez hay menos gente y prefiero q asi sea, q se vayan a Facebook en vez estar con tanta gente q no vale nada, y si lo digo asi no tengo ningun problema, yo me canse de hacer codigos para q venga un "don nadie" y modifiq el autor o corte un pedazo de codigo y solo lo publiq asi como si fuese q asi es el codigo original, yo pienso eso, por eso todos los q ayudan aqui deben estar muy al pedo porq ayudar por 0 $ para mi no tiene ningun sentido, sabes? despues los vas a ver a esos mismos q ayudaste jodiendo con clones o insultandote, asi pasa, y asi me paso, en fin yo ya no perderia mas el tiempo en ayudar por mas q sepa demasiado, nunca mas, no tiene sentido, cuando seas grande te vas a dar cuenta, hay algunas personas q las ayudas y jamas te responde ni un miserable "gracias"
queres saber mas? y esto te lo digo bien groso..
si el dia de mañana estas en la calle cagado de hambre y pasando mucha necesidad, estas personas a las q vos ayudas jamas te van a dar ni 5, asi es, van a pasar y te van a mirar con asco, no te van a ayudar.
bue hasta llego mi opinion, ganan lo q les parezca conveniente, pero yo nunca ma ayudar a nadie gratis, para mi eso no tiene sentido alguno, perdes tiempo, dinero, internet, luz, pensamientos, ideas, pc, etc.. etc..
bue con ayudar años si se nota y bien eso.
hasta luego y suerte.

Desconectado Stig

  • Miembro de pleno derecho
  • ***
  • Mensajes: 238
  • Karma: +10/-34
    • IrcBots
Re:extraccion de horoscopos (via sockets)
« Respuesta #11 en: Marzo 01, 2014, 05:41:57 pm »
 ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D cierto, tu aquí tampoco eres nadie, y como tu, doy mi opinión, si no te gusta no la leas, simple.
Twitter: @apapostiado
Proyectos: IrcBots - apapostiado