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


ircforumu reklam ircforumu reklamdamlasu bizimkiler sihirlisohbet sohbetelit


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 03 Mart 2019, 17:35   #1
Çevrimiçi
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Güncel Altın ve döviz fiyatları


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias d_exc_total return $+(=,$chr(3),12) $remove($replace($gettok($gettok($1,15-,$asc(")),2-1,44),$chr(44),$+($chr(32),TL,$chr(32),$chr(3),4),:,$+(:,$chr(32))),") TL alias exchange { sockopen exchange bigpara.hurriyet.com.tr 80 sockmark exchange https://bigpara.hurriyet.com.tr/altin/ } on *:sockopen:exchange: { if ($sockerr) { msg %d_echan $+($chr(3),5) *** Siteye bağlantı sağlanamadı! | return } sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1 sockwrite -n $sockname Host: $sock($sockname).addr sockwrite -n $sockname User-Agent: */* sockwrite -n $sockname Connection: Close sockwrite -n $sockname } on *:sockread:exchange: { if ($sockerr) { msg %d_echan $+($chr(3),5) *** Veriler alinamadi! | return } var %d_exc | sockread %d_exc | if ($sockbr) { if $regex(%d_exc,/var \$altindata =/i) { var %r 1 | while %r <= $numtok(%d_exc,123) { %total = $gettok(%d_exc,%r,123) if *"sembolid":2199* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** GRAM ALTIN $d_exc_total($v2) } if *"sembolid":473* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** CUMHURİYET ALTINI $d_exc_total($v2) } if *"sembolid":2356* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** CEYREK ALTIN $d_exc_total($v2) } if *"sembolid":2640* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** 22 AYAR BİLEZİK $d_exc_total($v2) } if *"sembolid":2355* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** YARIM ALTIN $d_exc_total($v2) } if *"sembolid":1302* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** DOLAR $d_exc_total($v2) } if *"sembolid":1639* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** EURO $d_exc_total($v2) } inc %r } } } } on *:sockclose:exchange: { msg %d_echan $+($chr(3),5) *** $+($chr(3),4) $time $chr(3) itibari ile güncel fiyatlar listelendi. } on *:text:*:#kanal: { if $regex($1,/^(!|\.)kur$/i) { %d_echan = # | exchange } }


Komut: !kur
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias d_exc_total return $+(=,$chr(3),12) $remove($replace($gettok($gettok($1,15-,$asc(")),2-1,44),$chr(44),$+($chr(32),TL,$chr(32),$chr(3),4),:,$+(:,$chr(32))),") TL alias exchange { sockopen exchange bigpara.hurriyet.com.tr 80 sockmark exchange https://bigpara.hurriyet.com.tr/altin/ } on *:sockopen:exchange: { if ($sockerr) { msg %d_echan $+($chr(3),5) *** Siteye bağlantı sağlanamadı! | return } sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1 sockwrite -n $sockname Host: $sock($sockname).addr sockwrite -n $sockname User-Agent: */* sockwrite -n $sockname Connection: Close sockwrite -n $sockname } on *:sockread:exchange: { if ($sockerr) { msg %d_echan $+($chr(3),5) *** Veriler alinamadi! | return } var %d_exc | sockread %d_exc | if ($sockbr) { if $regex(%d_exc,/var \$altindata =/i) { var %r 1 | while %r <= $numtok(%d_exc,123) { %total = $gettok(%d_exc,%r,123) if *"sembolid":2199* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** GRAM ALTIN $d_exc_total($v2) } if *"sembolid":473* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** CUMHURİYET ALTINI $d_exc_total($v2) } if *"sembolid":2356* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** CEYREK ALTIN $d_exc_total($v2) } if *"sembolid":2640* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** 22 AYAR BİLEZİK $d_exc_total($v2) } if *"sembolid":2355* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** YARIM ALTIN $d_exc_total($v2) } if *"sembolid":1302* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** DOLAR $d_exc_total($v2) } if *"sembolid":1639* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** EURO $d_exc_total($v2) } inc %r } } } } on *:sockclose:exchange: { msg %d_echan $+($chr(3),5) *** $+($chr(3),4) $time $chr(3) itibari ile güncel fiyatlar listelendi. } on *:text:*:#kanal: { if $regex($1,/^(!|\.)kur$/i) { %d_echan = # | exchange } }


Komut: !kur
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
altın, döviz, fiyatları, güncel, kur
IRCForumu.Net - Sponsor Bağlantılar



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