Mensajes recientes

Páginas: 1 [2] 3 4 ... 10
11
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 18, 2018, 05:06:26 pm »
si,eso ya se como va,lo que pasa ke me repetia varias veces el spam seguido.pero ya esta solucionado.gracias por tu ayuda.cierro el tema.
12
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Cadaver en Diciembre 18, 2018, 05:04:26 pm »
 :)
13
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 18, 2018, 04:52:30 pm »
vale,amigo muchas gracias ,ya tengo la solucion.gracias de nuevo
14
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Cadaver en Diciembre 18, 2018, 04:38:16 pm »
hola de nuevo,hay un problema ahora,lo que pasa es que sale muy seguido el spam.podrias decirme como puedo acer para que salga cada 5 minutos?

El timer esta en el "on connect " el primer numeral después del timer es el numero de intervalos tienes "0" para infinito y el segundo numeral es para el intervalo en segundos de repetición para ponerlo cada "5" minutos pondremos "300".

Reemplaza:

Código: [Seleccionar]
On *:CONNECT:{
  joinall
  timernt 0 300 nt
}
15
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 18, 2018, 04:22:24 pm »
hola de nuevo,hay un problema ahora,lo que pasa es que sale muy seguido el spam.podrias decirme como puedo acer para que salga cada 5 minutos?
16
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 18, 2018, 04:14:50 pm »
gracias por tu ayuda cadaver.Lo  que me saca las noticias en el status no en el general.pero ahora si suelta.muchas gracias
17
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Cadaver en Diciembre 17, 2018, 07:38:27 pm »
Reemplaza echo -s por la accion que requieres ya sea amsg, ame, etc.

Código: [Seleccionar]
echo -s 2T1iempo   4[2R1tve4]  1 $utf8(%titulo)  $+ $utf8($iif(%description, |2 %description)) 
18
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Cadaver en Diciembre 17, 2018, 06:52:10 pm »
Reemplaza:

Código: [Seleccionar]
On *:CONNECT:{
  joinall
  timernt 0 05 nt
}
on *:sockopen:nt:{
  var %o sockwrite -tn $sockname
  %o GET /rss/temas_tiempo.xml HTTP/1.0
  %o Host: api2.rtve.es
  %o User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko)
  %o Connection: Keep-Alive
  %o $crlf
}
on *:sockread:nt:{
  sockread -f %nt
  if (<item> isin %nt) {
    set %item si
  }
  if (<title> isin %nt) && (%item == si) {
    set %titulo $xmltag(%nt,title)
    set %title si
    halt
  }

  if (<description> isin %nt) && (%title == si) {
    set %description $sinhtml($xmltag($remove($unicode($xmltag(%nt,description)),<em>,li)))
    if (%ult != %titulo) {   
      echo -s 2T1iempo   4[2R1tve4]  1 $utf8(%titulo)  $+ $utf8($iif(%description, |2 %description)) 
      set %ult %titulo
    }
    if (%ult == %titulo) {
      unset %item
      unset %title 
      unset %description
      unset %titulo
      unset %nt
      unset %ult
      sockclose $sockname
      halt
    }
    unset %item
    unset %title 
    unset %description
    unset %titulo
    unset %nt
    unset %ult
    sockclose $sockname
    halt
  }
}


