Guest User

Untitled

a guest
Jan 23rd, 2019
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.20 KB | None | 0 0
  1. Dim comando, ip, punto As String
  2. punto = "."
  3. ip = TextBox1.Text + punto + TextBox2.Text + punto + TextBox3.Text + punto + TextBox4.Text
  4. comando = "ping " + ip
  5. Shell("cmd.exe /k" & comando)
Add Comment
Please, Sign In to add comment