mIRCForumlari.Net

mIRCForumlari.Net (https://www.mircforumlari.net/)
-   mIRC Scripting Hazýr Kodlar (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   mIRC Hadis-i Þerif Kodu (Socket) (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/1178-mirc-hadis-i-serif-kodu-socket.html)

RahmetLi 03 Ocak 2023 17:06

mIRC Hadis-i Þerif Kodu (Socket)
 
PHP- Kodu:

on *:text:*:#:{
  if $regex($1,/^[!.-]had[ýiIl][sþ]$/Si) {
    set %:kanal #
    hadis
  }
}
alias hadis {
  if ($sock(hadisd-*)) { sockclose hadisd-* }
  sockopen hadisd-* api.tavcan.com 80
}
on *:sockopen:hadisd-*: {
  var %hadisvertest sockwrite -tn $sockname
  %hadisvertest GET $+(/json/birhadis) HTTP/1.1
  %hadisvertest Host: api.tavcan.com
  %hadisvertest User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:104.0) Gecko/20100101 Firefox/104.0
  %hadisvertest Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8
  %hadisvertest Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %hadisvertest Alt-Used: api.tavcan.com
  %hadisvertest Connection: close
  %hadisvertest $crlf
}
on *:sockread:hadisd-*:{
  :hadisverýmtest | sockread -f %hadisvertesti
  if ($sockbr == 0) return
  if (*"soz":* iswm %hadisvertesti ) msg %:kanal 4 3 $_fl(%hadisvertesti)
  goto hadisverýmtest
}
alias _fl return $replace($1-,\u0130,i,\u0041,A,\u0061,a,\u0130,Ý,\u00e2,â,\u00fc,ü,\u0131,ý,\u2019,',\u00fb,û,\u00ee,î,\u201c,",\u201d,",\u00f6,ö,Soz,Hadis)



Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 23:35.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.


Navbar with Avatar by Motorradforum