eMule+portuguese

Seu Forum de ajuda com eMulePlus
 
InícioPortalRegistrar-seConectar-se

Compartilhe | 
 

 Receba noticias sobre informatica em seu canal.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
sekai

avatar

Masculino Número de Mensagens : 34
Localização : Meyers Fild né ?
Data de inscrição : 30/07/2008

MensagemAssunto: Receba noticias sobre informatica em seu canal.   Sex 6 Mar 2009 - 10:33

Para colocar o comando basta fazer "ALT+R", criar um novo arquivo e colar o comando:

alias lsin { return [ChanTools]: }

on 5:text:!noticias*:#SEUCANAL:{
if (!$2) { .notice $nick Sintaxe: !noticias {ON|OFF|SET} }
else {
if ($2 == on) {
if (!%sockwintechtime) || (!%wintechcanal) { .notice $nick $lsin Configure primeiro as definições e tente novamente. }
elseif (%noticias == on) { .notice $nick $lsin Opção Notícias WinTech já se encontra activa. }
else {
set %wtech.noticias on
set %contador.noticia 0
set %wintechcanal $chan
.timer 1 10 sockwintech
.timersockwintech 0 $calc(%sockwintechtime * 60) /sockwintech
.notice $nick $lsin Opção Notícias WinTech activa: (ON)
}
}
elseif ($2 == off) {
if (%noticias == off) { .notice $nick $lsin Opção Notícias WinTech já se encontra inactiva. }
else {
set %wtech.noticias off
unset %contador.noticia %pnum %wintechcanal
.write -c wintech.txt
.timersockwintech off | sockclose wintech
.notice $nick $lsin Opção Notícias WinTech inactiva: (OFF)
}
}
elseif ($2 == set) {
if (!$3) { .notice $nick Sintaxe: !noticias set {TEMPO|CANAL} }
else {
if ($3 == tempo) {
if (!$4) || ($4 !isnum) { .notice $nick Sintaxe: !noticias set tempo {MINUTOS} }
else {
set %sockwintechtime $4
.notice $nick $lsin O intervalo de tempo para cada notícia foi definido para: $+(,$4,) minuto(s).
if (%wtech.noticias == on) {
.timersockwintech off | sockclose wintech
.timer 1 10 sockwintech
.timersockwintech 0 $calc(%sockwintechtime * 60) /sockwintech
}
}
}
if ($3 == canal) {
if (!$4) { .notice $nick Sintaxe: !noticias set canal {#canal} }
else {
set %wintechcanal $4
.notice $nick $lsin As notícias WinTech passsaram a ser mostradas no canal: $+(,$4,.)
}
}
}
}
}
}

on *:text:!wintech*:#:{
if (!%wintechpause. [ $+ [ $nick ] ]) {
set -u20 %wintechpause. [ $+ [ $nick ] ] pause
if (%wtech.noticias == off) { msg $chan Notícias do site WinTech não se encontra activo. }
elseif (!$lines(wintech.txt)) { msg $chan Não existe registo de notícias do site WinTech de momento. }
else {
if ($2 isnum) { if ($read(wintech.txt,$2) != $null) {
msg $chan $gettok($ifmatch,1,32) [ $+ $chr(35) $+ $+(,$2,,],) $gettok($ifmatch,2-,32)
}
else { msg $chan Notícia/WinTech [ $+ $chr(35) $+ $+(,$2,,],) não consta na minha base de dados. ( $+ $chr(35) $+ $lines(wintech.txt) $+ ) }
}
else { .notice $nick Sintaxe: !wintech {NÚMERO} }
}
}
else { .notice $nick $lsin Esse comando foi bloqueado para evitar flood. Tente daqui a 20 segundos. }
}

on *:join:#:{
if ($nick == $me) && (%wtech.noticias == on) {
unset %pnum %contador.noticia
.timer 1 10 sockwintech
.timersockwintech 0 $calc(%sockwintechtime * 60) /sockwintech
.write -c wintech.txt
}
}

on *:part:#:{ .timersockwintech off | sockclose wintech }
on *:disconnect:{ .timersockwintech off | sockclose wintech }

alias sockwintech { sockclose wintech | if ($me ison %wintechcanal) { sockopen wintech www.wintech.com.pt 80 } }

on *:sockopen:wintech:{
if ($sockerr > 0) { return }
sockwrite -n $sockname GET /component/option,com_rss/feed,RSS1.0/no_html,1/ HTTP/1.1
sockwrite -n $sockname Host: www.wintech.com.pt
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}

