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




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Haziran 2007, 02:09   #1
Çevrimdışı
Domain Sorgulama Botu TCL si olan varmı ?


sohbet


!Domain Domain-Adı

yazınca sahibi olup olmadıqını söleyen bir bot TCL si. ..
!Domain Domain-Adı

yazınca sahibi olup olmadıqını söleyen bir bot TCL si. ..
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 16 Haziran 2007, 08:31   #2
Çevrimdışı
Yanıt: Domain Sorgulama Botu TCL si olan varmı ?




Çalışıp Çalışmadıgına bakmadım elimde vardı eklemek istedim kendine göre düzenleme yaparsın

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set domainwhois_setting(flag) "o|o" set domainwhois_setting(cmd) "dwhois" set domainwhois_setting(server) "networksolutions.com:43" set domainwhois_setting(bold) 1 set domainwhois_setting(DOMAINWHOIS:) 1 if {![string match 1.6.* $version]} { putlog "\002DOMAINWHOIS:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." } if {[info tclversion] < 8.2} { putlog "\002DOMAINWHOIS:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." } bind dcc $domainwhois_setting(flag) $domainwhois_setting(cmd) domainwhois_connect proc domainwhois_dopre {} { global domainwhois_setting if {!$domainwhois_setting(DOMAINWHOIS:)} { return "" } if {!$domainwhois_setting(bold)} { return "DOMAINWHOIS: " } return "\002DOMAINWHOIS:\002 " } proc domainwhois_connect {hand idx text} { global domainwhois_setting if {$text == ""} { putidx $idx "[domainwhois_dopre]Usage: .$domainwhois_setting(cmd) <domain>" ; return } set server [lindex [split $domainwhois_setting(server) :] 0] set port [lindex [split $domainwhois_setting(server) :] 1] if {[catch {set sock [socket -async $server $port]} error]} { putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) failed \([string totitle $error]\)." return } putidx $idx "[domainwhois_dopre]Looking up [lindex $text 0]." set timerid [utimer 15[list domainwhois_timeout $sock $idx]] fileevent $sock writable[list domainwhois_connected $sock $idx [lindex [split $text] 0] $timerid] } proc domainwhois_connected {sock idx domain timerid} { global domainwhois_setting killutimer $timerid if {[set error [fconfigure $sock -error]] != ""} { putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) port $domainwhois_setting(port) failed. \([string totitle $error]\)" close $sock return } fconfigure $sock -translation binary -buffering none -blocking 1 fileevent $sock writable[list domainwhois_write $sock $idx $domain] fileevent $sock readable[list domainwhois_read $sock $idx] putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) accepted." } proc domainwhois_timeout {sock idx} { global domainwhois_setting close $sock putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) timed out." } proc domainwhois_read {sock idx} { global domainwhois_setting if {[gets $sock read] == -1} { putidx $idx "[domainwhois_dopre]Connection to $domainwhois_setting(server) closed." close $sock return } putidx $idx "[domainwhois_dopre]> $read" } proc domainwhois_write {sock idx domain} { puts $sock "WHOIS $domain" fileevent $sock writable {} }

Tcl Yazarı: Wcc

Whois Bilgilerinide networksolutions.com &#231;ekiyor ;oki

  Alıntı ile Cevapla

Alt 29 Haziran 2007, 09:40   #3
Çevrimdışı
Cevap: Domain Sorgulama Botu TCL si olan varmı ?




Teşekk&#252;rLer..

  Alıntı ile Cevapla

Alt 28 Ağustos 2008, 08:08   #4
Çevrimdışı
Cevap: Domain Sorgulama Botu TCL si olan varmı ?




arkadasim bu calismiyor kanalda !domain [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yapinca bisey olmuyor.

  Alıntı ile Cevapla

Cevapla

Etiketler
botu, si, sorgulama, tcl, varmi

Seçenekler
Stil

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
Domain sorgulama hAte HTML/CSS/JavaScript 0 09 Ekim 2014 04:08
SLm ArkadasLar PUAN BOTU ELinde OLan Varmı ? SiberShell Eggdrop, NeoStats, BNC 1 18 Ekim 2009 03:13
aradım bulamadım islam oyun botu olan varmı eXo Eggdrop, NeoStats, BNC 4 24 Ocak 2009 11:14