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

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

- - Kod Hatası Bilgisi Olan ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/569618-kod-hatasi-bilgisi-olan.html)

Kod Hatası Bilgisi Olan ?

!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- Kodu:

   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.

      }

    }

  }

 
}

Cevap: Kod Hatası Bilgisi Olan ?

Kod:

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.

Cevap: Kod Hatası Bilgisi Olan ?

Alıntı:

Ody Nickli Üyeden Alıntı (Mesaj 1041400447)

PHP- Kodu:

   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:

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:

      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:

\.com|\.net|

gibi..

Cevap: Kod Hatası Bilgisi Olan ?

Kod:

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.

Cevap: Kod Hatası Bilgisi Olan ?

Buyrun;

Kod:

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