on *:sockread:wintech:{
if ($sockerr > 0) { return }
var %sockwintech
sockread %sockwintech
if (*<link>* iswm %sockwintech) && (http://www.wintech.com.pt</link> !isin %sockwintech) {
if (The page cannot be displayed !isin %sockwintech) {
var %sockread = $remove(%sockwintech,<link>,</link>,$chr(9))
if (!$read(wintech.txt, w, * $+ %sockread $+ *)) {
inc %contador.noticia
set %pnum $calc($lines(wintech.txt) + 1)
msg %wintechcanal Notícias/WinTech [ $+ $chr(35) $+ $+(,%pnum,,],) %titulo [ $+(,%sockread,) ]
if (%contador.noticia == 3) {
msg %wintechcanal Dica: Para consultar outras notícias faça: !wintech [número] | set %contador.noticia 0
}
write wintech.txt Notícias/WinTech %titulo [ $+(,%sockread,) ]
sockclose wintech
}
}
}
if (*<title>* iswm %sockwintech) {
if (WinTech - Noticias Windows e Tecnologia !isin %sockwintech) {
if (The page cannot be displayed !isin %sockwintech) {
var %sockread = $replace($remove(%sockwintech,<title>,</title>,$chr(9),h3&gt;),$chr(147),$chr(34),$chr(148),$chr(34), &amp;, &, &lt;, <)
set -u5 %titulo %sockread
if (!%titulo) { sockclose wintech }
}
}
}
}

menu menubar,channel,status {
Notícias WinTech
.$iif((%wtech.noticias == on),$style(1)) Ligado:{
if (!%sockwintechtime) || (!%wintechcanal) { var %aviso = $input(Configure primeiro as definições e tente novamente.,oi,WinTech) }
else {
set %wtech.noticias on
set %contador.noticia 0
.timer 1 10 sockwintech
.timersockwintech 0 $calc(%sockwintechtime * 60) /sockwintech
.write -c wintech.txt
}
}
.$iif((%wtech.noticias == off),$style(1)) Desligado:{
set %wtech.noticias off
unset %contador.noticia %pnum
.timersockwintech off | sockclose wintech
}
.-
.$iif((%wtech.noticias == on),A cada ( $+ %sockwintechtime $+ ) minuto(s)):{
var %aviso = $input(O intervalo de tempo para cada notícia é de %sockwintechtime minuto(s).,oi,WinTech)
}
.-
.Definir
..Canal:{
var %com = $input(Digite o canal onde mostrar as notícias:,ei,WinTech,%wintechcanal)
if (%com) {
set %wintechcanal %com
var %aviso = $Input(As notícias WinTech passaram a ser mostradas no canal %com $+ .,oi,WinTech)
}
}
..-
..Intervalo:{
var %com = $input(Digite o intervalo de tempo em minutos:,ei,WinTech,$calc(%sockwintechtime))
if (%com) {
set %sockwintechtime $round($calc($replace(%com,$chr(44),$chr(46))),0)
var %aviso = $Input(O intervalo de tempo foi definido para %com minutos.,oi,WinTech)
if (%wtech.noticias == on) {
.timersockwintech off | sockclose wintech
.timer 1 10 sockwintech
.timersockwintech 0 $calc(%sockwintechtime * 60) /sockwintech
}
}
}
}


Só precisa alterar o canal na 2º linha, coloque seu canal la e salve o comando.

Para configurar ele basta clicar com o direito no seu canal e la em baixo vai aparecer a opção "Notícias WinTech", passe o mouse sobre ele e vai até a opção "Definir / canal", coloque seu canal la (exemplo, #sekai), depois defina o tempo em "Definir / intervalo", o tempo a ser mostrado no canal é por minutos (exemplo, se vc colocar 1, as noticias serão mostradas a cada 1 minuto) e por ultimo é só "Ligar" o comando, clica com o direito na tela "Noticias WinTech / Ligado" e pronto, só esperar que as noticias irão aparecer no seu canal de acordo com o tempo definido por você .
Entrando nos links que aparecem no seu canal vc podera ver a noticia por completa e aproveita que esta no site e da uma olhada nos outros links, tem muita coisa interessante nesse site .

Aviso: Não é toda hora que o site tem noticias novas, ou seja, as vezes repete a mesma noticia durante 2 ou 3 dias, mas sempre que tem algo novo eles colocam no site e aparece no nosso canal hihihihi.

Duvidas pode postar aqui Smile .

Até +

feliz danca
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jhonnatta
Moderador
avatar

Masculino Número de Mensagens : 64
Idade : 30
Localização : Caruaru/PE
Data de inscrição : 29/09/2008

MensagemAssunto: Re: Receba noticias sobre informatica em seu canal.   Sex 13 Mar 2009 - 15:48

Vlw mano legal.

_________________
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Duende

avatar

Masculino Número de Mensagens : 28
Data de inscrição : 14/06/2008

MensagemAssunto: Re: Receba noticias sobre informatica em seu canal.   Qui 15 Abr 2010 - 16:31

sekai nao teria um desses que podessem ser do site de noticias do G1 da globo???????????



falow forte abraço Smile

_________________
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Receba noticias sobre informatica em seu canal.   

Voltar ao Topo Ir em baixo
 
Receba noticias sobre informatica em seu canal.
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Noticias sobre o Game Maker
» RECEPTORES PIRATAS APREENDIDOS NA FRONTEIRA SERÃO DESMONTADOS PELA ABTA PARA REAPROVEITAR PEÇAS -
» NOVAS NOTICIAS SOBRE AS KEYS DO AMAZONAS 61W -
» Frases sobre Chuck Norris
» Como colocar "noticias importantes"

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
eMule+portuguese :: Dicas em Geral :: Scripts :: Tutorial-
Ir para: