Я пишу простую команду ping в vb.net, используя System.Net.NetworkInformation.PingReply и System.Net.NetworkInformation.PingOptions. Но PingOptions.Ttl всегда показывает 128 в качестве вывода. Ниже приведена часть моего кода:
Dim buffer As Byte() = Encoding.ASCII.GetBytes(data)
Dim Myreply As System.Net.NetworkInformation.PingReply = MyPing.Send("10.99.162.201", 1000, buffer, options)
If Myreply.Status = Net.NetworkInformation.IPStatus.Success Then
PingResult = ("Reply from" & " " & Myreply.Address.ToString & ":" & _
"bytes=" & Myreply.Buffer.Length.ToString & _
" " & "time=" & Myreply.RoundtripTime.ToString & "ms" & " " & "TTL=" & options.Ttl)
ElseIf Myreply.Status = Net.NetworkInformation.IPStatus.TimedOut Then
PingResult = ("Request timed out.")
Else
PingResult = ("Error")
End If
Может ли кто-нибудь помочь мне проверить, чего не хватает, чтобы получить правильный результат? Спасибо.