29 Haziran 2019, 19:49
#1 Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
ülke sehir ısp eski kullandığı nickler mirc kodu hakkında
öncelikle selam güzel ifler dilerim bir konu hakkında yardımınıza ihtiyac duymaktayım ülke sehir ısp mirc koduna eski nickleride göstersin diye bir eklenti yaptım ilk basta calıştı ama girişleri cift verince
02[19:07] <06SuVaRi> ( GiRiS ) == 2 Nick: 4 adanamm == 2 IP: 5 176.33.244.108 == 2- Ulke: 11 Turkey == 2 - Sehir: 7 Adana == 2- ISP: 4 Superonline ADSL 1 Önceki KuLandığı Nickler:1 2 adana adanalı seyhanlı seyhanda benim benim_adana adanam cukurovada adanaaa SuVaRi deneme1 ilker
02[19:07] <06SuVaRi> ( GiRiS ) == 2 Nick: 4 adanamm == 2 IP: 5 176.33.244.108 == 2- Ulke: 11 Turkey == 2 - Sehir: 7 Adana == 2- ISP: 4 Superonline ADSL 1 Önceki KuLandığı Nickler:1 2 adana adanalı seyhanlı seyhanda benim benim_adana adanam cukurovada adanaaa SuVaRi deneme1 ilker böyle bende düzeltek istedima ama sanırım başaramadım yardımcı olabilirmisniz
kod bu
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#giriste on
on *:snotice:*Client connecting*:who +I $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. [ $+ [ $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
; update the seen time
writeini -n giris.txt %ip seentime $date
msg #moos 1,7 ( Bağlanan ) - 2 $6 1 - IP Adresi - 2 $4 - 1 Önceki KuLandığı Nickler:1 2 $readini(giris.txt, %ip, nicks)
halt
}
}
raw 315:*: {
if %tkp. [ $+ [ $2 ] ] {
unset %tkp. [ $+ [ $2 ] ]
halt
}
}
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if (IP Country: isin %:pro) { .hadd -ms $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 -ms $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 #ilker ( GiRiS ) == 2 Nick: 4 %:n == 2 IP: 5 %ip == 2- Ulke: 11 %ülke == 2 - Sehir: 7 %sehir == 2- ISP: 4 %:isp 1 Önceki KuLandığı Nickler:1 2 $readini(giris.txt, %ip, nicks)
.hfree -sw %: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, Kapal1, on, Aç1k) >:.
}
menu nicklist {
NickTakip: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }
}
Konu Feragat tarafından (01 Temmuz 2019 Saat 20:13 ) değiştirilmiştir.
Sebep: mIRC Kodlarını CODE tagı içerisinde paylaşınız.