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

1Beğeni(ler)
  • 1 Post By MasteR06

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Eylül 2022, 14:27   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Aşk testi.-Socket Sorgu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{ if $regex($1,/^[!.-]a[sş]k$/Si) { if !$2 { msg $chan Lütfen !aşk Abuzittin Dilara şeklinde belirtiniz. } else { set %:kanal # aşk $2 $3 } } } alias aşk { if ($sock(aşkd-*)) { sockclose aşkd-* } sockopen -e aşkd-* asktesti.me 443 set -e %ask $1 set -e %ask1 $2 } on *:sockopen:aşkd-*: { var %asktest sockwrite -tn $sockname %asktest GET $+(/sonuc.php?name1=,%ask,&name2=,%ask1) HTTP/1.1 %asktest Host: asktesti.me %asktest User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0 %asktest Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8 %asktest Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 %asktest Alt-Used: asktesti.me %asktest Connection: close %asktest $crlf } on *:sockread:aşkd-*:{ :askımtest | sockread -f %asktesti if ($sockbr == 0) return if (*<div class="sonuctext">* iswm %asktesti ) msg %:kanal 4Aşk Yüzdeniz : 3 $_fl($gettok(%asktesti,2,32)) if (*<br><br>* iswm %asktesti ) msg %:kanal 4Yorum :  $_tr($_fl($gettok(%asktesti,1,58))) ;else echo 3 Req: %asktesti goto askımtest } alias _fl return $replace($1-,class="sonuctext">,-,</div>,-,<p><a href='https, ,<br>, ) alias _tr return $replace($1-,Ãœ,Ü,ÅŸ,ş,Ä,Ğ,Ä°,İ,Ö,Ö,ü,ü,ÅŸ,Ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,б,ı,Ğ°,İ,Ç,Ç,Å,Ş,ĞŸ,ğ,â,,Â,)

Kod eğlence için yazılmıştır. Çok uğraştığımı söyleyemem. Ufak tefek eksikleri olabilir dilerseniz değiştirebilirsiniz..


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

__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla


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
Dj-SoRGu yayında wepte NotaFM Yayın Akışı 2 07 Şubat 2022 14:24
IP sorgu ve Email sorgu Melek mIRC Scripting Sorunları 0 22 Ağustos 2017 00:18
bitbucket Sorgu .tcl saywhat TCL Scriptler 0 08 Ocak 2015 04:01
Onlarda cam testi, bizde cam testi CtrL Komedi ve Mizah 0 18 Şubat 2014 20:45