Ping Atma - Baskı Önizleme

Ping Atma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ping Atma (/konu-ping-atma.html)

Sayfalar: 1 2

Cvp: Ping Atma - tamer duran - 29/12/2018

Değerli üyelerimiz sayesinde tasarladığımız form üzerinden istediğim ip numarasına ping ataıyorum ancak Cmd ekranı butona bastıktan sonra açılıyor ve hemen kapanıyor.Çözümü -t ping sürekli komutu ile çözdüm fakat ipconfig/all komutu sonrasında cmd ekranı açılıyor ve saniye sürmeden kapanıyor.Çözümü ne olabilir acaba.

Cvp: Ping Atma - tamer duran - 29/12/2018

En son Haliliyas hocamızın

Kod:

Private Sub Komut1_Click()

 Shell "cmd /C ping " & Me.ip_no

End Sub

kodunu kullanmıştım

Cvp: Ping Atma - berduş - 29/12/2018

(29/12/2018, 16:21)tamer duran yazdı: Shell "cmd /C ping " & Me.ip_no

komutundaki "C" yerine "k" kullanmayı deneyin

Kod:

Shell "cmd /k ping " & Me.ip_no

Cvp: Ping Atma - tamer duran - 29/12/2018

Sağolun -t ping komutu kullanmadan yazdığınız gibi "C" yerine "k" kullandım oldu. İpconfig/all komutu neden çalışmıyor .

Private Sub Komut1_Click()
Shell "cmd /k ipconfig/all "
End Sub

yada

Private Sub Komut1_Click()
Shell "cmd /c ipconfig/all "
End Sub

kodları ile neden formum üzerinden çalıştırdığım komutum ile bilgisayarımın adını , ip numarasını öğrenemiyorum.Cmd neden hemen kapanıyor

Cvp: Ping Atma - berduş - 29/12/2018

Kod:

Set objShell = CreateObject("Wscript.Shell")

objShell.Run ("%comspec% /k ipconfig /all")

yukardaki kodu dener misiniz?

Cvp: Ping Atma - tamer duran - 29/12/2018

Çok sağolun emeğinize , aklınıza sağlık.