webmaster
 
Konu Kilitli
24-12-2007 11:55:54
 

Domain Sorgulama

Domain Sorgulama Sizlere domain sorgulama nın mantığını anlatmaya çalışacağım. yani bir nevi kodlarını vericem

iki command oluşturuyoruz forumda
2 tane textbox
1 tane winsock
1 tane comboBox
sonra altaki kodları yerleştirin


Private Sub Form_Load()
With WhoIs_Server
.AddItem " whois.opensrs.net "
.AddItem " whois.networksolutions.com "
.AddItem " whois.nic.gov "
.AddItem " rs.internic.net "
.AddItem " whois.ripe.net "
.AddItem " whois.arin.net "
.AddItem " whois.apnic.net "
.AddItem " whois.aunic.net "
.ListIndex = 0
End With

End Sub
Private Sub mnCikis_Click()
End
End Sub
Private Sub mnHakkinda_Click()
frmhakkinda.Show
End Sub
' ************************************************** *********
Private Sub Send_Query_Button1_Click()
Dim Selected_WhoIs_Server As String
Input_Label.Caption = ""
WhoIs_Response = ""

Winsock.Close
Winsock.LocalPort = 0

Selected_WhoIs_Server = Trim(WhoIs_Server.Text)

Winsock.Connect Selected_WhoIs_Server, 43
End Sub
Private Sub CLEAR_Button_Click()

WhoIs_Response = ""

End Sub

Private Sub Winsock_Connect()
y
If Trim(Domain_Name) = "" Then
WhoIs_Response = " Lütfen Bir Domain ismi Giriniz Örn. Oklumuz.Info."
Beep
Exit Sub
End If

Winsock.SendData Trim(Domain_Name) & vbCrLf

End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)

Dim WhoIs_Data As String

On Error GoTo ERROR_HANDLER '

Winsock.GetData WhoIs_Data
Input_Label.Caption = Input_Label.Caption & WhoIs_Data
WhoIs_Response = Input_Label.Caption
Exit Sub

ERROR_HANDLER:
WhoIs_Response = Error
End Sub

Bir önceki yazı Baş Harfler Otomatik Büyüsün hakkında bilgi vermektedir.

Konu Kilitli

"Domain Sorgulama" konusu hakkında etiketler
adi alan asp domain internic kodu mantigi mantigini soegulama sorgulama

Baş Harfler Otomatik Büyüsün Önceki | Sonraki URL ( Link Ekleme )




Saat: 21:24 - Webmaster Forumu - Rss - Arşiv
İletişim Bilgileri, Contact Us, Kullanım Sözleşmesi, Gizlilik