IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Bu Kod CaLismiyor ArkLar Yardimci Olurmusunız

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Bu Kod CaLismiyor ArkLar Yardimci Olurmusunız (https://www.ircforumlari.net/mirc-scripting-sorunlari/415622-bu-kod-calismiyor-arklar-yardimci-olurmusuniz.html)

Bu Kod CaLismiyor ArkLar Yardimci Olurmusunız

raw 340:*:{
if $2- == $null { msg #dns Ulkesine Baktığınız Nick - %ulkenick - Sunucumuzda Online Değil, Lütfen Başka Bir Nick Deneyiniz. | halt }
set %ulkenick $remove($gettok($2-,1,61),*)
set %ulkeip $gettok($2-,2,64)
ulkebul
halt
}
alias ulkebul {
sockclose ulke
sockopen ulke [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:ulke:{
if ($sockerr) { msg #dns İşlem Gerçekleştirilemedi Lütfen Daha Sonra Tekrar Deneyin | halt }
sockwrite -n $sockname GET /lookups/iplocation.asp?ipaddress= $+ %ulkeip HTTP/1.1
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:ulke:{
var %ulkeoku
sockread %ulkeoku
if (%ulkeoku != $null) {
if (*>City<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Sehir :4 $remove(%ulkeoku,<tr><td align="right">City</td><td>,</td></tr>, ) }
if (*State*or*Region* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Bolge :4 $remove(%ulkeoku,<tr><td align="right">State or Region</td><td>,</td></tr>, ) }
if (*>Country<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Ulke :4 $remove(%ulkeoku,<tr><td align="right">Country</td><td>,</td></tr>, ) }
if (*>ISP<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Baglandigi ADSL :4 $remove(%ulkeoku,<tr><td align="right">ISP</td><td>, </td></tr>, ) | sockclose $sockname }
}
}
on *:text:*:#dns:{
if ($1 == !ulke) {
if ($sock(ulke)) { msg #dns Suanda Baska Bir Nick'in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }
set %ulkenick $remove($2,*)
set %mesajnick $nick
userip $2
msg $chan Lütfen Bekleyiniz...
msg $chan $2 Nick'inin ISP Adresi Kontrol Ediliyor..
}
}

!ulke Hasan
[18:54] <ƒªt¹h> Lütfen Bekleyiniz...
[18:54] <ƒªt¹h> Hasan Nick'inin ISP Adresi Kontrol Ediliyor..

Bu Kodu CaLisdiramadim Yardimlarinizi BekLiorum TskLer..

Cevap: Bu Kod CaLismiyor ArkLar Yardimci Olurmusunız

Kod:

alias nerden {

  set %ip $1

  sockclose nerden

  sockopen nerden whatismyipaddress.com 80

}

on *:sockopen:nerden:{

  sockwrite -n $sockname GET /ip/ $+ %ip HTTP/1.1

  sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf

}

on *:sockread:nerden:{

  var %happen

  sockread $htmlfree(%happen)

  .tokenize 32 $htmlfree(%happen)

  if (*State/Region:* iswm %happen) {

    .set %yerelbölge 0

    .set %yerelbölge $1 $2

    .set %yerelbölge $remove(%yerelbölge,State/Region:)

  }

  if (*City:* iswm %happen) {

    .set %yerelsehir 0

    .set %yerelsehir $1 $2

    .set %yerelsehir $remove(%yerelsehir,City:)

  }

  if (*Country:* iswm %happen) {

    .set %yerelulke 0

    .set %yerelulke $1 $2

    .set %yerelulke $remove(%yerelulke,Country:)

  }

  if (*Latitude:* iswm %happen) {

    .set %yerelenlem 0

    .set %yerelenlem $1 $2

    .set %yerelenlem $remove(%yerelenlem,Latitude:)

  }

  if (*Longitude:* iswm %happen) {

    .set %yerelboylam 0

    .set %yerelboylam $1 $2

    .set %yerelboylam $remove(%yerelboylam,Longitude:)

    .msg #kontrol 12« 5Verdiginiz Nickın Bılgılerıne Bakılıyor Lutfen Bekleyın.. 12»

    .msg #kontrol 12« 5Nick: 1 %yerelnick  12»

    .msg #kontrol 12« 5IP No: 1 %ip  12»

    .msg #kontrol 12« 5Bölge: 1 %yerelbölge  12»

    .msg #kontrol 12« 5Şehir: 1 %yerelsehir  12»

    .msg #kontrol 12« 5Ülke: 1 $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin,EGYPT,Mısır)  12»

    .msg #kontrol 12« 5Enlem: 1 %yerelenlem  12»

    .msg #kontrol 12« 5Boylam: 1 %yerelboylam  12»

  }

}

on *:text:*:#kontrol:{

  if ($1 == !nerden) && $2 { bak $2 }

}

alias bak { .whois $1 | enable #dirim }

#dirim off

raw 328:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }

#dirim end

alias htmlfree {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

}

Cevap: Bu Kod CaLismiyor ArkLar Yardimci Olurmusunız

DaDaS`İm Büyüksün Coderim Süper CaLiSiyorr :)))

<ƒªt¹h> 12« 5Verdiginiz Nickın Bılgılerıne Bakılıyor Lutfen Bekleyın.. 12»
<ƒªt¹h> 12« 5Nick: 1 _mehmet_ 12»
<ƒªt¹h> 12« 5IP No: 1 78.167.196.118 12»
<ƒªt¹h> 12« 5Bölge: 1 Batman 12»
<ƒªt¹h> 12« 5Şehir: 1 Batman 12»
<ƒªt¹h> 12« 5Ülke: 1 Türkiye 12»
<ƒªt¹h> 12« 5Enlem: 1 37.8828 12»
<ƒªt¹h> 12« 5Boylam: 1 41.1206 12

HeLal Kardesimee : )) tskLer