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

KivanC · 11 Ekim 2014, 16:35

yeni 2014 mIRC Gündeminde mIRCScripting Botumuza " Son dakika " Güncel haberleri sıralayabilicek kodumuz varmı yoksa kodlamasını sayın Coderlerimiz düşünürmü.
Kodlamar mevcut ama siteler ölü

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

on *:sockopen:sdk*: {
if ($sockerr) .msg $remove($sockname,sdk*) Bağlantı 
Kurulamadı...!
else {
sockwrite -n $sockname GET / HTTP/1.1
sockwrite 
-n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n $sockname $crlf
 }
 
}
 on *:sockread:sdk*: {
 var %sd
sockread %sd
if 
(color="maroon"> isin %sd) set %saat $htmlfree(%sd)
if (sondakika.asp?a= 
isin %sd) { 
 var %url = $remove($gettok(%sd,3,32),onClick="MM_openBrWindow 
,$chr(40),'sondakika.asp?a=,sd,width=500,height=40 
0,top=20,left=20,scrollbars=yes,$chr(9),$chr(44),' ) | .msg 
$remove($sockname,sdk*) 
$+(,%saat,$chr(32),--,$chr(32),4,$htmlfree(%sd),$chr(32),--,$chr(32),7,[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) }
 }
 
on *:text:*:#HaberLer: {
if ($1 == !sondk) {
 .msg $nick Son Dakika 
Haberleri Alınıyor.Lütfen bekleyiniz...
sockclose $+(sdk*,$nick)
sockopen 
$+(sdk*,$nick) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
 }
 }
alias htmlfree { if 
($len($1-) <= 900) { var %x, %i = 
$regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = 
$remove(%x,&nbsp;,$chr(9)) | return %x } }

uFuK · 11 Ekim 2014, 17:26

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

alias haberler { sockclose haberler | sockopen haberler [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
} 
on *:sockopen:haberler: {
  sw $sockname GET /rss.php HTTP/1.1
  sw $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sw $sockname Connection: keep-alive
  sw $sockname Cache-Control: max-age=0
  sw $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sw $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062.120 Safari/537.36
  sw $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sw $sockname $crlf
}
on *:sockread:haberler: { 
  var %i 
  sockread %i
  if *<title><![CDATA[* iswm %i { echo -a 12Haberin Konusu: $gettok($gettok(%i,3,91),1,93) }
  if *<link>* iswm %i { echo -a 4Haberin Linki: $htmlfree(%i) }
}

Abc · 11 Ekim 2014, 18:24

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

alias sonhaber {
  $iif(!$isdir(Haberler),mkdir Haberler) | set %satır 1
  if ($1 == güncel) || !$1 { set -e %haber.Konu guncel | write -c  $+(Haberler,\,%haber.Konu,.txt)  }
  elseif ($1 == spor) { set -e %haber.Konu spor | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  elseif ($1 == Ekonomi) { set -e %haber.Konu ekonomi | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  elseif ($1 == Dunya) { set -e %haber.Konu dunya | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  elseif ($1 == magazin) { set -e %haber.Konu magazin | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  elseif ($1 == Kultur-sanat) { set -e %haber.Konu kultur-sanat | write -c  $+(Haberler,\,%haber.Konu,.txt) }
  sockclose sonhaber
  sockopen sonhaber sondakika.haberler.com 80
}
;########Sondakika Haberler Open##########
on *:sockopen:sonhaber:{
  var %write sockwrite -n $sockname
  %write Get /sondakika.asp?son_dakika= $+ %haber.konu HTTP/1.1
  %write Host: sondakika.haberler.com
  %write $crlf
}
;#######Sondakika Haberler Read##########
on *:sockread:sonhaber:{
  var %son | sockread %son
  if (<span class="time"> isin %son) { set -e %time $remove($htmlfree(%son),$chr(9)) }
  if (<h3><a href= isin %son) { write $+(Haberler,\,%haber.Konu,.txt)  4Başlık: $htmlfree(%son)  $+([,%time,|,%satır,]) | write $+(Haberler,\,%haber.Konu,.txt) - | writeini Haberler\links.ini %Haber.konu %satır $gettok(%son,2,34) }
  if (<p> isin %son) {  write $+(Haberler,\,%haber.Konu,.txt)  4Açıklama: $htmlfree(%son) | write $+(Haberler,\,%haber.Konu,.txt) -
    inc %satır
    if (%satır == 6) { sockclose $sockname }
  }
}
;#######Sondakika Haberler Event##########
on *:text:*:#Haber:{
  if $istok(Nick1 Nick2 Nick3,$nick,32) && (!Güncelle == $1) { $iif($2 == Kapat,.timeroto off,.timeroto 0 10 oto) }  
  if (!bilgi == $1) { if (!%bilgi [ $+ [ $nick ] ])  { set -u25 %bilgi [ $+ [ $nick ] ] on | komutlar #  } }
  if (!haberler == $1) { if (!%haberler [ $+ [ $nick ] ])  { set -u25 %haberler [ $+ [ $nick ] ] on | haberler #  } }
  if ((!haber == $1) && $2) { if (!%haber [ $+ [ $nick ] ]) { set -u25 %haber [ $+ [ $nick ] ] on | sonhaber $2 | msg # $2 Haberleri Alınıyor Lütfen Sabırlı Olun! | .timer 1 3 play # $+(Haberler,\,%haber.konu,.txt) 2000   | halt  } }
  if (!link == $1) && $2 && $3 { if (!%link [ $+ [ $nick ] ]) { set -u25 %link [ $+ [ $nick ] ] on | var %hb $replace($gettok($gettok($readini(haberler\links.ini,$2,$3),3,47),$+(1,-,$calc($numtok($readini(haberler\links.ini,$2,$3),45) - 2)),45),-,$chr(32)) | memoserv send $nick  %hb Başlıklı Haberin Linki > $readini(haberler\links.ini,$2,$3) | msg # 4 %hb : Başlıklı Haberin Linki Memo Olarak Gönderilmiştir.   }  }
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }
alias haberler { msg $1 [Haber Başlıkları]  | msg $1 4Guncel , Dunya , Spor , EKonomi , Magazin , Kultur-sanat | msg $1 Haber Başlıklarını Okumak İçin Örn: !haber Guncel  Yazınız. | msg $1 [Haberler SoN]   }
alias komutlar { msg $1 [Haber Botu Kullanabilecek Komutlar] | .timer 1 1 msg $1 !haberler Haber Başlıklarını Listeler | .timer 1 2 msg $1 !haber <Başlık> Belirtilen Haber Başlığındaki Haberleri Listeler.  | .timer 1 3 msg $1 !link <Başlık> <N> "N" Numaralı haberin Linkini Görmenizi/Almanızı sağlar. Örn: !link kultur-sanat 2 | .timer 1 5 msg $1 [Haber Botu Komut sonu] }

;#######Sondakika Haberler Oto##########
alias oto { $iif($sock(oto),sockclose oto) |  sockopen oto 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  }
on *:sockopen:oto:{
  var %write sockwrite -n $sockname
  %write Get /sondakika.asp?son_dakika=guncel HTTP/1.1
  %write Host: sondakika.haberler.com
  %write $crlf
}
on *:sockread:oto:{
  var %oto | sockread %oto
  if (<p> isin %oto) {
    if (%oto1 == $htmlfree(%oto)) { sockclose $sockname }
    else {
      set %oto1 $htmlfree(%oto)
      msg #Haber 4Yeni Haber: %oto1
      msg #Haber -
      sockclose $sockname
    }
  }
}
;#######Sondakika Haberler End##########

Haberler diye klasör ac botun içine .
Hangi kanalda yayınlamak istiyorsan #Haber buraları degiştir

KivanC · 11 Ekim 2014, 23:17

* /play: 'C:\Users\Aliihsan\Desktop\X\AjanV4\Ajan v4\Haberler\.txt' Açılamıyor

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve klasörde haber txt bulunmuyor..

Set · 11 Ekim 2014, 23:31

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

on *:sockopen:sondakika*: {
  var %komut sockwrite -nt $sockname 
  %komut GET / HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut $crlf
}
on *:sockread:sondakika*: {
  var %x | sockread %x | tokenize 32 %x
  if (<li class="haber"><div class="saat"> isin $1-) {
    hadd -m sondakika saat $token($token($1-,3,62),1,60)
    hadd -m sondakika link $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hadd -m sondakika baslik $token($token($1-,5,62),1,60)
    hadd -m sondakika aciklama $token($token($1-,7,62),1,60)
    if !$hget(sondakika,$hget(sondakika,link)) {
      hadd -mu16000 sondakika $hget(sondakika,link) Evet.
      echo -a [4Son Dakika]2 $hget(sondakika,baslik) -10 $hget(sondakika,aciklama) 
      echo -a  4***2 Zaman:10 $hget(sondakika,saat) -2 Haberin devami:14 $hget(sondakika,link)
    }
  }
}

alias sondakika {
  var %tarih $token($date,1-2,47)
  var %rand $rand(0,9999999)
  sockopen $+(sondakika,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}

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

fLayer · 11 Ekim 2014, 23:45

Set Nickli Üyeden Alıntı
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!

on *:sockopen:sondakika*: {
  var %komut sockwrite -nt $sockname 
  %komut GET / HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut $crlf
}
on *:sockread:sondakika*: {
  var %x | sockread %x | tokenize 32 %x
  if (<li class="haber"><div class="saat"> isin $1-) {
    hadd -m sondakika saat $token($token($1-,3,62),1,60)
    hadd -m sondakika link $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hadd -m sondakika baslik $token($token($1-,5,62),1,60)
    hadd -m sondakika aciklama $token($token($1-,7,62),1,60)
    if !$hget(sondakika,$hget(sondakika,link)) {
      hadd -mu16000 sondakika $hget(sondakika,link) Evet.
      echo -a [4Son Dakika]2 $hget(sondakika,baslik) -10 $hget(sondakika,aciklama) 
      echo -a  4***2 Zaman:10 $hget(sondakika,saat) -2 Haberin devami:14 $hget(sondakika,link)
    }
  }
}

alias sondakika {
  var %tarih $token($date,1-2,47)
  var %rand $rand(0,9999999)
  sockopen $+(sondakika,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}

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

buna kanal eklentiside olsaydı iyi olmazmıydı

Set · 11 Ekim 2014, 23:51

echo -a olan yerleri msg #kanal degiştirmek gibi kücük birşey yapsan tamamdir, cok kafana takılıyorsa [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buradan geliştirebilirsin, kendin zaten ugrasmaya basladıgında boyle seyleri kafana takmak gibi bir sıkıntın olmaz, daha detaylı yardım almak istersense Feragat veya Toprak nicklerine pm atarsan yardımcı olurlar.

Abc · 12 Ekim 2014, 01:31

Sky-bLue Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

* /play: 'C:\Users\Aliihsan\Desktop\X\AjanV4\Ajan v4\Haberler\.txt' Açılamıyor

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve klasörde haber txt bulunmuyor..

O verdigim kodu önce bitane metin belgesine kopyala adıda haberler olsun mirc.exe nin bulundugu yere at.

Sonra /load -rs haberler.txt diye yazarak yukle.

Sonra mirc.exe nin oldugu yerde Haberler klasoru ac.

Haberler klasorunun içinede links.ini diye dosya ac uzantısı ini olacak. gayet kod calısıyor saglıklı.

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

#Haber Kanalında komutlar ;

!haber guncel
!haber magazin
!haber spor
!haber dunya vs vs.

kheldor · 19 Mayıs 2017, 09:41

kod yenisi ile güncellenebilir mi ?

KivanC · 19 Mayıs 2017, 19:50

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

on *:sockopen:sondakika*: {
  var %komut sockwrite -nt $sockname 
  %komut GET / HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut $crlf
}
on *:sockread:sondakika*: {
  var %x | sockread %x | tokenize 32 %x
  if (<li class="haber"><div class="saat"> isin $1-) {
    hadd -m sondakika saat $token($token($1-,3,62),1,60)
    hadd -m sondakika link $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hadd -m sondakika baslik $token($token($1-,5,62),1,60)
    hadd -m sondakika aciklama $token($token($1-,7,62),1,60)
    if !$hget(sondakika,$hget(sondakika,link)) {
      hadd -mu16000 sondakika $hget(sondakika,link) Evet.
      msg #kanal [4Son Dakika]2 $hget(sondakika,baslik) -10 $hget(sondakika,aciklama) 
      msg #kanal  4***2 Zaman:10 $hget(sondakika,saat) -2 Haberin devami:14 $hget(sondakika,link)
    }
  }
}

alias sondakika {
  var %tarih $token($date,1-2,47)
  var %rand $rand(0,9999999)
  sockopen $+(sondakika,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Son dakika haber başlıkları	Yunus	Haber Arşivi	0	27 Eylül 2011 10:19
Son dakika haber başlıkları!	Yunus	Haber Arşivi	0	25 Mart 2011 09:52
Haber \ Son Dakika	PopSy	mIRC Scripting Sorunları	36	31 Mayıs 2008 18:12

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.