IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 29 Haziran 2016, 18:28   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Sans TCL


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## ######## ######## #### ## ######## ## ## ## ## ## ## ## ## ## ## ## ######## ######## ## ## ## ######## ## ## ## ## ## ## ## ## ## ## ## ######## ## ## ## #### ######## ßy rascoLn ## ####################################################### package require http set komut ".sans" set kanal "#spor" bind pub - $komut sans proc sans {nick host hand chan text} { global kanal set connect [::http::geturl https://www.haberler.com/sans-oyunlari/ -timeout 1000] set data [::http::data $connect] ::http::cleanup $connect set x 0 if { $chan == $kanal } { set sysl1 [string range $data [expr [string first "<h3>Sayısal Loto Sonuçları</h3>" $data]] [expr [string last "<div class=\"moreLink\"><a href=\"https://www.haberler.com/on-numara/\"" $data]]] regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih hafta sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi1 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi2 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi3 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi4 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi5 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi6 sysl1 regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih2 hafta2 sysl1 regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi7 sysl1 regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi8 sysl1 regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi9 sysl1 regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi10 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi11 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi12 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi13 sysl1 regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih3 hafta3 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi14 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi15 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi16 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi17 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi18 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi19 sysl1 regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih4 hafta4 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi20 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi21 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi22 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi23 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi24 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi25 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi26 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi27 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi28 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi29 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi30 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi31 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi32 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi33 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi34 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi35 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi36 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi37 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi38 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi39 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi40 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi41 sysl1 putquick "privmsg $chan :\0030,4 Ş \003 \0030,1 A \003 \0030,4 N \003 \0030,1 S \003 - \0030,4 O \003 \0030,1 Y \003 \0030,4 U \003 \0030,1 N \003 \0030,4 L \003 \0030,1 A \003 \0030,4 R \003 \0030,1 I \003 " putquick "privmsg $chan :-------------------------------------------------------" putquick "privmsg $chan :\0030,1 $tarih\0038$hafta\0030 Sayısal Loto Sonuclari: \003 \0030,2 $sayi1 \003 \0030,2 $sayi2 \003 \0030,2 $sayi3 \003 \0030,2 $sayi4 \003 \0030,2 $sayi5 \003 \0030,2 $sayi6 \003" putquick "privmsg $chan :-" putquick "privmsg $chan :\0030,1 $tarih2\0038$hafta2\0030 Şans Topu Sonuclari: \003 \0030,3 $sayi7 \003 \0030,3 $sayi8 \003 \0030,3 $sayi9 \003 \0030,3 $sayi10 \003 \0030,3 $sayi11 \003 \0030,1 $sayi12 \003 \0030,3 $sayi13 \003" putquick "privmsg $chan :-" putquick "privmsg $chan :\0030,1 $tarih3\0038$hafta3\0030 Süper Loto Sonuclari: \003 \0030,4 $sayi14 \003 \0030,4 $sayi15 \003 \0030,4 $sayi16 \003 \0030,4 $sayi17 \003 \0030,4 $sayi18 \003 \0030,4 $sayi19 \003" putquick "privmsg $chan :-" putquick "privmsg $chan :\0030,1 $tarih4\0038$hafta4\0030 On Numara Sonuclari: \003 \0030,7 $sayi20 \003 \0030,7 $sayi21 \003 \0030,7 $sayi22 \003 \0030,7 $sayi23 \003 \0030,7 $sayi24 \003 \0030,7 $sayi25 \003 \0030,7 $sayi26 \003 \0030,7 $sayi27 \003 \0030,7 $sayi28 \003 \0030,7 $sayi29 \003 \0030,7 $sayi30 \003 \0030,7 $sayi31 \003 \0030,7 $sayi32 \003 \0030,7 $sayi33 \003 \0030,7 $sayi34 \003 \0030,7 $sayi35 \003 \0030,7 $sayi36 \003 \0030,7 $sayi37 \003 \0030,7 $sayi38 \003 \0030,7 $sayi39 \003 \0030,7 $sayi40 \003 \0030,7 $sayi41 \003" putquick "privmsg $chan :-------------------------------------------------------" putquick "privmsg $chan :\0030,4 Ş \003 \0030,1 A \003 \0030,4 N \003 \0030,1 S \003 - \0030,4 O \003 \0030,1 Y \003 \0030,4 U \003 \0030,1 N \003 \0030,4 L \003 \0030,1 A \003 \0030,4 R \003 \0030,1 I \003 " } } putlog "sans.tcl written ßy rascoLn"

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## ######## ######## #### ## ######## ## ## ## ## ## ## ## ## ## ## ## ######## ######## ## ## ## ######## ## ## ## ## ## ## ## ## ## ## ## ######## ## ## ## #### ######## ßy rascoLn ## ####################################################### package require http set komut ".sans" set kanal "#spor" bind pub - $komut sans proc sans {nick host hand chan text} { global kanal set connect [::http::geturl https://www.haberler.com/sans-oyunlari/ -timeout 1000] set data [::http::data $connect] ::http::cleanup $connect set x 0 if { $chan == $kanal } { set sysl1 [string range $data [expr [string first "<h3>Sayısal Loto Sonuçları</h3>" $data]] [expr [string last "<div class=\"moreLink\"><a href=\"https://www.haberler.com/on-numara/\"" $data]]] regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih hafta sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi1 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi2 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi3 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi4 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi5 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi6 sysl1 regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih2 hafta2 sysl1 regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi7 sysl1 regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi8 sysl1 regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi9 sysl1 regexp -- {<li><span >(.*?)</span></li>(.*)$} $sysl1 -> sayi10 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi11 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi12 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi13 sysl1 regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih3 hafta3 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi14 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi15 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi16 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi17 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi18 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi19 sysl1 regexp -- {<div class="sans-oyunlari-tarih">(.*?)<small>(.*?)</small></div>(.*)$} $sysl1 -> tarih4 hafta4 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi20 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi21 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi22 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi23 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi24 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi25 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi26 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi27 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi28 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi29 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi30 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi31 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi32 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi33 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi34 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi35 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi36 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi37 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi38 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi39 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi40 sysl1 regexp -- {<li><span>(.*?)</span></li>(.*)$} $sysl1 -> sayi41 sysl1 putquick "privmsg $chan :\0030,4 Ş \003 \0030,1 A \003 \0030,4 N \003 \0030,1 S \003 - \0030,4 O \003 \0030,1 Y \003 \0030,4 U \003 \0030,1 N \003 \0030,4 L \003 \0030,1 A \003 \0030,4 R \003 \0030,1 I \003 " putquick "privmsg $chan :-------------------------------------------------------" putquick "privmsg $chan :\0030,1 $tarih\0038$hafta\0030 Sayısal Loto Sonuclari: \003 \0030,2 $sayi1 \003 \0030,2 $sayi2 \003 \0030,2 $sayi3 \003 \0030,2 $sayi4 \003 \0030,2 $sayi5 \003 \0030,2 $sayi6 \003" putquick "privmsg $chan :-" putquick "privmsg $chan :\0030,1 $tarih2\0038$hafta2\0030 Şans Topu Sonuclari: \003 \0030,3 $sayi7 \003 \0030,3 $sayi8 \003 \0030,3 $sayi9 \003 \0030,3 $sayi10 \003 \0030,3 $sayi11 \003 \0030,1 $sayi12 \003 \0030,3 $sayi13 \003" putquick "privmsg $chan :-" putquick "privmsg $chan :\0030,1 $tarih3\0038$hafta3\0030 Süper Loto Sonuclari: \003 \0030,4 $sayi14 \003 \0030,4 $sayi15 \003 \0030,4 $sayi16 \003 \0030,4 $sayi17 \003 \0030,4 $sayi18 \003 \0030,4 $sayi19 \003" putquick "privmsg $chan :-" putquick "privmsg $chan :\0030,1 $tarih4\0038$hafta4\0030 On Numara Sonuclari: \003 \0030,7 $sayi20 \003 \0030,7 $sayi21 \003 \0030,7 $sayi22 \003 \0030,7 $sayi23 \003 \0030,7 $sayi24 \003 \0030,7 $sayi25 \003 \0030,7 $sayi26 \003 \0030,7 $sayi27 \003 \0030,7 $sayi28 \003 \0030,7 $sayi29 \003 \0030,7 $sayi30 \003 \0030,7 $sayi31 \003 \0030,7 $sayi32 \003 \0030,7 $sayi33 \003 \0030,7 $sayi34 \003 \0030,7 $sayi35 \003 \0030,7 $sayi36 \003 \0030,7 $sayi37 \003 \0030,7 $sayi38 \003 \0030,7 $sayi39 \003 \0030,7 $sayi40 \003 \0030,7 $sayi41 \003" putquick "privmsg $chan :-------------------------------------------------------" putquick "privmsg $chan :\0030,4 Ş \003 \0030,1 A \003 \0030,4 N \003 \0030,1 S \003 - \0030,4 O \003 \0030,1 Y \003 \0030,4 U \003 \0030,1 N \003 \0030,4 L \003 \0030,1 A \003 \0030,4 R \003 \0030,1 I \003 " } } putlog "sans.tcl written ßy rascoLn"

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
sans, tcl
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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 Açık
Pingbacks are Açık
Refbacks are Açık