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.
En son Haliliyas hocamızın
Kod:
Private Sub Komut1_Click()
Shell "cmd /C ping " & Me.ip_no
End Sub
kodunu kullanmıştım
(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
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
Kod:
Set objShell = CreateObject("Wscript.Shell")
objShell.Run ("%comspec% /k ipconfig /all")
yukardaki kodu dener misiniz?
Çok sağolun emeğinize , aklınıza sağlık.