wmaraci reklam

Form1'e İnternet Bağlantısı Kontrol Ettirme :

11 Mesajlar 1.591 Okunma
wmaraci reklam

teknoxix teknoxix Kimlik Onayı Bekliyor Banlı Kullanıcı
  • Üyelik 26.04.2016
  • Yaş/Cinsiyet 31 / E
  • Meslek Öğrenci
  • Konum Adana
  • Ad Soyad A** E**
  • Mesajlar 141
  • Beğeniler 13 / 22
  • Ticaret 5, (%80)
Arkadaşlar Sayenizde Projemin Sonuna Geldim Sayılır Yardım Eden Arkadaşlarımdan Allah Razı Olsun .

Son Olarak Projemde bana şu gerekiyor :

-Formum kullancının internet bağlantısı olmadan açılmasın yani internet bağlantısı olmayanlar form1.exe ye girmeye çalıştığında "İnternet bağlantınızı Kontrol Edip tekrar deneyin" diye bir uyarı almasını istiyorum .

-Ayrıca internet bağlantısı olupta forma girenlerinde internet bağlatısı kesildiği an hata alıp formu otomatik kapatacak bir koda ihtiyacım var .

Yardımlarını esirgemiyecek arkadaşlara şimdiden teşekkür ediyorum . İyi ki varsınız .
 

 

SMM Panel, Sosyalyuvam, Bayilik Paneli, En Uygun Panel, Takipçi Paneli
reklam

47003 47003 WM Aracı Anonim Üyelik
  • Üyelik 12.03.2015
  • Yaş/Cinsiyet - /
  • Meslek
  • Konum
  • Ad Soyad ** **
  • Mesajlar 576
  • Beğeniler 46 / 205
  • Ticaret 16, (%100)
If My.Computer.Network.IsAvailable Then
MsgBox("Computer is connected.")
Else
MsgBox("Computer is not connected.")
End If


Dene bi istersen
 

 

teknoxix teknoxix Kimlik Onayı Bekliyor Banlı Kullanıcı
  • Üyelik 26.04.2016
  • Yaş/Cinsiyet 31 / E
  • Meslek Öğrenci
  • Konum Adana
  • Ad Soyad A** E**
  • Mesajlar 141
  • Beğeniler 13 / 22
  • Ticaret 5, (%80)
@Winston kardeşim dediğini yaptım bağlantı olmayınca hata veriyor ama form yinede açılıyor ben bağlantı yokken açılmamasını istiyorum :)

Ek Olarak: Arkadaşlar aklıma bi fikir geldi ama nasıl uygulayacağımı bilmiyorum form 1 ile googleye sürekli ping attırabileceğim ping atılmadığı zamanlarda da try cath ile hata verdirip programı kapattıracağım bir kod lazım üretebilen olur mu .
 

 

NETEOR NETEOR neteor.com.tr Kullanıcı
  • Üyelik 30.01.2013
  • Yaş/Cinsiyet 27 / E
  • Meslek Yazılımcı
  • Konum Ankara
  • Ad Soyad A** D**
  • Mesajlar 1103
  • Beğeniler 630 / 380
  • Ticaret 14, (%100)
arkada interval ayarı 1000 ms'de çalışan bir timer çalışsın,

If My.Computer.Network.IsAvailable Then
//internet bağlantısı varken gerçekleşecek olaylar
Else
//internet bağlantısı yokken gerçekleşecek olaylar
End()
End If


If My.Computer.Network.Ping("8.8.8.8") Then
//google'a ping başarılı
Else
//google'a ping başarısız, yanıt gelmedi
End()
End If
 

 

wmaraci

teknoxix teknoxix Kimlik Onayı Bekliyor Banlı Kullanıcı
  • Üyelik 26.04.2016
  • Yaş/Cinsiyet 31 / E
  • Meslek Öğrenci
  • Konum Adana
  • Ad Soyad A** E**
  • Mesajlar 141
  • Beğeniler 13 / 22
  • Ticaret 5, (%80)
Hocam kodlar hatalı gözüküyor

http://s32.postimg.org/n40dbm7ol/timer.png

Ek Olarak:

D3M1R adlı üyeden alıntı

arkada interval ayarı 1000 ms'de çalışan bir timer çalışsın,

If My.Computer.Network.IsAvailable Then
//internet bağlantısı varken gerçekleşecek olaylar
Else
//internet bağlantısı yokken gerçekleşecek olaylar
End()
End If


If My.Computer.Network.Ping("8.8.8.8") Then
//google'a ping başarılı
Else
//google'a ping başarısız, yanıt gelmedi
End()
End If
 

 

NETEOR NETEOR neteor.com.tr Kullanıcı
  • Üyelik 30.01.2013
  • Yaş/Cinsiyet 27 / E
  • Meslek Yazılımcı
  • Konum Ankara
  • Ad Soyad A** D**
  • Mesajlar 1103
  • Beğeniler 630 / 380
  • Ticaret 14, (%100)
() kısımlarını silin, sadece End olsun.

en son 1,5 yıl önce vb.net kullandığımı ve bu kodları elle yazıp denemediğimi varsayarsak sıkıntı yok gibi. :D
teknoxix

kişi bu mesajı beğendi.

teknoxix teknoxix Kimlik Onayı Bekliyor Banlı Kullanıcı
  • Üyelik 26.04.2016
  • Yaş/Cinsiyet 31 / E
  • Meslek Öğrenci
  • Konum Adana
  • Ad Soyad A** E**
  • Mesajlar 141
  • Beğeniler 13 / 22
  • Ticaret 5, (%80)
Vallahi sağolun end ler düzeldi fakat yazıların yazdığı yerde ki slash lardan kaynaklı bir hata var zannediyorum olmuyor malesef :)
 

 

NETEOR NETEOR neteor.com.tr Kullanıcı
  • Üyelik 30.01.2013
  • Yaş/Cinsiyet 27 / E
  • Meslek Yazılımcı
  • Konum Ankara
  • Ad Soyad A** D**
  • Mesajlar 1103
  • Beğeniler 630 / 380
  • Ticaret 14, (%100)
php'den gelen alışkanlık :D yorumları silin hocam, şöyle olsun yorum ekliyosanızda;

' yorum...
teknoxix

kişi bu mesajı beğendi.

teknoxix teknoxix Kimlik Onayı Bekliyor Banlı Kullanıcı
  • Üyelik 26.04.2016
  • Yaş/Cinsiyet 31 / E
  • Meslek Öğrenci
  • Konum Adana
  • Ad Soyad A** E**
  • Mesajlar 141
  • Beğeniler 13 / 22
  • Ticaret 5, (%80)
vallahi oldu Hocam çok teşekkür ederim Allah Sizden Razı Olsun bitirdim elinize sağlık :) :)

edit: İnternet bağlantısı yokken form hiç açılmıyor buda işime yarar ama bide bağlantınız yokken formu açamazsınız diye bi uyarı gönderebilseydik süper olacaktı :)
 

 

sabitkara sabitkara WM Aracı Kullanıcı
  • Üyelik 01.10.2016
  • Yaş/Cinsiyet 24 / E
  • Meslek öğrenci
  • Konum Hatay
  • Ad Soyad S** K**
  • Mesajlar 10
  • Beğeniler 1 / 2
  • Ticaret 0, (%0)
If My.Computer.Network.IsAvailable Then
MsgBox("Bağlantı başarılı.")
Else
MsgBox("İnternet bağlantınızı kontrol ediniz!")
Form1.Close
End If

Biraz geç oldu ama böyle olucak sanırım
 

 

wmaraci
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al