Tekil Mesaj gösterimi
Alt 30 Haziran 2019, 13:00   #2
Çevrimdışı
SenatoR-SuVaRi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: ülke sehir ısp eski kullandığı nickler mirc kodu hakkında




hatamı buldm ve sanırım şimdioldu güzelde çalışıyor yalnız anlamadığım ülke yerini boş bırakıyor
Nick: DJ-Kuzey IP: 178.241.11.235 - Ulke: - Sehir: Diyarbakir - ISP: Turkcell Önceki KuLandığı Nickler: Kuzey DJ-Kuzey Kuzey`Away Zaza
kod bu bir bakabilirmisiniz
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#giriste on on *:snotice:*Client connecting*:userip $token($token($7-,1,40),-1,32) raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(pro,%:r) $+($4,¿,$6) alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:pro*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 sockwrite -nt $sockname $crlf } on ^*!:nick: { if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick } } raw 352:*: { if %tkp. [ $+ [ $2 ] ] { unset %tkp. [ $+ [ $2 ] ] } if %tkp. [ $+ [ $6 ] ] { if $5 == services.neselichat.net { return } var %ip = $4 ; get the previous nicks var %nicks = $readini(giris.txt, %ip, nicks) ; add the new nick ($addtok will take care of duplicates) var %nicks = $addtok(%nicks,$6,32) ; update the nicks writeini -n giris.txt %ip nicks %nicks halt } } menu nicklist { NickTakip: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 } } on *:sockread:pro*:{ if ($sockerr) { .sockclose $sockname | return } var %:pro | sockread -f %:pro if (IP Country: isin %:pro) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (IP City: isin %:pro) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) } if (ISP Provider: isin %:pro) { var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir) msg #MooS 0,1 Nick: 4 %:n 0 IP: 4 %ip 0- Ulke: 4 %ülke 0 - Sehir: 4 %sehir 0- ISP: 4 %:isp 0 Önceki KuLandığı Nickler:1  4 $readini(giris.txt, %ip, nicks) .hfree -w %:n sockclose $sockname } } #giriste end menu menubar { +> IP GIRIS ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on } ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off } ..Durum < $replace($group(#giriste).status, off, Kapali, on, Açik) >:. }



Konu Feragat tarafından (25 Temmuz 2019 Saat 19:34 ) değiştirilmiştir. Sebep: Raw event ı tek'e düşürüldü.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver