Programa Mensajes Recientes de SMFSimple.com

Muchas gracias a:

Addon/Programa: Mensajes Recientes de SMFSimple.com.mrc

Hola amigos!!

Voy a dejar este aporte que es un addon para mIRC, el mismo sirve para mostrar los últimos mensajes recientes del Foro SMFSimple.com, que es un Foro que a nosotros nos ha ayudado, hace poco hemos formado parte de SMFSimple y además de recibirnos muy bien y darnos la bienvenida, también nos ayudaron con nuestros Foros, así que les dedico para ellos este addon, voy a dejar una captura del mismo y el comando para que muestre los mensajes recientes del Foro SMFSimple.

El comando es:

Code: [Select]

.ultmsjs
aquí dejo una captura del addon:




Código:

Code: [Select]

; #######################################################################
; Addon: Mensajes Recientes de SMFSimple.com
; Versión: 0.1
; Autor: Príncipe_Azul
; Dedicado a: SMFSimple.com
; Webs: [url=http://www.ArgentinaIRC.net]www.ArgentinaIRC.net[/url]  -  [url=http://www.ArgentinaIRC.org]www.ArgentinaIRC.org[/url]  -  [url=http://www.ArgentinaIRC.info]www.ArgentinaIRC.info[/url]
; Foro de Programación: [url=http://www.ArgentinaIRC.net/Foro]www.ArgentinaIRC.net/Foro[/url] - [url=http://www.ArgentinaIRC.org/Foro]www.ArgentinaIRC.org/Foro[/url] - [url=http://www.ArgentinaIRC.info/Foro]www.ArgentinaIRC.info/Foro[/url]
; Foro de Artesanías: [url=http://www.MisArtesanias.net]www.MisArtesanias.net[/url]
; #######################################################################


on 1:unload: {
  unset %CanalSMFSimple | unset %guardarFecha | unset %nombreForo | unset %asuntoMensaje | unset %autorMensaje
  echo -se 0,6 Addon desinstalado correctamente!! 
}

on 1:load: {
  echo -s 0,2 Este addon lo dedico al Foro SMFSimple.com :-)
  echo -se 0,12 Addon instalado correctamente!! 
}

on 1:input:#: {
  if ($1 == .ultmsjs) {
    set %CanalSMFSimple # | set %guardarFecha $false
    if ($sock(SMFSimple) != $null) { echo -a 2Socket anterior cerrado. Abriendo nueva conexión . . . | sockclose SMFSimple }
    sockopen SMFSimple smfsimple.com 80
  }
}

on 1:sockopen:SMFSimple: {
  if ($sockerr > 0) return
  sockwrite -nt $sockname GET /SSI.php?ssi_function=recentPosts HTTP/1.1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; WOW64; Trident/6.0)
  sockwrite -nt $sockname Host: [url=http://www.smfsimple.com]www.smfsimple.com[/url]
  sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname $crlf
}

on 1:sockread:SMFSimple: {
  sockread %LeeSMFSimple
  if ($sockbr == 0) return
  if (%LeeSMFSimple == $null) var %LeeSMFSimple = ----
  if ( [<a href= isin %LeeSMFSimple) {
    set %nombreForo $gettok($gettok(%LeeSMFSimple,2,62),1,60)
  }
  else if ( <a href=" isin %LeeSMFSimple) {
    set %asuntoMensaje $codificacion($gettok($gettok(%LeeSMFSimple,2,62),1,60))
  }
  else if ( por <a href= isin %LeeSMFSimple) {
    set %autorMensaje $gettok($gettok(%LeeSMFSimple,2,62),1,60)
  }
  else if (%guardarFecha == $true) {
    var %fechaMensaje = $remove(%LeeSMFSimple,<strong>,</strong>)
    set %guardarFecha $false
    msg %CanalSMFSimple 1Asunto:2 %asuntoMensaje 6| 1Posteado por:5 %autorMensaje 6| 1En el Foro:4 %nombreForo 6|12 %fechaMensaje
  }
  else if ( <td align="right" nowrap="nowrap"> isin %LeeSMFSimple) {
    set %guardarFecha $true
  }
  ;echo -ae %LeeSMFSimple
}

alias codificacion {
  return $replace($1-,é,é,ó,ó,&quot;,")
}

; Fin del código!
Atte: Príncipe_Azul & Merlina

Saludos!!!