Kod Hatası Bilgisi Olan ? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Ody · 02 Mart 2014, 13:53

!whois domain.com yazdıgımda hata alıyorum.

* Geçersiz format: $regex (Satır 25, script2.mrc)
-

Ve çalışmıyor

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Öncelikle profesyonel oldugunuz için sizi etiketliyorum.

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


alias temizle { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)   | return %x   }

alias dwhois { sockopen dwhois kimindir.com 80 }

on *:sockopen:dwhois: {

  set %swp sockwrite -n $sockname

  %swp GET $+(/,%domain) HTTP/1.1

  %swp Host: kimindir.com

  %swp $crlf

}

on *:sockread:dwhois: {

  var %alien

  sockread %alien

  if $regex(%alien,_ext/_img/check_2.gif) {

    msg #webmaster %domain kayıtsız. (kayıt edilebilir)

    sockclose dwhois

  }

  if $regex(%alien,$+(href=”http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">msg #webmaster %domain kayıtlı. (alınamaz)

    sockclose dwhois

  }

}

on *:text:*:#webmaster: {

  if $1 == !whois {

    if !$2 { msg $chan Yanlış kullanım. Kullanmanız gereken kod: !whois domain.com , !whois domain.net gibi. }

    else {

      if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|.tv|.cc|.xxx|.co|.gen.tr|.me|

.bel.tr|.org.tr|.gov.tr|.edu.tr|.web.tr|.name.tr) {

        msg $chan Sorgulama başarısız. Sorgulama yapabileceğiniz uzantılar: com, net, org, biz, com.tr, info, in, tv, cc, gen.tr, co, me, bel.tr, gov.tr, edu.tr, web.tr, name.tr

      }

      else {

        sockclose dwhois

        set %domain $2

        dwhois

        msg $chan $2 domaini sorgulanıyor.

      }

    }

  }

 
}

Lociz · 03 Mart 2014, 13:18

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

alias temizle { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)   | return %x   }
alias dwhois { sockopen dwhois kimindir.com 80 }
on *:sockopen:dwhois: {
  set %swp sockwrite -n $sockname
  %swp GET $+(/,%domain) HTTP/1.1
  %swp Host: kimindir.com
  %swp $crlf
}
on *:sockread:dwhois: { 
  var %alien 
  sockread %alien 
  echo -a sockread %alien 
  if $regex(%alien,_ext/_img/check_2.gif) {
    msg #webmaster %domain kayıtsız. (kayıt edilebilir) 
    sockclose dwhois 
  } 
  if $regex(%alien,OluÅŸturulma Tarihi :) {
    msg #webmaster %domain kayıtlı. (alınamaz) 
    sockclose dwhois 
  } 
} 
on *:text:*:#webmaster: { 
  if $1 == !whois { 
    if !$2 { msg $chan Yanlış kullanım. Kullanmanız gereken kod: !whois domain.com , !whois domain.net gibi. } 
    else { 
      if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|.tv|.cc|.xxx|.co|.gen.tr|.me|.bel.tr|.org.tr|.gov.tr|.edu.tr|.web.tr|.name.tr) { 
        msg $chan Sorgulama başarısız. Sorgulama yapabileceğiniz uzantılar: com, net, org, biz, com.tr, info, in, tv, cc, gen.tr, co, me, bel.tr, gov.tr, edu.tr, web.tr, name.tr 
      } 
      else { 
        sockclose dwhois 
        set %domain $2 
        dwhois 
        msg $chan $2 domaini sorgulanıyor. 
      } 
    } 
  } 
}

Bunu deneyin bi.

Feragat · 03 Mart 2014, 15:05

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

!whois domain.com yazdıgımda hata alıyorum.

* Geçersiz format: $regex (Satır 25, script2.mrc)
-

Ve çalışmıyor

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Öncelikle profesyonel oldugunuz için sizi etiketliyorum.

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


alias temizle { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)   | return %x   }

alias dwhois { sockopen dwhois kimindir.com 80 }

on *:sockopen:dwhois: {

  set %swp sockwrite -n $sockname

  %swp GET $+(/,%domain) HTTP/1.1

  %swp Host: kimindir.com

  %swp $crlf

}

on *:sockread:dwhois: {

  var %alien

  sockread %alien

  if $regex(%alien,_ext/_img/check_2.gif) {

    msg #webmaster %domain kayıtsız. (kayıt edilebilir)

    sockclose dwhois

  }

  if $regex(%alien,$+(href=”http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">msg #webmaster %domain kayıtlı. (alınamaz)

    sockclose dwhois

  }

}

on *:text:*:#webmaster: {

  if $1 == !whois {

    if !$2 { msg $chan Yanlış kullanım. Kullanmanız gereken kod: !whois domain.com , !whois domain.net gibi. }

    else {

      if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|.tv|.cc|.xxx|.co|.gen.tr|.me|

.bel.tr|.org.tr|.gov.tr|.edu.tr|.web.tr|.name.tr) {

        msg $chan Sorgulama başarısız. Sorgulama yapabileceğiniz uzantılar: com, net, org, biz, com.tr, info, in, tv, cc, gen.tr, co, me, bel.tr, gov.tr, edu.tr, web.tr, name.tr

      }

      else {

        sockclose dwhois

        set %domain $2

        dwhois

        msg $chan $2 domaini sorgulanıyor.

      }

    }

  }

 
}

