Skip to main content

AccessTr.neT


ping atmak

ping atmak

#1
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

@benbendedeilem
Cevapla
#2
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.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
#3
Verilen bilgiler için teşekkürler.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#4
Teşşekürler paylaşım için.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task