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

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

- - Nbseen Alience (https://www.ircforumlari.net/mirc-scripting-sorunlari/523776-nbseen-alience.html)

Evet Arkadaslar Görüldiği gibi bu kod alience hocamıza ait

Çokta güzel çalışmakta Tek sorun op sop dj gibi yetililerin ipadres yerinde sunucuopu gibi yazıalr olması buda kodda sıkıntı yaratıyor

ipadreslerini hafızaya alırken kodumuzdaki ip yerine /userip $nick seklinde sorgu yaptırıp sunucun verdiği ip üzerine işlem yaptırmak istiyorum

kodun değişmesi gereken yerlerini değiştirebilirmiyiz

Not:ip işlemleri /userip nick sorgusundan gelen cevaba göre olsun istiyorum Teşekkürler..

Kod:

/*

Addon: nbseen 

Versiyon: v0.1 

Yazan: Alience

Tarih: 14-09-2010

mIRC version: 7.1

*/

alias nbdll {

  var %check = $dll($qt($+($scriptdir,db.dll)),Open,nblist $shortfn($+($scriptdir,nblist.db))))

  if !$regex(%check,(S_OK|E_LABEL_IN_USE)) { echo $color(info text) *** nblist error: %check | halt }

  %check = $dll($qt($+($scriptdir,db.dll)),Query,nblist $1-) 

  if $isid { return %check }

  elseif $show && !$isid { echo $color(info text) *** nblist: %check }

}

alias nbsave {

  .nbdll DELETE FROM list WHERE (strftime('%J','now') - strftime('%J',ctime) > 100)

  if $regex($nbdll(select * FROM list WHERE nick = $+(',$1,') and network = $+(',$2,') and ip LIKE $+(',$regsubex($3,^.*@,$+($chr(37),@)),')),S_OK [^0]) {

    .nbdll UPDATE list SET ctime = julianday('now') where nick = $+(',$1,') and network = $+(',$2,') and ip = $+(',$3,')

  }

  else {

    .nbdll insert into list values( $+(',$1,') , $+(',$2,') , $+(',$3,') ,julianday('now'))

  }

}

alias nbsrc {

  return $gettok($nbdll(SELECT * FROM list WHERE network = $+(',$1,') AND ip LIKE $+(',$replace($2,*,%),') AND $+(nick!=,',$3,')),2,32)

}

alias nbget {

  var %x = $remove($dll($qt($+($scriptdir,db.dll)),fetchrow,nblist $1),S_OK)

  return $gettok(%x,$2,9)

}

on *:connect: { if !$ial { .ial on } }

on *:join:#: {

  if $nick != $me {  

    var %outstr = $null

    if $nbsrc($iif($network,$network,$server),$address($nick,2),$nick) {

      var %i = $v1

      echo -t $chan $+($str($chr(160),3),->) Daha önceki nickleri $+($chr(40),%i,$chr(41),:)

      while %i > 0 {

        if $len(%outstr $nbget(%i,1)) <= 750 {

          %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))          

        }

        else { echo -t $chan $+($str($chr(160),3),->) %outstr | %outstr = $null }

        dec %i 1

      }

      if %outstr { echo -t $chan $+($str($chr(160),3),->) %outstr }

      echo $chan $chr(160)

    }

    nbsave $nick $iif($network,$network,$server) $fulladdress

  }

}

on *:open:?:*: {

  var %outstr = $null

  if $nbsrc($iif($network,$network,$server),$address($nick,2),$nick) {

    var %i = $v1

    echo -t $nick Daha önceki nickleri $+($chr(40),%i,$chr(41),:)

    while %i > 0 {

      if $len(%outstr $nbget(%i,1)) <= 750 {

        %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))          

      }

      else { echo -t $nick $+($chr(160),->) %outstr | %outstr = $null }

      dec %i 1

    }

    if %outstr { echo -t $nick $+($chr(160),->) %outstr }

    echo $nick $chr(160)

  }

  nbsave $nick $iif($network,$network,$server) $fulladdress

}

on *:quit: { if $nick != $me { nbsave $nick $iif($network,$network,$server) $fulladdress } }

alias query {

  var %outstr = $null

  !query $1

  if $nbsrc($iif($network,$network,$server),$address($1,2),$1) {

    var %i = $v1

    echo -t $1 Daha önceki nickleri $+($chr(40),%i,$chr(41),:)

    while %i > 0 {

      if $len(%outstr $nbget(%i,1)) <= 750 {

        %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))          

      }

      else { echo -t $1 $+($chr(160),->) %outstr | %outstr = $null }

      dec %i 1

    }

    if %outstr { echo -t $1 $+($chr(160),->) %outstr }

    echo $1 $chr(160)

  }

  nbsave $1 $iif($network,$network,$server) $address($1,5)

}

