| MasteR06 | 29 Eylül 2022 14:27 |
Aşk testi.-Socket Sorgu
Kod:
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..
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