on *:sockclose:nt:{
  unset %item %title %titulo %descripcion %titulo %nnt
  unset %nt
}
alias nospam {
  set -u0 %x $nospam2($1)
  return $remove(%x,http://,http,www.,.com,.org,.net,.es,.ve,&lt,&amp;,#309,:,;p,&gt,;;a,;p&gt;;a,width=130,&lt;/p&gt;&lt;br clear="all"/&gt;,item,title)
}
alias nospam2 {
  return $1
  var %a 1
  while %a <= $numtok($1,32) {
    set -u0 %o %o $gettok($1,%a,32)
    if href= !isin  $gettok($1,%a,32)  http://*.* !iswm $gettok($1,%a,32) && $count($gettok($1,%a,32),/) < 1 if &lt !isin %o && align= !isin %o && heigh !isin %o && border="0" !isin %o && width= !isin %o &&  :p& !isin %o { 
      set -u0 %ns %ns $gettok($1,%a,32)
    }
    inc %a
  }
  return %ns
}
alias xmltag { var %a = $pos($1,< $+ $2) , %b = $pos($1,</ $+ $2 $+ >) , %c = $pos($1,< $+ $2 $+ />) | if (%c) { return } | else { return $gettok($mid($1,%a,$calc(%b - %a)),2,62) } }
alias nt {
  if ($sock(nt)) { sockclose nt }
  sockopen nt api2.rtve.es 80
}
alias utf8 { return $replace($remove($1-,Â),á,á,ó,ó,ú,ú,í,í,é,é,ñ,ñ,Ó,Ó,ç,ç,Á,Á,ü,ü,Ú,Ú,&aacute;,á,&eacute;,é,&iacute;,í,&oacute;,ó,&uacute;,ú,&quot;,",&ntilde;,ñ,&ordf;,ª,&ccedil;,ç,&ldquo;,«,&rdquo;,»,&iexcl;,¡,ñ,ñ,&ordm;,º,&uuml;,ü,ú,ú,á,á) }
alias unicode { return $replace($1,&lt;,<,&gt;,>,&amp;,&,&quot;,",&aacute;,á,&agrave;,à,&eacute;,é,&egrave;,è,&iacute;,í,&igrave;,ì,&oacute;,ó,&ograve;,ò,&uacute;,ú,&ugrave;,ù,&auml;,ä,&acirc;,â,&euml;,ë,&ecirc;,ê,&iuml;,ï,&icirc;,î,&ouml;,ö,&ocirc;,ô,&uuml;,ü,&ucirc;,û,&aring;,å,&atilde;,ã,&ccedil;,ç,&ntilde;,ñ,&Yacute;,Ý,&otilde;,õ,&yacute;,ý,&Oslash;,Ø,&yuml;,ÿ,&oslash;,ø,&THORN;,Þ,&ETH;,Ð,&thorn;,þ,&eth;,ð,&AElig;,Æ,&szlig;,ß,&aelig;,æ,&frac14;,¼,&nbsp;,$chr(32),&frac12;,½,&iexcl;,¡,&frac34;,¾,&pound;,£,&copy;,©,&yen;,¥,&reg;,®,&sect;,§,&ordf;,ª,&curren;,¤,&sup2;,²,&brvbar;,¦,&macr;,¯,&not;,¬,&laquo;,«,&acute;,´,&uml;,¨,&raquo;,»,&cedil;,¸,&iquest;,¿) }
alias sinhtml {
  var %a =  $+ $1- $+ 
  if (< !isin $gettok(%a,1,62)) { if (> isin %a) %a =  $+ $gettok(%a,2-,62) }
  :L1 | if (*<*>* iswm %a) { %a = $gettok(%a,1,60) $+ $gettok(%a,2-,62) | goto L1 }
  return $replace($remove($gettok(%a,1,60),),&nbsp;,$chr(32))
}

Aquí te dejo una imagen del resultado:

19
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 17, 2018, 04:23:01 pm »
Hola,queria saber si me pueden ayudar con este codigo que no me suelta las noticias ,las noticias son sacadas de rtve.es On *:CONNECT:{
  joinall
  timernt 0 05 nt
}
on *:sockopen:nt:{
  var %o sockwrite -tn $sockname
  %o GET /rss/temas_tiempo.xml HTTP/1.0
  %o Host: www.rtve.es
  ;%o User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko)
  %o Connection: Keep-Alive
  %o $crlf
}
on *:sockread:nt:{
  sockread -f %nt
  if <item> isin %nt {

    set %item si
  }
  if <title> isin %nt && %item == si {
    set %titulo $xmltag(%nt,title)
    set %title si
    halt
  }

  if <description> isin %nt && %title == si {
    set %description  $sinhtml($xmltag($remove($unicode($xmltag(%nt,description)),<em>),li))
    if %ult != %titulo {   
      .amsg 2T1iempo   4[2R1tve4]  1 $utf8(%titulo)  $+ $utf8($iif(%description, |2 %description)) 
      set %ult %titulo
    }
    if %ult == %titulo {
      unset %item
      unset %title 
      unset %description
      unset %titulo
      unset %nnt
      sockclose $sockname
      halt
    }
    unset %item
    unset %title 
    unset %description
    unset %titulo
    unset %nnt
    sockclose $sockname
    halt
  }
}


on *:sockclose:nt:{
  unset %item %title %titulo %descripcion %titulo %nnt
  unset %nnt
}
alias nospam {
  set -u0 %x $nospam2($1)
  return $remove(%x,http://,http,www.,.com,.org,.net,.es,.ve,&lt,&amp;,#309,:,;p,&gt,;;a,;p&gt;;a,width=130,&lt;/p&gt;&lt;br clear="all"/&gt;,item,title)
}
alias nospam2 {
  return $1
  var %a 1
  while %a <= $numtok($1,32) {
    set -u0 %o %o $gettok($1,%a,32)
    if href= !isin  $gettok($1,%a,32)  http://*.* !iswm $gettok($1,%a,32) && $count($gettok($1,%a,32),/) < 1 if &lt !isin %o && align= !isin %o && heigh !isin %o && border="0" !isin %o && width= !isin %o &&  :p& !isin %o { 
      set -u0 %ns %ns $gettok($1,%a,32)
    }
    inc %a
  }
  return %ns
}
alias xmltag { var %a = $pos($1,< $+ $2) , %b = $pos($1,</ $+ $2 $+ >) , %c = $pos($1,< $+ $2 $+ />) | if (%c) { return } | else { return $gettok($mid($1,%a,$calc(%b - %a)),2,62) } }
alias nt {
  if $sock(nt) { sockclose nt }
  sockopen nt www.rtve.es 80
}
alias utf8 { return $replace($remove($1-,Â),á,á,ó,ó,ú,ú,í,í,é,é,ñ,ñ,Ó,Ó,ç,ç,Á,Á,ü,ü,Ú,Ú,&aacute;,á,&eacute;,é,&iacute;,í,&oacute;,ó,&uacute;,ú,&quot;,",&ntilde;,ñ,&ordf;,ª,&ccedil;,ç,&ldquo;,«,&rdquo;,»,&iexcl;,¡,ñ,ñ,&ordm;,º,&uuml;,ü,ú,ú,á,á) }
alias unicode { return $replace($1,&lt;,<,&gt;,>,&amp;,&,&quot;,",&aacute;,á,&agrave;,à,&eacute;,é,&egrave;,è,&iacute;,í,&igrave;,ì,&oacute;,ó,&ograve;,ò,&uacute;,ú,&ugrave;,ù,&auml;,ä,&acirc;,â,&euml;,ë,&ecirc;,ê,&iuml;,ï,&icirc;,î,&ouml;,ö,&ocirc;,ô,&uuml;,ü,&ucirc;,û,&aring;,å,&atilde;,ã,&ccedil;,ç,&ntilde;,ñ,&Yacute;,Ý,&otilde;,õ,&yacute;,ý,&Oslash;,Ø,&yuml;,ÿ,&oslash;,ø,&THORN;,Þ,&ETH;,Ð,&thorn;,þ,&eth;,ð,&AElig;,Æ,&szlig;,ß,&aelig;,æ,&frac14;,¼,&nbsp;,$chr(32),&frac12;,½,&iexcl;,¡,&frac34;,¾,&pound;,£,&copy;,©,&yen;,¥,&reg;,®,&sect;,§,&ordf;,ª,&curren;,¤,&sup2;,²,&brvbar;,¦,&macr;,¯,&not;,¬,&laquo;,«,&acute;,´,&uml;,¨,&raquo;,»,&cedil;,¸,&iquest;,¿) }
alias sinhtml {
  var %a =  $+ $1- $+ 
  if (< !isin $gettok(%a,1,62)) { if (> isin %a) %a =  $+ $gettok(%a,2-,62) }
  :L1 | if (*<*>* iswm %a) { %a = $gettok(%a,1,60) $+ $gettok(%a,2-,62) | goto L1 }
  return $replace($remove($gettok(%a,1,60),),&nbsp;,$chr(32))
}

20
Ayuda scripting IRcap / Re:ayuda codigo
« Último mensaje por Hercules en Diciembre 16, 2018, 11:08:39 pm »
 8)no hay nadie en este foro?
Páginas: 1 [2] 3 4 ... 10