bugün Türkçe mIRC indir - Resmi mIRC indirme Sitesi

Tarihte Bugün Addon

12 Mart 2014 • 14:45 OxiGeN Addonlar

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) }
alias tbugun { dialog -m tarih tarih  }
on *:SockOpen:tarih*:{
  sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0
  sockwrite -n $sockname host: www.bianet.org $+ $crlf $+ $crlf
}
on *:SockRead:tarih*:{ 
  var %a
  sockread %a
  if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return }
  if (%sjn == Ok!) &amp;&amp; (sayfa başına !isin %a) &amp;&amp; (dön&lt;/FONT&gt; !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),&lt;BR&gt;,$crlf)) }
  if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf }
}
dialog tarih {
  title "Tarihte Bugün Gösterici"
  size -1 -1 133 169
  option dbu
  edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar
  button "Çıkış", 2, 47 151 37 12, ok
}
on *:dialog:tarih:init:*:{
  unset %sjn 
  sockclose tarih* 
  sockopen $+(tarih,$r(1,999)) www.bianet.org 80
}

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }

alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) }

alias tbugun { dialog -m tarih tarih }

on *:SockOpen:tarih*:{

sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0

sockwrite -n $sockname host: www.bianet.org $+ $crlf $+ $crlf

}

on *:SockRead:tarih*:{

var %a

sockread %a

if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return }

if (%sjn == Ok!) && (sayfa başına !isin %a) && (dön</FONT> !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),<BR>,$crlf)) }

if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf }

}

dialog tarih {

title "Tarihte Bugün Gösterici"

size -1 -1 133 169

option dbu

edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar

button "Çıkış", 2, 47 151 37 12, ok

}

on *:dialog:tarih:init:*:{

unset %sjn

sockclose tarih*

sockopen $+(tarih,$r(1,999)) www.bianet.org 80

}

Tags: addon, bugün, mirc, remote, tarihte

» Devamını Oku

Yorum yaz addon, bugün, mirc, remote, tarihte