IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   ülke Şehir Yeni (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/415638-ulke-sehir-yeni.html)

Z-Lined 30 Eylül 2011 21:23
ülke Şehir Yeni
 
Merhaba Ben Weblerde Dolaşırken Şöyle Bi Kod Buldum

Kod:
alias findip {
  if ($sock(MyIp)) { sockclose MyIp }
  sockopen MyIp whatismyipaddress.com 80
  if ($1) { sockmark myip $1 }
  else { echo -a Used: /findip <IP> }
}
on *:sockopen:myip: {
  sockwrite -nt $sockname GET $iif($sock(myip).mark,/ip/ $+ $v1,/) HTTP/1.1
  sockwrite -nt $sockname Host: whatismyipaddress.com
  sockwrite -nt $sockname $crlf
}
on *:Sockread:myip: {
  var %ipinfo
  sockread %ipinfo
  if ($sock(MyIp)) {
    set %ip $sock(myip).mark
    tokenize 32 %ipinfo
    var %boo, %get
    %boo = $z(%ipinfo)
    ;write $scriptdirlog.html %ipinfo
    if (<title> isin %ipinfo) { %tempIP = $gettok(%ipinfo,2,60) | .timer 1 2 echo -a $gettok(%tempIP,2,62) }
    if (Country isin $gettok(%boo,1,58)) { .timer 1 3 echo -a Country: $gettok(%boo,2,58) }
    if (State/Region isin $gettok(%boo,1,58)) { .timer 1 4 echo -a State/Region: $gettok(%boo,2,58) }
    if (<th>City:</th> isin %ipinfo) { %tempC = $gettok(%ipinfo,5,62) | .timer 1 5 echo -a City: $gettok(%tempC,1,60) }
    if (Latitude isin $gettok(%boo,1,58)) { .timer 1 6 echo -a Latitude: $gettok(%boo,2,58) }
    if (Longitude isin $gettok(%boo,1,58)) { .timer 1 7 echo -a Longitude: $gettok(%boo,2,58) }
    if (<th>Hostname:</th> isin %ipinfo) { %tempH = $gettok(%ipinfo,10,62) | .timer 1 10 echo -a Hostname: $gettok(%tempH,1,60) }
    if (<th>ISP:</th> isin %ipinfo) { %tempISP = $gettok(%ipinfo,16,62) | .timer 1 11 echo -a ISP: $gettok(%tempISP,1,60) }
    if (<th>Organization:</th> isin %ipinfo) { %tempORG = $gettok(%ipinfo,16,62) | .timer 1 12 echo -a Organization: $gettok(%tempORG,1,60) }
    if (<th>Services:</th> isin %ipinfo) { %tempSEV = $gettok(%ipinfo,28,62) | .timer 1 13 echo -a Services: $gettok(%tempSEV,1,60) }
    if (<th>Type:</th> isin %ipinfo) { %tempTP = $gettok(%ipinfo,35,62) | %tempTP2 = $gettok(%tempTP,1,47) | %tempTP3 = $gettok(%tempTP2,1,9) | .timer 1 14 echo -a Type: $gettok(%tempTP3,1,60) }
    if (<th>Assignment:</th> isin %ipinfo) { %tempASSG = $gettok(%ipinfo,43,62) | %tempASSG2 = $gettok(%tempASSG,1,60) | .timer 1 15 echo -a Assignment: %tempASSG2 }
  }
}
}
alias -l z {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}
/findip ip şeklinde Çalışmaktadır
IP Address: 88.246.140.218
City: Istanbul
Hostname: 88.246.140.218
ISP: 1492552922
Organization: 1492552922
Services: Turk Telekom
Type:
Assignment: th


Bunu /findip ip Yerine !findip ip şeklinde Yapa Bilirmiyiz Yani Bot icin olucak Bota opers kanalında !findip ip Yapınca kanalda Gösterse O şekilde :)

fav 02 Ekim 2011 12:40
Cevap: ülke Şehir Yeni
 
Alıntı:
Zlined Nickli Üyeden Alıntı (Mesaj 1040850916)
Merhaba Ben Weblerde Dolaşırken Şöyle Bi Kod Buldum

