AccessTr.neT

Tam Versiyon: Ping Atma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Merhaba iyi akşamlar.Hazırladığım tablomda kayıtlı güvenlik kameralarından formda,  yön tuşları ile yada sorgu neticesi ekrana getirdiğim kamera ip adresine buton yardımı ile ping atmak istiyorum.İncelendiğinde görüleceği üzere tek butona tek ip yazarsam sonuç alıyorum ama 500-600 kamera için çok yer lazım. Bu konuda bana yardım ederseniz sevinirim. İlginiz için şimdiden teşekkür ederim.
komut satırına aşağıdaki kodu yazar mısınız?
Private Sub Komut1_Click()
Me.Recordset.MoveLast
Me.Recordset.MoveFirst
For kayitsay = 1 To Me.Recordset.RecordCount
Shell "cmd /C ping " & Me.ip_no
Me.Recordset.MoveNext
Next
End Sub
Teşekkür ederim .Ancak kodu uyguladığımda kayıtlı her iki ip adresine de ping atıyor. Sadece form ekranında görünen kaydın ip adresine ping atamazmı.
pardon ben hepsine otomatik atmasını istediğinizi sandım kodu aşağıdaki ile değiştirin
Private Sub Komut1_Click()
Shell "cmd /C ping " & Me.ip_no
End Sub
Çok teşekkür ederim çalıştı. Sağolun emin olun çok işime yaradı.
Önemli değil)
iyi çalışmalar
Sayfalar: 1 2