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.
Ping Atma
En son Haliliyas hocamızın
kodunu kullanmıştım
Kod:
Private Sub Komut1_Click()
Shell "cmd /C ping " & Me.ip_no
End Sub
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
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")
Çok sağolun emeğinize , aklınıza sağlık.
Konuyu Okuyanlar: 1 Ziyaretçi
