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
Kodlarımız sadece bu kadar.Gayet basit sadece ip adresini öğrenmek istediğiniz url yada site ismini yazıyorsunuz.
İ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.
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
Yorum Gönder