mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
06 Aralık 2023, 01:40 | #1 |
!Nerden remotesi guncel
Kodon *:text:*:#Kanal:{ if $regex($1,/^([!\.]nerden)$/i) { if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return } set %:kanal # if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 } else { .enable #nerdenbul | .who +I $2 } } } on *:input:#:{ if $regex($1,/^([!\.]nerden)$/i) { if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return } set %:kanal # if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 } else { .enable #nerdenbul | .who +I $2 } } } #nerdenbul off raw 352:*: _nerden $4 raw 315:*:.disable #nerdenbul #nerdenbul end alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) igs.klavyenet.com 80 | sockmark $+(yerbul,%:r) $1 } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:yerbul*:{ if ($sockerr) { .sockclose $sockname } else { sockwrite -nt $sockname GET $+(/bilgi.php?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1 sockwrite -nt $sockname Host: $sock($sockname).addr sockwrite -nt $sockname Connection: keep-alive sockwrite -nt $sockname Cache-Control: max-age=0 sockwrite -nt $sockname Upgrade-Insecure-Requests: 1 sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36 sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9 sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7 sockwrite -nt $sockname $crlf } } on *:sockread:yerbul*:{ var %:yerbul | sockread %:yerbul | tokenize 32 %:yerbul if $regex($1-,/<span>Ülke:<\/span> <span>(.+)<\/span>/Si) { .hadd -ms $sockname Ülke $iif($regml(1),$v1,Belirsiz) } elseif $regex($1-,/<span>Şehir:<\/span> <span>(.+)<\/span>/Si) { .hadd -ms $sockname Sehir $iif($regml(1),$v1,Belirsiz) } elseif $regex($1-,/<span>ISP:<\/span> <span>(.+)<\/span>/Si) { msg %:kanal 6[ISP6]IP Adresi: $token($sock($sockname).mark,1,191)) 6[Ülke6]: $iif($hget($sockname,Ülke),$v1,Belirsiz)) 6[Sehir6] $iif($hget($sockname,Sehir),$v1,Belirsiz))) 6[ISP6]: $iif($regml(1),$v1,Belirsiz))) | .hfree -sw $sockname | sockclose $sockname } }
________________
Hersey icin fazla sanalsiniz.
|
|
|
07 Aralık 2023, 12:13 | #2 |
Emeğine sağlık kank
________________
Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive.. ~ E & B ~ |
|
|
07 Aralık 2023, 12:22 | #3 |
Emeğinize sağlık
________________
|
|
|
07 Aralık 2023, 16:20 | #4 |
Emeğinize sağlık
|
|
|
07 Aralık 2023, 16:22 | #5 |
Emeğinize sağlık
|
|
|
08 Aralık 2023, 07:19 | #6 |
Emeğinize sağlık paylaşım için teşekkür ederiz
________________
~ E & B ~ |
|
|
08 Aralık 2023, 07:53 | #7 |
paylaşım için emeğine sağlık
________________
Çekme, Cennetimin Pencerelerine perde.
Kaldır! Göz kapaklarını |
|
|
08 Aralık 2023, 16:05 | #8 |
Emeğine sağlık
|
|
|
08 Aralık 2023, 19:09 | #9 |
Emeğinize sağlık
________________
Seviyorum içimdeki alıngan ama haylaz çocuğu.. Sever, kırılır, küser.. Ama göz ucuyla hep bir gülücük bekler... |
|
|
08 Aralık 2023, 19:34 | #10 |
emeginize saglik
________________
Hope. . . ✨
|
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|