[Paint]

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias haber {
  if !$1 {
    if $timer(haber) { echo -a Haber aktarımı zaten aktif. | halt }
    set %haberaktarı aktif
    barwrite Haber aktarımı başlatıldı.
    barwrite Son dakika haber sistemi by Paint
    $iif($isfile(haber.txt),.remove haber.txt)
  .timerhaber 0 6 .haberci }
  elseif $timer(haber) && $1 == kapat { sockclose haber | .timerhaber off | barhide | unset %haberaktarımı }
  elseif $1 == mirc { echo -a Artık haber aktarımları sadece mIRC aktif ekran da ise çalışacak. | barautoon }
  elseif $1 == all { echo -a Haber aktarımlarını her pencerede görebilirsiniz. | barautooff }
}
alias -l haberci {
  sockclose haber
  sockopen haber sondakika.haberler.com 80
}

on *:Sockopen:haber:{
  sockwrite -n $sockname GET / HTTP/1.1
  sockwrite -n $sockname Host: sondakika.haberler.com
  sockwrite -n $sockname $clrf
}

on *:sockread:haber:{
  var %haber
  sockread %haber
  if <p> isin %haber {
    if !$lines(haber.txt) { write haber.txt $htmlfree(%haber) | .set %ne halt | .timeryenisi 1 6 .set %ne barwrite  | halt }
    if !$read(haber.txt,w,$htmlfree(%haber)) {
      if !%ne { set %ne habermsg }
    write haber.txt $htmlfree(%haber) | %ne [HABER] $qt($htmlfree(%haber)) }
  }
}


alias barautoon set %BARAUTO 1
alias barautooff unset %BARAUTO
alias barhide dll mIRCbar.dll Hide
alias barwrite dll mIRCbar.dll Print $1-
on *:APPACTIVE: { if %haberaktarı { if (%BARAUTO) { if (!$appactive) { barhide | sockclose haber | .timerhaber off } | else barwrite Son dakika haber sistemi aktif. | haber } } }

Önceden yazılmış bu tarz kodlar vardı fakat hepsi sadece mIRC aktif ekranda ise çalışıyordu. Fakat bu kodda hangi programı kullanırsanız kullanın haberleri ekranda görüceksiniz. Fazla söze gerek yok sanırım. Görüntüler yukarda.

Komutlar:

/haber :Haber aktarımını başlatır.
/haber kapat :Haber aktarımını kapatır.
/haber mirc :Sadece mIRC aktif ekranda ise aktarım çalışır.
/haber all :Haberler her pencerede görünür.

-Barın üstüne çift tıklarsanız bar kapanır.
-60 saniye içerisinde yeni bilgi gelmezse satırlar otomatik olarak birer birer kapanır.

Kodun çalışması için; eklentideki mIRCBar.zip-in içindeki mIRCBar.dll dosyasını mIRC klasörünüze ($mircdir) atmanız gereklidir.

mIRCBar DLL yapımcısı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Güzel çalısma kanka
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.