Cevap: Nbseen Alience

dll'yide paylaşırsan yardımci olmaya çalışır herkes.

Cevap: Nbseen Alience

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Buradan indirebilirsiniz dll yi

Cevap: Nbseen Alience

Denemedim ama bu şekilde çalışır diye düşünüyorum.

Kod:

/*

Addon: nbseen 

Versiyon: v0.1 

Yazan: Alience

Tarih: 14-09-2010

mIRC version: 7.1

*/

alias nbdll {

  var %check = $dll($qt($+($scriptdir,db.dll)),Open,nblist $shortfn($+($scriptdir,nblist.db))))

  if !$regex(%check,(S_OK|E_LABEL_IN_USE)) { echo $color(info text) *** nblist error: %check | halt }

  %check = $dll($qt($+($scriptdir,db.dll)),Query,nblist $1-) 

  if $isid { return %check }

  elseif $show && !$isid { echo $color(info text) *** nblist: %check }

}

alias nbsave {

  .nbdll DELETE FROM list WHERE (strftime('%J','now') - strftime('%J',ctime) > 100)

  if $regex($nbdll(select * FROM list WHERE nick = $+(',$1,') and network = $+(',$2,') and ip LIKE $+(',$regsubex($3,^.*@,$+($chr(37),@)),')),S_OK [^0]) {

    .nbdll UPDATE list SET ctime = julianday('now') where nick = $+(',$1,') and network = $+(',$2,') and ip = $+(',$3,')

  }

  else {

    .nbdll insert into list values( $+(',$1,') , $+(',$2,') , $+(',$3,') ,julianday('now'))

  }

}

alias nbsrc {

  return $gettok($nbdll(SELECT * FROM list WHERE network = $+(',$1,') AND ip LIKE $+(',$replace($2,*,%),') AND $+(nick!=,',$3,')),2,32)

}

alias nbget {

  var %x = $remove($dll($qt($+($scriptdir,db.dll)),fetchrow,nblist $1),S_OK)

  return $gettok(%x,$2,9)

}

on *:connect: { if !$ial { .ial on } }

on *:join:#: {

  if $nick != $me { 

    userip $nick | .enable #adres 

    var %outstr = $null

    if $nbsrc($iif($network,$network,$server),%adres2,$nick) {

      var %i = $v1

      echo -t $chan $+($str($chr(160),3),->) Daha önceki nickleri $+($chr(40),%i,$chr(41),:)

      while %i > 0 {

        if $len(%outstr $nbget(%i,1)) <= 750 {

          %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))          

        }

        else { echo -t $chan $+($str($chr(160),3),->) %outstr | %outstr = $null }

        dec %i 1

      }

      if %outstr { echo -t $chan $+($str($chr(160),3),->) %outstr }

      echo $chan $chr(160)

    }

    nbsave $nick $iif($network,$network,$server) %adresfull

  }

}

on *:open:?:*: {

  var %outstr = $null

  userip $nick | .enable #adres

  if $nbsrc($iif($network,$network,$server),%adres2,$nick) {

    var %i = $v1

    echo -t $nick Daha önceki nickleri $+($chr(40),%i,$chr(41),:)

    while %i > 0 {

      if $len(%outstr $nbget(%i,1)) <= 750 {

        %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))          

      }

      else { echo -t $nick $+($chr(160),->) %outstr | %outstr = $null }

      dec %i 1

    }

    if %outstr { echo -t $nick $+($chr(160),->) %outstr }

    echo $nick $chr(160)

  }

  nbsave $nick $iif($network,$network,$server) %adresfull

}

on *:quit: { if $nick != $me { nbsave $nick $iif($network,$network,$server) $fulladdress } }

alias query {

  var %outstr = $null

  !query $1

  userip $nick | .enable #adres

  if $nbsrc($iif($network,$network,$server),%adres2,$1) {

    var %i = $v1

    echo -t $1 Daha önceki nickleri $+($chr(40),%i,$chr(41),:)

    while %i > 0 {

      if $len(%outstr $nbget(%i,1)) <= 750 {

        %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))          

      }

      else { echo -t $1 $+($chr(160),->) %outstr | %outstr = $null }

      dec %i 1

    }

    if %outstr { echo -t $1 $+($chr(160),->) %outstr }

    echo $1 $chr(160)

  }

  nbsave $1 $iif($network,$network,$server) %adresfull

}
 

#adres off

raw 340:*: {

  set -e %adresfull $+($token($2,1,61),!,$right($token($2,2,61),-1))   

  set -e %adres2 $+(*!*@,$token($2,2,64))

  .disable #adres | halt

}

