Ping Uygulaması
Tarih
18/02/2014 01:08
Konu Sahibi
chevy
Yorumlar
3
Okunma
991
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



chevy
Üye
Kullanici Avatari
Üye
30
6
05/09/2011
0
Ankara
Belirtilmemiş
26/11/2014,22:52
Access veri tabanından TextBox a bir IP adresi çekiyorum. Bu IP adresine ping çekip sonuçları yine aynı formda bir TEXTBOX ekranında (CMD ekranında değil) görmek istiyorum. Eğer ping başarılı ise HAT VAR değil ise HAT YOK mesajı yazsın. Tüm işlemler bittiğinde de yeni bir sorgulama yapmak için TEMIZLE ve ping işlemini durdurmak için DURDUR butonu gerekli...

Şu kodlarla işlemi ve mesajları hallettim ancak sonuç ekranı ver durdurma işini CMD olmadan halledemedim.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim IP As String
IP = TextBox4.Text
If My.Computer.Network.Ping(IP) Then
MsgBox("HATTI VARDIR...")
Else
MsgBox("HATTI YOKTUR...")

End If
End Sub

Yardımlarınızı bekliyorum....Şimdiden Teşekkür ederim...
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,02:02
Try
'Google IP numaralarına ping at
Dim internet = My.Computer.Network.Ping("208.67.222.222")

If internet = True Then
MsgBox("internet var")

Else
MsgBox("internet yok")

End If
Catch ex As Exception

MsgBox("internet yok" & Chr(13) & "...")

End Try
Cevapla


chevy
Üye
Kullanici Avatari
Üye
30
6
05/09/2011
0
Ankara
Belirtilmemiş
26/11/2014,22:52
Yukarıdaki gönderdiğim kodlarda bu şekilde çalışıyor. Ping işlemi sırasında TTL ekranlarını yani ping süreleri veya paket kayıpları gibi sonuçlarıda bir TEXT ekranında da (CMD ekranı yani DOS ekranı değil windows formunda) görmek istiyorum.
Cevapla


chevy
Üye
Kullanici Avatari
Üye
30
6
05/09/2011
0
Ankara
Belirtilmemiş
26/11/2014,22:52
İstediğim bu tarz bir uygulama. Ancak bu kodlarda ping atamadığında sorun çıkıyor. Bu kodlarda nasıl bir düzenleme lazım. Yardım edermisiniz lütfen


Ek Dosyalar
.rar   Ping.rar (Dosya Boyutu: 68,89 KB / İndirme Sayısı: 9)
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya