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

13Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Ekim 2014, 16:35   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   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 } }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 11 Ekim 2014, 17:26   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Son Dakika haber




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) } }


 
Alıntı ile Cevapla

Alt 11 Ekim 2014, 18:24   #3
Çevrimdışı
Abc
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Son Dakika haber




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

 
Alıntı ile Cevapla

Alt 11 Ekim 2014, 23:17   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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..

 
Alıntı ile Cevapla

Alt 11 Ekim 2014, 23:31   #5
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Son Dakika haber




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...]

 
Alıntı ile Cevapla

Alt 11 Ekim 2014, 23:45   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Son Dakika haber




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ı

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

Parayı Hayatınızın Her karesinde bulabilirsiniz ama Dostu Her zaman bulamazsınız.
 
Alıntı ile Cevapla

Alt 11 Ekim 2014, 23:51   #7
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 12 Ekim 2014, 01:31   #8
Çevrimdışı
Abc
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Son Dakika haber




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.

 
Alıntı ile Cevapla

Alt 19 Mayıs 2017, 09:41   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Son Dakika haber




kod yenisi ile güncellenebilir mi ?

 
Alıntı ile Cevapla

Alt 19 Mayıs 2017, 19:50   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Son Dakika haber




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...]

 
Alıntı ile Cevapla

Cevapla

Etiketler
dakika, haber, son, son dakika, son dakika haber


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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