hocam kodları yazdım Forum üzerine gerekli elemanları yerleştirdim fakat çalışmadı hata veriyor hata bendemi yoksa kod damı var?

Ctrl+T veya Projects menüsünden Components seçeneğine tıklıyoruz. Controls sekmesindeki listeden Microsoft Winsock Control 6.0'ı seçiyoruz. Uygula ve Tamam diyoruz. Hepsi bu kadar

bende winsock hata veriyor :S

ne hatası veriyor?

Suk1y3n winsocku bulamadım ben:S:S

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 Winsock. Connect Selected_WhoIs_Server, 43 End Sub Private Sub CLEAR_Button_Click WhoIs_Response = "" End Sub Private Sub Winsock_Connect y If Trim = "" Then WhoIs_Response = " Lütfen Bir Domain ismi Giriniz Örn. Oklumuz. Info." Beep Exit Sub End If Winsock. SendData Trim & vbCrLf End Sub Private Sub Winsock_DataArrival 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