Hatanın sebebi, düz olması gereken satırın, bir alt satıra geçmesi yani şu kısım;

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

if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|.tv|.cc|.xxx|.co|.gen.tr|.me|
.bel.tr|.org.tr|.gov.tr|.edu.tr|.web.tr|.name.tr) {

Ama "yok ben illa da bu şekilde istiyorum satır atlamış olsun ve yinede çalışsın!" dersen mirc bunun içinde bir kolaylık sunmuş. Bkz: /help $& Bu tanım uzun satırları alt alta farklı satırlar gibi böler ve düz bir satır gibi çalıştırmaya yarar aslında. mIRC yardım dosyasından inceleyip, orada belirtilen örnek alias ı test ettiğinizde daha iyi anlarsınız eminim. Yani kısacası;

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

      if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|.tv|.cc|.xxx|.co|.gen.tr|.me| $&
        .bel.tr|.org.tr|.gov.tr|.edu.tr|.web.tr|.name.tr) {

Bu şekilde de satır atlamamış, tek bir satır gibi, statuse yansıyan o iğrenç hatadan kurtulabilirsiniz.

Ayrıca Regex karakterlerinde . Nokta; Herhangi bir karakteri temsil eder. Eğer nokta karakterini temsil ettirmek istiyorsanız başına ters slah koyup nokta koymanız gerekir \. bu sayede nokta karakteri ile eşleşecektir.
Örnek:

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

\.com|\.net|

gibi..

charon · 04 Ocak 2015, 13:52

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

alias temizle { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)   | return %x   }
alias dwhois { sockopen dwhois kimindir.com 80 }
on *:sockopen:dwhois: {
  set %swp sockwrite -n $sockname
  %swp GET $+(/,%domain) HTTP/1.1
  %swp Host: kimindir.com
  %swp $crlf
}
on *:sockread:dwhois: {
  var %alien
  sockread %alien
  if $regex(%alien,_ext/_img/check_2.gif) {
    msg #webmaster %domain kayıtsız. (kayıt edilebilir)
    sockclose dwhois
  }
  if $regex(%alien,$+(href=”
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
msg #webmaster %domain kayıtlı. (alınamaz)
    sockclose dwhois
  }
}
on *:text:*:#webmaster: { 
  if $1 == !whois { 
    if !$2 { msg $chan Yanlış kullanım. Kullanmanız gereken kod: !whois domain.com , !whois domain.net gibi. } 
    else { 
      if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|.tv|.cc|.xxx|.co|.gen.tr|.me|.bel.tr|.org.tr|.gov.tr|.edu.tr|.web.tr|.name.tr) { 
        msg $chan Sorgulama başarısız. Sorgulama yapabileceğiniz uzantılar: com, net, org, biz, com.tr, info, in, tv, cc, gen.tr, co, me, bel.tr, gov.tr, edu.tr, web.tr, name.tr 
      } 
      else { 
        sockclose dwhois 
        set %domain $2 
        dwhois 
        msg $chan $2 domaini sorgulanıyor. 
      } 
    } 
  } 
}

* Geçersiz format: $regex (Satır 25, script2.mrc)
-
hatası burda giderildi
var %alien diye değişkene sockread ile okutup atanıyor herşey yolunnda gözüküyor ama if koşuluyla sağlanan isteniyen bilgiliren alınmasında sıkıntı var diye düşünüyorum zira bilgilerin sitedin alınmasında ve atanmasında bir sıkıntı yok html kodlanmış bir site oldgundan tüm html kodlarını bile çekiyor hata if koşunlunu kullanarak istenilen bilgilirin alınmasında cok uğraştım ama basit bir hatası var diye düşünüyorum.

Toprak · 04 Ocak 2015, 14:22

Buyrun;

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

on *:text:*:#:{
  if $regex($1,/^([!\.]who[iıİ]s)$/i) {
    if (*.* !iswm $2) { msg # Lütfen (!.)whois domain.com olarak belirtiniz. | return }
    var %:rand $md5($ticks)
    set %:kanal # | sockopen $+(whodomain,%:rand) wmaraci.com 80 | sockmark $+(whodomain,%:rand) $remove($2,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:whodomain*:{
  var %:who $+(whois_type=1&domain=,$sock($sockname).mark)
  sockwrite -nt $sockname POST /whois HTTP/1.1
  sockwrite -nt $sockname Host: wmaraci.com
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Content-Length: $len(%:who)
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname X-Requested-With: XMLHttpRequest
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36
  sockwrite -nt $sockname Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
charset=UTF-8
  sockwrite -nt $sockname 
  sockwrite -nt $sockname %:who
}
on *:sockread:whodomain*:{
  var %:whodomain | sockread %:whodomain | tokenize 32 %:whodomain
  if (*div class="hizli-whois" onclick="gotowhoisquery* iswm %:whodomain) {
    msg %:kanal $sock($sockname).mark - $token($regsubex(%:whodomain,/(.+gotowhoisquery)/gi,),4,39)
  } 
}

Komut: [!.]whois domain.com

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
C++ bilgisi olan var mi	NightwoLf	GNU, Linux ve UNIX	1	09 Ekim 2007 16:12
Bilgisi Olan ?	MeQaN	Unreal IRCd	2	07 Mart 2007 02:00

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

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.