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

Runaway1 · 30 Mayıs 2005, 18:30

Arkadaslar domain sorgulama tclsi lazIm ....

08 Haziran 2005, 11:06

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bu adrese bak beğenirsen haber ver

CrAzY_BoY · 08 Haziran 2005, 21:33

ortağmdan utanıorum adam ne dio bu ne teklif edio bu velehmet benim arkadaşım deil tanımıom onu :p

09 Haziran 2005, 11:31

CrAzY_BoY Nickli Üyeden Alıntı

ortağmdan utanıorum adam ne dio bu ne teklif edio bu velehmet benim arkadaşım deil tanımıom onu :p

uyuss
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adam ın aradığı şey işte o içtinmi naptın ???

Regor · 13 Haziran 2005, 10:23

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

########################################## 
### DomainWhois.tcl ### 
### Sürüm 1.2 ### 
### By eScaPe ### 
### 
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...] ### 
### ### 
########################################## 
 
############################################################################ 
### Copyright © 2000 - 2001 Turkçeye Çevirmeye Çalıştım İnş. YararLı OLur.## 
############################################################################ 
 
############################################################################# 
## This script connects to the Network Solutions whois server and displays ## 
## the registration information for a domain name. You can also set your ## 
## own whois server to connect to. ## 
############################################################################# 
 
############### 
##KullanıLışı## 
################################################### 
## ## .dwhois <domainADI> (Com|NET|ORG vs vs..) ## 
######### ## 
######### information for a domain. ## 
################################################### 
 
############################################ 
######KodLama ßaşlıyor Elleme Yapma! ####### 
############################################ 
 
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 Sürüm 1.2 by eScaPe TCL Yüklendi!."

DoStNaMe · 13 Haziran 2005, 10:44

Her yerde var domain sorugus [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] vardır bilmiyom ama tam

13 Haziran 2005, 12:11

en güzeli verdiğim adresde giin bakın beğenmezseniz tamam ama o tcl yi almak için bayilipiinz gerekior vede domain kayıt işi cok yaptıranlara şiddetle öneririm

CrAzY_BoY · 13 Haziran 2005, 13:00

velehmet konuşma bari adamlar ne dio sen ne dion manyak mısın sen yafs ????

Runaway1 · 19 Haziran 2005, 21:34

ilgi ve alakanızdan dolayı tşk ederim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
📢 2 JENERİK Domain 👉 .NET Uzantılı 🔔 Harika Premium Domain	PauL	Com & Net & Org Uzantılı Domain Satışları	6	07 Haziran 2023 15:20
.COM.TR Domain Künyesi Domain Bilgisi, Künye ve Teknik Özellikler...	İpek-	Domain	4	21 Şubat 2023 22:57
Bu Domain KAÇMAZ! Projelik Kaliteli Domain Satışta	PauL	Com & Net & Org Uzantılı Domain Satışları	2	23 Ağustos 2020 20:07

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.