IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Mirc Alt-Yazı Haberler v.1 (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/448640-mirc-alt-yazi-haberler-v1.html)

Mirc Alt-Yazı Haberler v.1

Kod:

;#####################

;Mirc Alt-Yazı Haberler 

;Yazan: siLuet - Salih T.  

;Tarih: 02.02.2012            

;Gereksinim: mdx.dll,Rebar.dll

;Alıntı Kod: SeRDaR406 - Kayan yazı

;#####################
 

alias -l rebar  dll dlls\rebar.dll $$1- 

alias -l mdx dll dlls\mdx.dll $1-

alias -l mdxdll return $dll(dlls\mdx.dll,$1,$2-)

alias -l kaydir {

  if ($dialog(sondakika)) {

    set %text.x $gettok($mdxdll(MoveControl,sondakika 1),2,32)

    if (%text.x == $+(-,%text.w)) set %text.x $dialog(sondakika).w

    dec %text.x

    mdx MoveControl sondakika 1 %text.x *

  }

  else {

    unset %text.x %text.w

    .timersondakika off

    .timerhaber  off

  }

}

alias sondakika if (!$dialog(sondakika)) dialog -mdo sondakika sondakika

on *:dialog:sondakika:init:*: {

  mdx MarkDialog $dname

  mdx SetColor $dname 1 text $rgb(255,0,0)

  mdx SetFont 1 -14 700 tohama

  mdx SetDialog $dname style 

  mdx SetBorderStyle $dname 1 staticedge        

  rebar HideToolbar .

  rebar Dock $dialog(sondakika).hwnd > bottom

  set %text.w $gettok($mdxdll(MoveControl,$dname 1),4,32)

  mdx MoveControl $dname 1 $dialog($dname).w *

  .timersondakika 0 0 kaydir

  $iif(!$timer(haber),.timerhaber 0 60 sdakika) 

}

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

dialog sondakika {

  title "Shaber"

  size -1 -1 354 -3

  option dbu

  text "Alt-Yazı Haberler v.1 2012 by siLuet", 1, 0 2 1000 7

}
 

alias sdakika { set %s.dakika 1 | set %sondakika | $iif($sock(sdakika),sockclose sdakika) | sockopen sdakika 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  }

on *:sockopen:sdakika:{

  sockwrite -n $sockname GET / HTTP/1.1

  sockwrite -n $sockname Host:sondakika.com

  sockwrite -n $sockname $crlf $crlf

}

on *:sockread:sdakika:{

  var %son | sockread %son

  if $regex(%son,/^[[:digit:]]{2}/g) { set %stime $+($chr(91),$htmlfree(%son),$chr(93)) }

  if (</a></h3> isin %son) {

    set %sondakika $addtok(%sondakika %stime,- $htmlfree(%son) -,32)  

    inc %s.dakika 

    if (%s.dakika == 15) { sockclose $sockname | did -a sondakika 1 %sondakika }

  }

}
 

on 1:start:sondakika | .timerhaber 0 60 sdakika

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Selamlar İf Sakinleri.

Başlıktan ve Görüntüdende Anlayacağınız Üzere,Güncel Haberleri ALt-Yazı Olarak Mircinizde görebileceksiniz.
Kodu remote'ye ekledikten sonra başlatmak için "/sondakika" yazmanız veya Mirci kapatıp açmanız gerekir.
Kodun Gerektiği Gibi Çalışması İçin mdx.dll ve rebar.dll Mirc'in dlls Klasorunde Olması Lazım.Aksi halde kod Çalışmayacaktır.
Olmayanlar eklentiden indirebilirler.

Güle güle Kullanın.

İndirdim, denedim. Gerçekden güzel!
Haberlere tıklayarak haber detayı görmeyi,
Haber üstüne mouse ile geldiğimde, kayma işleminin durmasını isterdim
Ama böylede gayet güzel, tebrikler.
-
Test ederken şöyle bir durumla karsılastım.
kanaldaki Nicklisteleri kayboldu (:
-
O zaman bitanede toolbar yapta ver (:

Cevap: Mirc Alt-Yazı Haberler v.1

Normalde bu bölümü takip etmezdim, pek add-on'a ihtiyaç duyan bi insan değilim düz mirc kullandığımdan ancak siz takip ettirtmeye başladınız bana bu bölümü.
Güzel, gerçekten güzel bir eklenti. Eline sağlık.

Cevap: Mirc Alt-Yazı Haberler v.1

Alıntı:

SiyahKaR Nickli Üyeden Alıntı (Mesaj 1041018250)

İndirdim, denedim. Gerçekden güzel!
Haberlere tıklayarak haber detayı görmeyi,
Haber üstüne mouse ile geldiğimde, kayma işleminin durmasını isterdim
Ama böylede gayet güzel, tebrikler.

Söylediğin Özellikler ve haricinde Birkaç Özellik Konuyu Açarken Aklıma Geldi Bu Yüzden Konu Başlıgına v.1 eklemeyi Son Anda Karar verdim. v.2 'de Kısmetse Olacak.

Cevap: Mirc Alt-Yazı Haberler v.1

Alıntı:

SiyahKaR Nickli Üyeden Alıntı (Mesaj 1041018272)

Test ederken şöyle bir durumla karsılastım.
kanaldaki Nicklisteleri kayboldu (:

Sanırım orjinal Toolbarı Kullanıyorsun,oda Nicklist üzerine kayma Yapıyor.
Malesef orjinal toolbar Aktifken Böyle Sorun OLuyor.

Cevap: Mirc Alt-Yazı Haberler v.1

Ben denedim şu anki hali sorunsuz, fakat geliştirilmeli bencede v2 de benim olmasını istediğim özelliklerin bazıları yukarıda belirtilmiş bende yazılmayanları yazayım.

-Haber kaynaklarının genişletilmesi.
-Ve dialoga bizimde etki edebilmemiz. Yani bir ayarlar dialogu orda biz arka plan rengini yazı rengini fontunu dialogun üstemi alttamı olacağı gibi şeyler belirleyebilmeliyiz.

Ellerine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bir de v2 versiyonu paket halinde verirsen arkadaşlar daha kolay yükler patron kolay gelsin şimdiden. :)

Alıntı:

Paint Nickli Üyeden Alıntı (Mesaj 1041018357)

Konuştuğumuz Gibi Patron İnş. Olacak :)

Alıntı:

SiyahKaR Nickli Üyeden Alıntı (Mesaj 1041018315)

O zaman bitanede toolbar yapta ver (:

İnş. Oda Olur :)

Cevap: Mirc Alt-Yazı Haberler v.1

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gercekten guzel olmus ellerine saglık.

Cevap: Mirc Alt-Yazı Haberler v.1

mIRC'e Yenilik gelmesi gayet güzel birşey.

Emekleriniz için; Teşekkürler.

Cevap: Mirc Alt-Yazı Haberler v.1

Cok Güzel Bir Çalışma Teşekkürler