ping atmak - Baskı Önizleme

ping atmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: ping atmak (/konu-ping-atmak.html)

ping atmak - accessman - 16/04/2012

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

Cvp: ping atmak - Yandemir - 16/04/2012

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.

Cvp: ping atmak - benremix - 16/04/2012

Verilen bilgiler için teşekkürler.

Saygılar...

Cvp: ping atmak - DUAYEN - 16/04/2012

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