#adres end

Cevap: Nbseen Alience

Maalesef bunlar normal girişler

[18:55:22] * Giriş: Rüyam ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[18:55:59] * Giriş: Nickiniz-2 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[18:56:00] -> Daha önceki nickleri (1):
[18:56:00] -> Rüyam

Burasıda userip raw verisi
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Rüyam=+
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:07 -->-> Daha önceki mesaj 18:59 --

giriş sorguları if $nbsrc($iif($network,$network,$server),%adres2,$nick) {

giren nicki değilde bir önceki nicki sorguluyor saki

Cevap: Nbseen Alience

biraz toparladım şu dll olayını tam çözemedim data besa olayını farklı bir kodlama deneme yanılma yöntemiyle eksikleri tamamlayabiliriz şimdilik bunu kullanıp deneyebilirsiniz

Kod:

alias nbdll { var %check = $dll($qt($+($scriptdir,db.dll)),Open,nblist $shortfn($+($scriptdir,nblist.db))))

  if !$regex(%check,(S_OK|E_LABEL_IN_USE)) { echo $color(info text) *** nblist error: %check | halt } | %check = $dll($qt($+($scriptdir,db.dll)),Query,nblist $1-) | if $isid { return %check } | elseif $show && !$isid { echo $color(info text) *** nblist: %check }

}

alias nbsave { .nbdll DELETE FROM list WHERE (strftime('%J','now') - strftime('%J',ctime) > 100)

  if $regex($nbdll(select * FROM list WHERE nick = $+(',$1,') and network = $+(',$2,') and ip LIKE $+(',$regsubex($3,^.*@,$+($chr(37),@)),')),S_OK [^0]) { .nbdll UPDATE list SET ctime = julianday('now') where nick = $+(',$1,') and network = $+(',$2,') and ip = $+(',$3,') } | else { .nbdll insert into list values( $+(',$1,') , $+(',$2,') , $+(',$3,') ,julianday('now')) }

}

alias nbsrc { return $gettok($nbdll(SELECT * FROM list WHERE network = $+(',$1,') AND ip LIKE $+(',$replace($2,*,%),') AND $+(nick!=,',$3,')),2,32) }

alias nbget { var %x = $remove($dll($qt($+($scriptdir,db.dll)),fetchrow,nblist $1),S_OK) | return $gettok(%x,$2,9) }

on *:connect: { if !$ial { .ial on } }

on *:quit: { if $nick != $me { nbsave $nick $iif($network,$network,$server) $fulladdress } }

alias query { if $nick != $me { .timeruserip 1 1 userip $1 | .enable #adres } | set %menbseen $me | set %nbchn $1 | set %ntwk $network | set %servr $server | set %nıcbnseen $1 | query $$1 }

on *:open:?:*: { if $nick != $me { .timeruserip 1 1 userip $nick | .enable #adres } | set %menbseen $me | set %nbchn $nick | set %ntwk $network | set %servr $server | set %nıcbnseen $nick }

on *:join:#: { if $nick != $me { .timeruserip 1 1 userip $nick | .enable #adres } | set %menbseen $me | set %nbchn $chan | set %ntwk $network | set %servr $server | set %nıcbnseen $nick }

#adres on

raw 340:*: { haltdef | set -e %adresfull $+($token($2,1,61),!,$right($token($2,2,61),-1)) | set -e %adres2 $+(*!*@,$token($2,2,64)) | .timerbnsnn 1 1  nbseenaz |.disable #adres }

#adres end

alias nbseenaz { if $nick != %menbseen { var %outstr = $null | if $nbsrc($iif(%ntwk,%ntwk,%servr),%adres2,%nıcbnseen) { var %i = $v1 | echo -t %nbchn $+($str($chr(160),3), ->3 %nıcbnseen)  1,7Nickinin Daha önceki nickleri $+($chr(40),%i,$chr(41)) | while %i > 0 { if $len(%outstr $nbget(%i,1)) <= 750 { %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))  } | else { echo -t %nbchn $+($str($chr(160),3),4) %outstr | %outstr = $null } | dec %i 1 }

  if %outstr { echo -t %nbchn $+($str($chr(160),3),4) %outstr } | echo %nbchn $chr(160) | unset %menbseen | unset %nbchn | unset %ntwk | unset %servr | unset %nıcbnseen } | nbsave %nıcbnseen $iif(%ntwk,%ntwk,%servr) %adresfull }

}

Cevap: Nbseen Alience

O kodu yazan Halim abimse o kodda ondan başkası değişiklik yapıpta düzeltemez, bence sıfırdan yazın.