Kod:
on *:text:*:#opers:{
    if !findip* iswm $1- {
findip $2
}
}
alias findip {
  if ($sock(MyIp)) { sockclose MyIp }
  sockopen MyIp whatismyipaddress.com 80
  if ($1) { sockmark myip $1 }
  else { echo -a Used: /findip <IP> }
}
on *:sockopen:myip: {
  sockwrite -nt $sockname GET $iif($sock(myip).mark,/ip/ $+ $v1,/) HTTP/1.1
  sockwrite -nt $sockname Host: whatismyipaddress.com
  sockwrite -nt $sockname $crlf
}
on *:Sockread:myip: {
  var %ipinfo
  sockread %ipinfo
  if ($sock(MyIp)) {
    set %ip $sock(myip).mark
    tokenize 32 %ipinfo
    var %boo, %get
    %boo = $z(%ipinfo)
    ;write $scriptdirlog.html %ipinfo
    if (<title> isin %ipinfo) { %tempIP = $gettok(%ipinfo,2,60) | .timer 1 2 echo -a $gettok(%tempIP,2,62) }
    if (Country isin $gettok(%boo,1,58)) { .timer 1 3 echo -a Country: $gettok(%boo,2,58) }
    if (State/Region isin $gettok(%boo,1,58)) { .timer 1 4 echo -a State/Region: $gettok(%boo,2,58) }
    if (<th>City:</th> isin %ipinfo) { %tempC = $gettok(%ipinfo,5,62) | .timer 1 5 echo -a City: $gettok(%tempC,1,60) }
    if (Latitude isin $gettok(%boo,1,58)) { .timer 1 6 echo -a Latitude: $gettok(%boo,2,58) }
    if (Longitude isin $gettok(%boo,1,58)) { .timer 1 7 echo -a Longitude: $gettok(%boo,2,58) }
    if (<th>Hostname:</th> isin %ipinfo) { %tempH = $gettok(%ipinfo,10,62) | .timer 1 10 echo -a Hostname: $gettok(%tempH,1,60) }
    if (<th>ISP:</th> isin %ipinfo) { %tempISP = $gettok(%ipinfo,16,62) | .timer 1 11 echo -a ISP: $gettok(%tempISP,1,60) }
    if (<th>Organization:</th> isin %ipinfo) { %tempORG = $gettok(%ipinfo,16,62) | .timer 1 12 echo -a Organization: $gettok(%tempORG,1,60) }
    if (<th>Services:</th> isin %ipinfo) { %tempSEV = $gettok(%ipinfo,28,62) | .timer 1 13 echo -a Services: $gettok(%tempSEV,1,60) }
    if (<th>Type:</th> isin %ipinfo) { %tempTP = $gettok(%ipinfo,35,62) | %tempTP2 = $gettok(%tempTP,1,47) | %tempTP3 = $gettok(%tempTP2,1,9) | .timer 1 14 echo -a Type: $gettok(%tempTP3,1,60) }
    if (<th>Assignment:</th> isin %ipinfo) { %tempASSG = $gettok(%ipinfo,43,62) | %tempASSG2 = $gettok(%tempASSG,1,60) | .timer 1 15 echo -a Assignment: %tempASSG2 }
  }
}
}
alias -l z {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}
/findip ip şeklinde Çalışmaktadır
IP Address: 88.246.140.218
City: Istanbul
Hostname: 88.246.140.218
ISP: 1492552922
Organization: 1492552922
Services: Turk Telekom
Type:
Assignment: th


Bunu /findip ip Yerine !findip ip şeklinde Yapa Bilirmiyiz Yani Bot icin olucak Bota opers kanalında !findip ip Yapınca kanalda Gösterse O şekilde :)
denemedim ama calışmaması için bir neden görünmüyor

fav 02 Ekim 2011 12:55
Cevap: ülke Şehir Yeni
 
ek olarak echo -a yazanları msg # şeklinde yapmalısın kanala yansımasını istiyorsn kendin göreceksen notice $nick şeklinde echo sadece botun oldugu mırcte gosterir

Z-Lined 03 Ekim 2011 05:12
Cevap: ülke Şehir Yeni
 
[04:11] <Gökhan> !findip 109.228.247.65
[04:11] <FearLeSs> IP Address: 109.228.247.65
[04:11] <FearLeSs> City: Istanbul
[04:11] <FearLeSs> Hostname: 109.228.247.65
[04:11] <FearLeSs> ISP: 1843722049
[04:11] <FearLeSs> Organization: 1843722049
[04:11] <FearLeSs> Services: MILLENI.COM
[04:11] <FearLeSs> Type:
[04:11] <FearLeSs> Assignment: th

Çok Sağol Emeğine SAğlık istediyim Buydu Çalıştı Tekrar Tşkler

sad33 07 Kasım 2011 21:01
Cevap: ülke Şehir Yeni
 
peki bunu hem bu şekilde hemde nick şeklinde yapmak mümkünmü ? ama bu code üzerinde çalışarak yapılabilirmi ? bununla ilgili diğer codelerden olmayacak yani (!ulke nick !nerden nick) çünkü onlar mirce göre hata verebiliyor bazen rawlardan ötürü.





-------------------------------------


Güncel

Feragat 09 Aralık 2011 15:45
Cevap: ülke Şehir Yeni
 
kardeş bunu tcl yapamazmıyız. Bilgi verirsen sevinirim. Mesela eggdroplardan birine eklemek istesek olurmu ?

toXic 09 Aralık 2011 15:56
Cevap: ülke Şehir Yeni
 
Sanirim bu konu olmali. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:11.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk