IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Son Dakika haber (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/626305-son-dakika-haber.html)

KivanC 11 Ekim 2014 16:35
Son Dakika haber
 
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:
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
Cevap: Son Dakika haber
 
Kod:
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
Cevap: Son Dakika haber
 
Kod:
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
Cevap: Son Dakika haber
 
* /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
Cevap: Son Dakika haber
 
Kod:
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
Cevap: Son Dakika haber
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041510857)
Kod:
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
Cevap: Son Dakika haber
 
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
Cevap: Son Dakika haber
 
Alıntı:
Sky-bLue Nickli Üyeden Alıntı (Mesaj 1041510853)
* /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ı.

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

#Haber Kanalında komutlar ;

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

kheldor 19 Mayıs 2017 09:41
Cevap: Son Dakika haber
 
kod yenisi ile güncellenebilir mi ?

KivanC 19 Mayıs 2017 19:50
Cevap: Son Dakika haber
 
Kod:
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...]


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:56.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk