AccessTr.neT

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

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.

Verilen bilgiler için teşekkürler.

Saygılar...

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

accessman

Yandemir

benremix

DUAYEN