Arkadaşlar aşağıda vermiş olduğum kodda Sayfa 1 deki A hücresine yazmış olduğunuz IP adreslerine ping cekmektedir ben bunu Textboxa yazdığım IP adresine nasıl ping cektire bilirim .
Private Sub CommandButton1_Click()
For y = 2 To [a65536].End(3).Row
'ip adresleri A kolonunda varsayıldı
'Listbox'a aktarımını sağlayabilirsiniz.
adres = Cells(y, 1)
'10 sayısı adrese gönderilecek Ping sayısıdır
For x = 1 To 1
Shell "command.com /c ping " & adres, 1
Next
Next
End Sub
Private Sub CommandButton1_Click()
For y = 2 To [a65536].End(3).Row
'ip adresleri A kolonunda varsayıldı
'Listbox'a aktarımını sağlayabilirsiniz.
adres = Cells(y, 1)
'10 sayısı adrese gönderilecek Ping sayısıdır
For x = 1 To 1
Shell "command.com /c ping " & adres, 1
Next
Next
End Sub