Visual Basic 6 ping

Visual Basic 6 ' da ping atmak nasıl oluyor onu göreceğiz visual basic 'de ping atmak için winsock nesnesini kullanarak yapacağız.
İlk önce formumuza 1 adet winsock nesnesi ekleyeceğiz.Project / components diyoruz ve Microsoft Winsock Control 6.0 bularak işaretliyoruz ve tamam diyoruz.Winsock nesnemizin adı deneme olsun.Daha sonra da formumuza 2 adet label ekliyoruz.Adları da Label1 ve Label 2 olacak.1 adet textbox adı txturl olsun.Son olarak da 1 Adet CommandButton ekliyoruz.
Programımızı aşağıdaki gibi tasarlıyoruz.

Programımızı tasarladıktan sonra sıra geldi kodlarımıza aşağıdaki kodları da form1.frm ' a yapıştırıyoruz
Private Sub Command1_Click()
If txturl.Text = "" Then
MsgBox "Url Adresini Boş Bırakma ", vbInformation, "Uyarı"


End If
deneme.RemoteHost = txturl.Text
deneme.RemotePort = 80
deneme.Connect
End Sub

Private Sub deneme_Connect()
Label2.Caption = "İp Adres " & deneme.RemoteHostIP
End Sub


Private Sub Form_Load()
Label1.Caption = "Url Girin      Örnek:esenyurtluyuz.blospot.com"
txturl.Text = "esenyurtluyuz.blogspot.com"
Command1.Caption = "İp Bul"
Form1.Caption = "Ping"
End Sub


Kodlarımız sadece bu kadar.Gayet basit sadece ip adresini öğrenmek istediğiniz url yada site ismini yazıyorsunuz.

Yorumlar

Bu blogdaki popüler yayınlar

[programsız] Bilgisayarı yeniden başlatma (restart) işleminin zamanını ayarlama

c# List kullanımı