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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 27 Kasım 2008, 14:12   #1
Çevrimdışı
rX
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Elinde Olan Varmı !Dwhois tcL ??




Elinde Domain Whois cektiricek Calısıcak Tcl Olan Varmı Paylaşırsa Sevinirim

Benim Elimdeki Sadece Belirli domainlerde Whois cekiyor Yani Site'den Kaynaklanıyor Baska Bi Steye Ayarlayabilen Varmı ?

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
13 56 28 ] <AtacK> .dwhois ircforumlari.net
13 56 32 ] <X-BotDomain Sahibi: <b>salihgunaydin.infosalihgunaydin Caddeapdiipekcimah.ayazmacad.1565sokno/14 KentKocaeli,41400 Ülke:Turkey
13 57 05 ] <AtacK> .dwhois google.com
13 57 08 ] <X-BotDomain Sahibi: <b>DnsAdmin CaddeGoogleInc KentPleasecontactcontact-admin@google.com1600AmphitheatreParkway Ülke:MountainViewCA94043
13 57 20 ] <AtacK> .dwhois muhabbet.gen.tr
13 57 24 ] <AtacK> .dwhois muhabbet.org
13 57 25 ] <X-BotDomain Sahibi: <b>AhmetGüvenTın CaddeYıldıztepeMah130.SokNo:54/2D.10Nazilli Kent09800 Ülke:Aydın
13 57 49 ] <X-BotDomain Sahibi: <b>CagdasAydogdu CaddeDikmenAnkara Kent000000Ankara Ülke:TR
13 57 54 ] <AtacK> .dwhois love.gen.tr
13 58 05 ] <X-BotDomain Sahibi: <b>MuratEliçalışkan CaddeAşanSok.No:42/1 KentAnkara Ülke:Türkiye
----------------------------------------------------------------
 
14 00 04 ] <AtacK> .dwhois muhabbet.net
14 00 05 ] <X-BotDomain Sahibi: <b>muhabbet.net Cadde: </b></preKent:  Ülke:
 
 
Bulamayınca Bu Sekilde Diyor Sitedende Whois Cektigimde Site bilgilerine Ulasmıyor Guncel Whois Sitesine Yapabilen Arkadas Varmı Aranızda 


dwhois.tcl
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#################################################### ################ .dwhois <domain> ################## #################################################### bind pub - .dwhois dwhois proc dwhois {nick host handle chan text} { set server "isfree.schlundtec.com" set port 80 set l 14 set i 0 set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]" set sockdw [socket $server $port] puts $sockdw "GET $path HTTP/1.0" puts $sockdw "User.Agent:Mozilla" puts $sockdw "Host: $server" puts $sockdw "" flush $sockdw while {$i <= $l} { gets $sockdw linedw putlog $linedw if {[string match "*Domain*frei*" $linedw]} { putserv "PRIVMSG $chan :[lindex $text 0] domaini (alan adı) boştadır ve kaydedilebilir" close $sockdw return 0 } if {[string match "*Domain*registriert*" $linedw]} { gets $sockdw putserv "PRIVMSG $chan Domain Sahibi: [html [gets $sockdw]] Cadde: [html [gets $sockdw]] Kent: [html [gets $sockdw]] Ülke:[html [gets $sockdw]]" close $sockdw return 0 } incr i } close $sockdw } proc html { text } { regsub -all "</TD>" $text "" text regsub -all "</FONT>" $text "" text regsub -all " " $text "" text regsub -all "&uuml;" $text "ü" text regsub -all "&ouml;" $text "ö" text regsub -all "&auml;" $text "ä" text regsub -all "&Uuml;" $text "Ü" text regsub -all "&Ouml;" $text "Ö" text regsub -all "&Auml;" $text "Ä" text regsub -all "&szlig;" $text "ß" text regsub -all "&quot;" $text "\"" text regsub -all "<tb>" $text "" text regsub -all "<font" $text "" text regsub -all "size=\"2\"" $text "" text regsub -all "face=\"Verdana,Arial,Helvetica,Geneva\">" $text "" text regsub -all "<br>" $text "" text regsub -all "&nbsp;" $text "" text regsub -all "</font>" $text "" text regsub -all "<td>" $text "" text regsub -all "</td>" $text "" text regsub -all "" $text "" text regsub -all "" $text "" text regsub -all " " $text "" text return $text } putlog "\002DOMAINWHOIS:\002 DomainWhois.tcl 1.2 Loaded." $imdiden t$kLer ..


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 28 Kasım 2008, 16:40   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Elinde Olan Varmı !Dwhois tcL ??




bendede bir bot var ancak ingilizce işine yararsa buyur

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 30 Kasım 2008, 02:30   #3
Çevrimdışı
rX
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Elinde Olan Varmı !Dwhois tcL ??




Tsk Denicem Bi Ara Calısırsa Konu Altına Iletirim

 
Alıntı ile Cevapla

Cevapla

Etiketler
dwhois, elinde, olan, tcl, varmı


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
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
elinde rebar.dll olan varmı? LoRDGuaRD mIRC Scripting Sorunları 1 04 Eylül 2010 00:39