Textboxdan Ping cekme

[ozmacig]

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

 

[ozmacig]

Problemi çözdüm...

Private Sub CommandButton1_Click()
adres = TextBox1.Text
'10 sayısı adrese gönderilecek Ping sayısıdır
For x = 1 To 1
Shell "command.com /c ping " & adres, 1
Next
End Sub

 

[serqet]

Private Sub CommandButton1_Click()
adres = TextBox1.Value
Shell "command.com /c ping " & adres
End Sub