[shock_y0]

Hey
because im registered since 2 years and i never released something i want to do it today. Noting special just only a Ping-Tool that shows your Ping in ms.

Screenshot:



Binary Download: https://mega.co.nz/#!VkVlhBqA!JkQjiWp1KQ...jVLlC34xvA

Binary Virustotal: https://www.virustotal.com/de/file/98866...372360222/

Download Source: https://mega.co.nz/#!810VAZ7Z!Ifd7Y1JxEX...jx1nRxdGfE

Have fun with this small tool.

Thanks for reading

Best Regards
shocK 🤝

Changelog:

Code

28.06.13 v1.1 - Update
- Added History
- Added Copy Function
27.06.13 v1.0 - First Release

[ИYYИ]

Most of us already knew how to do a simple task such as this, but thanks anyways.

[Cody8295]

Source for anybody who doesn't want to download:

Code

Option Strict On

Imports System.Net

Public Class Form1

    Public Property CheckingPing As Boolean = False

#Region "Ping Function"
    Private Function DoPing(ByVal Address As String) As Long
  Dim p As New NetworkInformation.Ping
  Dim r As NetworkInformation.PingReply

  Try
    r = p.Send(Address)
    Return r.RoundtripTime
  Catch ex As Exception
    Return -1
  End Try
    End Function
#End Region

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

  If CheckingPing = False Then
    If Not TextBox1.Text = String.Empty Then
    Timer1.Start()
    Timer1.Enabled = True
    CheckingPing = True
    Button1.Text = "Stop"
    TextBox1.Enabled = False
    Else
    MessageBox.Show("Please Enter a Host!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If
  Else
    Timer1.Stop()
    Timer1.Enabled = False
    CheckingPing = False
    Button1.Text = "Start"
    ToolStripStatusLabel1.Text = "idle..."
    TextBox1.Enabled = True
  End If

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  Dim ms As Long = DoPing(TextBox1.Text)

  If ms >= 0 Then
    ToolStripStatusLabel1.Text = "Ping: " & ms.ToString & "ms"
  Else
    ToolStripStatusLabel1.Text = "Cant connect to """ & TextBox1.Text & """"
    Timer1.Stop()
    Timer1.Enabled = False
    TextBox1.Enabled = True
    CheckingPing = False
    Button1.Text = "Start"
  End If

    End Sub

    Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
  My.Settings.host = TextBox1.Text
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  TextBox1.Text = My.Settings.host
    End Sub

    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
  TextBox1.Focus()
    End Sub
End Class

[shock_y0]

Most of us already knew how to do a simple task such as this, but thanks anyways.

Yeah i know but the most of this only get a return connection yes or no and this give a feedback in ms. ✌

[Lightsout]

is this really necessary? For One Tool? Come on...

[Finearts]

Simple,but thanks for releasing
Might use it for something in the future

[g0d3z]

OP what is that theme you are using?

[shebang]

Although the tool is simple, it's very clean. @g0d3z, I assume he's using something along the lines of a WindowBlinds theme.

[shock_y0]

OP what is that theme you are using?

Its a Windows 7, not a VB theme sorry
i can upload it for you if you need this

edit: https://mega.co.nz/#!lsckWaQJ!IEKHQGMPm3...LZz6hZnvz4

[Trollkarlen]

Very simple but thanks anyway 🤝

[C0RE1337]

Thanks for this useful Release. I hope i ll seen more of you

[shock_y0]

Updated cause i'm bored. take a look at changelog

[assasaha]

Thanks Brother... Nice Coding :)

"Try And Error"

[BladeZ201]

Thanks for the source! and nice theme