s.a aradaslar simdi winsock nesnesini kullarak domain namelerden sitelerin ip adreslerini bulacağiz.visual basic te

standart exe yi sectikten sonra projeye components den "Microsoft Winsock Control 6.0" ı ilave edin.form a 2 adet

textbox 1 adet buton ve winsock u ekleyin

'simdi forumun load kismina text1 in baglanti kurulacak adres cubugu
' olarak kullanildigğini belirtiyoruz,
'daha sonra text2 bosaltip ; comand1 in bağlanti kurdugunu gosterdik.

Sub form_load()
Form1.Caption = "Vbasic İpuclari"
Command1.Caption = "Bağlan"
Text2 = ""
Text1 = "www.frmtr.com"
End Sub

'daha sonra command1 in click yordamina winsock nesnesinin bağlanti
' kurmasi gereken adresin text1 de oldugunu belirtik.
Sub command1_click()
Winsock1.Connect Text1.Text, 80
End Sub

've simdi winsock nesnesinin bağlanti kurmasi durumunda yapmasi gerekeni yaziyoruz.
' yani winsock server a baglanti kurmasi durumunda text2 ye bağlanti kurdugu server
' ipsini yazdiriyor.ve winsock u kapatiyor.
Sub winsock1_connect()
Text2.Text = Winsock1.remotehostip
Winsock1.Close
End Sub

've son olarakta winsock un hata vermesi durumunda, yapmasi gereken
'işlemleri 'yaziyoruz,hatayi bildirmesini ve winsock u kapatmasi.
Sub winsock1_error(ByVal number As Integer, description As String, ByVal scode As Long, ByVal source As String, ByVal helpfile As String, ByVal helpcontext As Long, canceldisplay As Boolean)
MsgBox "Hata Oluştu Tekrar Deneyiniz", vbInformation, "hata durumu"
Winsock1.Close
End Sub

'bunu geliştirmek sizin elinizde ama son olarkata bunlari loglamak isteyenlere bir ip ucu verim
'bir adet command buton daha ekleyip click yordamina

Sub command2_click()
Dim yol
yol = FreeFile
Open "c:" & Text1 & ".txt" For Output As #yol
Print #yol, "Server İsmi :" & Text1
Print #yol, "Server İpsi :" & Text2
Close
End Sub '

not alıntıdır
__________________