Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  vaybe sohbet

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 16 Şubat 2013, 11:46   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Nbseen Alience



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:   Kodu kopyalamak için üzerine çift tıklayın!
/*
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)
}
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan
Alt 18 Şubat 2013, 13:44   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nbseen Alience



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

 
Alıntı ile Cevapla

Alt 18 Şubat 2013, 17:33   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nbseen Alience



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

 
Alıntı ile Cevapla

Alt 20 Şubat 2013, 17:30   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nbseen Alience



Denemedim ama bu şekilde çalışır diye düşünüyorum.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/*
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
 
Alıntı ile Cevapla

Alt 20 Şubat 2013, 19:07   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nbseen Alience



Maalesef bunlar normal girişler

[18:55:22] * Giriş: Rüyam (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[18:55:59] * Giriş: Nickiniz-2 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[18:56:00] -> Daha önceki nickleri (1):
[18:56:00] -> Rüyam


Burasıda userip raw verisi

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

 
Alıntı ile Cevapla

Alt 21 Şubat 2013, 04:31   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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 }
}
 
Alıntı ile Cevapla

Alt 24 Şubat 2013, 02:33   #7
Çevrimiçi
~ BLaCK_and_WHiTe ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

__________________
BLaCK_and_WHiTe is now known as SNOOPY
 
Alıntı ile Cevapla

Cevapla

Etiketler
alience, nbseen

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
iddaa botu [ Alience ] MT EkoL mIRC Scripting Hazır Kodlar 16 18 Ekim 2010 13:28
Alience Style Lazım Maniack vB 3.8.x Temaları 3 08 Şubat 2007 15:50
Iyiki Doğdun Alience! Mickey IF Ekstra 6 08 Haziran 2006 22:54




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
ferizli haber kaynarca haber sohbet sohbet teması takipçi satın al tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers pubg mobile uc
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
Kuşadası Web Site Tasarım & Teknik Destek - KuşadasıNET