AccessTr.neTMicrosoft AccessAccess Örnekleri ve Uygulamaları

ping atmak

16/04/2012, 10:40

accessman

Kod:
Sub Test()
    Shell "cmd /C" & "ping www.msdn.com"
End Sub
Sub Test2()
    Shell "cmd /C" & "ping 207.46.130.108"
End Sub
Sub Test3()
    Shell "command.com /c ping www.msdn.com", 1
End Sub
Sub Test4()
    Shell "command.com /c ping 207.46.130.108", 1
End Sub
Private Sub CommandButton1_Click()
    Shell "command.com /c ping " & TextBox1.Text, 1
End Sub
16/04/2012, 17:07

Yandemir

bu konu hakkında ek olarak şunuda belirtmek gerekli
Sub Test()

 Shell "cmd /C" & "ping www.msdn.com"

End Sub
kodunu 
Sub Test()

 Shell "cmd /C" & "ping www.msdn.com > d:\testnetice.txt"

End Sub
şeklinde yaparsanız d:\testnetice.txt şeklinde bir text dosyasına kayıt atar. yok ise içeriğine bakmadan siler ve dosyayı bu isimle yaratır.
Sub Test()

 Shell "cmd /C" & "ping www.msdn.com >> d:\testnetice.txt"

End Sub
şeklinde kullanırsanız eski dosyanın içine ilave eder eski bilgileri silmez. yok ise dosyayı yaratır.
16/04/2012, 19:04

benremix

Verilen bilgiler için teşekkürler.

Saygılar...
16/04/2012, 21:16

DUAYEN

Teşşekürler paylaşım için.