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

 Kayıt ol  Topluluk
19Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 2 Toplam 2 Sayfadan 1 2
 
LinkBack Seçenekler Stil
Alt 12 Mayıs 2017, 13:05   #11
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



elhale Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu hatayı alıyorum

* kfs H Mibbit@8.34.78.194 :1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
* /if: invalid format

Bir hata görmedim ben , bende sorunsuz şekilde çalışıyor , eğer hata devam ediyorsa özelden ulaşın bakayım hataya , öyle bir hata almadım cunki ben

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 12 Mayıs 2017, 14:17   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



Set Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bir hata görmedim ben , bende sorunsuz şekilde çalışıyor , eğer hata devam ediyorsa özelden ulaşın bakayım hataya , öyle bir hata almadım cunki ben


Başka bir mirc'de çalıştım ve işe yaradı. Ama bir ülke eklediğimde ve tekrar bağlanırsa otomatik olarak yasaklanmaz.

 
Alıntı ile Cevapla

Alt 12 Mayıs 2017, 20:02   #13
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!



on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 }
on ^*:join:#: {
  if o isin $usermode && $nick !== $me {
    if $hget(giris,$nick) {
      echo # $+($chr(3),$color(join)) $timestamp ** Giris: $nick $tam($hget(ident,$nick),$hget(giris,$nick))) 1 $hget(sehir,$nick) $cesitler($hget(ulke,$nick)) 
      if $ulkekont($hget(ulke,$nick)) {
        ban -k # $nick 2 4Banlandınız.
      }
      haltdef
    }
    else { 
      hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
      if !$sock($+(nrdbul,$nick)) { who +I $nick }
      haltdef
    }
  }
}
raw 352:*:bul $4 $6 $3 | hadd -m ident $6 $3 | haltdef
alias bul {
  sockopen $+(nrdbul,$2) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 
  sockmark $+(nrdbul,$2) $+($2,*,$1,*,$3)
} 
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }  
on *:sockopen:nrdbul*:{
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,2,42)) HTTP/1.1  
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive 
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:nrdbul*:{   
  var %x | sockread %x
  if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }   
  if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
  if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { 
    hadd -mu5 $sockname webisp $regml(1)
    hadd -mu5 $sockname webnick $token($sock($sockname).mark,1,42)
    hadd -mu5 $sockname webip $token($sock($sockname).mark,2,42)
    hadd -mu5 $sockname webident $token($sock($sockname).mark,3,42)
    hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
    if $hget(chan,$hget($sockname,webnick)) {
      hdel -m chan $v1
      hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
      hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) 
      hadd -m ulke $hget($sockname,webnick) $hget($sockname,webulke)
      tokenize 32 $hget($sockname,webchan)
      echo $* $+($chr(3),$color(join)) $timestamp Giris: ** $hget($sockname,webnick) $tam($hget($sockname,webident),$hget(giris,$hget($sockname,webnick))) 1 $hget(sehir,$hget($sockname,webnick)) $cesitler($hget($sockname,webulke))  
      if $ulkekont($hget($sockname,webulke)) {
        tokenize 32 $hget($sockname,webchan)
        ban -k $* $hget($sockname,webnick) 2 4Banlandınız.
      }   
    }  
    sockclose $sockname
  }
}
alias cesitler { return - 4"Nick-Ban" 2&4 "IP-Banla" 2&4 "Tum-Kanallardan-At" 2&4 "Shun" 2&4 "Gzline" 2&4 $iif(!$ulkekont($1),"Ulke-Ekle","Ulke-Sil") - }
alias ulkekont {
  if $hfind(banulke,$1,1,W).data { return 1 }
}
alias tam { return $+($chr(40),$1,@,$2,$chr(41)) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on ^*:hotlink:*"*:#:if ($regex($1,/"(Nick|IP|Gzline|Shun|Ulke)(.+)"$/)) return
on *:hotlink:*:*: {
  var %nick $token($hotline,5,32), %islem $remove($1,")
  if (%islem == nick-ban) { ban -k $active %nick 1 4 Nick-Ban }
  if (%islem == ip-banla) { ban -k $active %nick 2 4IP-Ban }
  if (%islem == shun) { echo -a shun %nick 4Shunlandin }
  if (%islem == tum-kanallardan-at) { 
    tokenize 32 $regsubex($str(a,$comchan(%nick,0)),/./g,$chr(32) $comchan(%nick,\n) )
    ban -k $* %nick 4Tum kanallardan ban.
  }
  if (%islem == gzline) { gzline %nick +0 4sunucudan uzaklastirildiniz. }
  if (%islem == ulke-ekle) { var %rand $rand(0,9999)
    if $hfind(banulke,$hget(ulke,%nick),1,W).data { echo -a $hget(ulke,%nick) - zaten yasakli ulke listesinde. | return }
    hadd -m banulke %rand $hget(ulke,%nick)
    hsave -m banulke banulke.63
    echo -a ** $hget(ulke,%nick) - banli listeye eklendi.
  }
  if (%islem == ulke-sil) { var %rand $rand(0,9999)
    if !$hfind(banulke,$hget(ulke,%nick),1,W).data { echo -a $hget(ulke,%nick) - zaten yasakli ulke listesinde bulunmuyor. | return }
    hdel -m banulke $hfind(banulke,$hget(ulke,%nick),1,W).data 
    hsave -m banulke banulke.63
    echo -a ** $hget(ulke,%nick) - ban listesinden silindi.
  }
}
on *:start: {
  if $isfile(banluke.63) { hmake banulke | hload banulke banulke.63 }
}


Burdan İndir Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.
 
Alıntı ile Cevapla

Alt 10 Ekim 2019, 18:17   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad çok güzel code yazmışsınız, teşekkürler. Statüste şöyle bir uyarı alıyorum sürekli;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
* /sockopen: 'nrddbulUzmnÇvş' Soket Kullanılıyor (Satır 20, script34.txt)
alias bul {
  sockopen $+(nrddbul,$2) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 <-- Satır 20
  sockmark $+(nrddbul,$2) $+($2,*,$1,*,$3)
}

bunun sebebi nedir? Şimdiden teşekkür ederim.

 
Alıntı ile Cevapla

Alt 10 Ekim 2019, 18:22   #15
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



Fredyyy Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad çok güzel code yazmışsınız, teşekkürler. Statüste şöyle bir uyarı alıyorum sürekli;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
* /sockopen: 'nrddbulUzmnÇvş' Soket Kullanılıyor (Satır 20, script34.txt)
alias bul {
  sockopen $+(nrddbul,$2) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 <-- Satır 20
  sockmark $+(nrddbul,$2) $+($2,*,$1,*,$3)
}

bunun sebebi nedir? Şimdiden teşekkür ederim.

O kısmı boyle degiştirip denermisin, denemedim ama o hata'yı tekrar yansitmaz tahminen, dönüs saglarsın herhangi sorunda

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bul {
  var %socks = $+(nrddbul,$2)
  if !$sock(%socks) {
    sockopen %socks 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 
    sockmark %socks $+($2,*,$1,*,$3)
  } 
}
 
Alıntı ile Cevapla

Alt 10 Ekim 2019, 18:38   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



Teşekkürler hatayı kesti. İyi çalışmalar dilerim.

 
Alıntı ile Cevapla

Alt 14 Ekim 2019, 21:40   #17
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



kodu remoteye ekleyince girisler kanallarda gorunmuyor statuste /who cekip duruyor her girene
nerde hata var?

ayrica bazi kanalari muaf ekleyebilirmiyiz?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 }
on ^*:join:#: {
  if o isin $usermode && $nick !== $me {
    if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp ** Giris: $nick $tam($hget(ident,$nick),$hget(giris,$nick))) 1 $hget(sehir,$nick) $cesitler($hget(ulke,$nick)) | haltdef }
    else { 
      hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
      if !$sock($+(nrdbul,$nick)) { who +I $nick }
      haltdef
    }
  }
}
alias bul {
  var %socks = $+(nrddbul,$2)
  if !$sock(%socks) {
    sockopen %socks 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 
    sockmark %socks $+($2,*,$1,*,$3)
  } 
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }  
on *:sockopen:nrdbul*:{
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,2,42)) HTTP/1.1  
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive 
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:nrdbul*:{   
  var %x | sockread %x
  if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }   
  if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
  if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { 
    hadd -mu5 $sockname webisp $regml(1)
    hadd -mu5 $sockname webnick $token($sock($sockname).mark,1,42)
    hadd -mu5 $sockname webip $token($sock($sockname).mark,2,42)
    hadd -mu5 $sockname webident $token($sock($sockname).mark,3,42)
    hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
    if $hget(chan,$hget($sockname,webnick)) {
      hdel -m chan $v1
      hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
      hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) 
      hadd -m ulke $hget($sockname,webnick) $hget($sockname,webulke)

      tokenize 32 $hget($sockname,webchan)
      echo $* $+($chr(3),$color(join)) $timestamp Giris: ** $hget($sockname,webnick) $tam($hget($sockname,webident),$hget(giris,$hget($sockname,webnick))) 1 $hget(sehir,$hget($sockname,webnick)) $cesitler($hget($sockname,webulke))  
    }  
    sockclose $sockname
  }
}
alias cesitler { return - 4"Nick-Ban" 2&4 "IP-Banla" 2&4 "Shun" 2&4 "Gzline" 2&4 $iif(!$ulkekont($1),"Ulke-Ekle","Ulke-Sil" - "Tum-Kanallardan-At") - }
alias ulkekont {
  if $hfind(banulke,$1,1,W).data { return 1 }
}
alias tam { return $+($chr(40),$1,@,$2,$chr(41)) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on ^*:hotlink:*"*:#:if ($regex($1,/"(Nick|IP|Gzline|Shun|Ulke)(.+)"$/)) return
on *:hotlink:*:*: {
  var %nick $token($hotline,5,32), %islem $remove($1,")
  if (%islem == nick-ban) { ban -k $active %nick 1 4 Nick-Ban }
  if (%islem == ip-banla) { ban -k $active %nick 2 4IP-Ban }
  if (%islem == shun) { echo -a shun %nick 4Shunlandin }
  if (%islem == tum-kanallardan-at) { 
    tokenize 32 $regsubex($str(a,$comchan(%nick,0)),/./g,$chr(32) $comchan(%nick,\n) )
    ban -k $* %nick 4Tum kanallardan ban.
  }
  if (%islem == gzline) { gzline %nick +0 4sunucudan uzaklastirildiniz. }
  if (%islem == ulke-ekle) { var %rand $rand(0,9999)
    if $hfind(banulke,$hget(ulke,%nick),1,W).data { echo -a $hget(ulke,%nick) - zaten yasakli ulke listesinde. | return }
    hadd -m banulke %rand $hget(ulke,%nick)
    hsave -m banulke banulke.63
    echo -a ** $hget(ulke,%nick) - banli listeye eklendi.
  }
  if (%islem == ulke-sil) { var %rand $rand(0,9999)
    if !$hfind(banulke,$hget(ulke,%nick),1,W).data { echo -a $hget(ulke,%nick) - zaten yasakli ulke listesinde bulunmuyor. | return }
    hdel -m banulke $hfind(banulke,$hget(ulke,%nick),1,W).data 
    hsave -m banulke banulke.63
    echo -a ** $hget(ulke,%nick) - ban listesinden silindi.
  }
}
on *:start: {
  if $isfile(banluke.63) { hmake banulke | hload banulke banulke.63 }
}


Konu OperServ tarafından (14 Ekim 2019 Saat 21:45 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 14 Ekim 2019, 21:52   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
raw 352:*:bul $4 $6 $3 | hadd -m ident $6 $3 | haltdef

bu (RAW) satırı silmişsiniz sanırım.

 
Alıntı ile Cevapla

Alt 14 Ekim 2019, 22:23   #19
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi



hayir oldugu gibi ekledim birseyi silmedim

 
Alıntı ile Cevapla

Cevapla
Sayfa 2 Toplam 2 Sayfadan 1 2

Etiketler
bulucu, eventi, join, şehir

« ö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
Güncel Aynı dosyada birden fazla on *:join:#:{ eventi nasıl çalışır Askeribo mIRC Scripting Sorunları 35 10 Mayıs 2016 12:56
Join eventi ile echo sorunu ? Hayat mIRC Scripting Sorunları 8 05 Şubat 2009 00:53
connect eventi mrksmn mIRC Scripting Sorunları 4 28 Temmuz 2007 01:29
Multi join | Mass Clone Join Kuruması.. CoCoRiCo mIRC Scripting Hazır Kodlar 4 12 Aralık 2005 08:29




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
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org