Pinger

[LimeSeed]

expandcollapse popup

#NoTrayIcon
#include <guiconstants.au3>
#Include <GuiEdit.au3>
#include <WindowsConstants.au3>

guicreate("Ping", 170, 50)
$input = guictrlcreateinput("ip address", 5, 5, 100, 20)
$pingnumber = GuiCtrlCreateInput("1", 110, 5, 55, 20)
$updown = GuiCtrlCreateUpDown($pingnumber)
guictrlsetlimit($updown, 10000, 1)
$ping = guictrlcreatebutton("Ping", 5, 27, 100, 20)
$pinged = 0
$numberoftimespinged = guictrlcreatelabel($pinged, 110, 30, 20, 20)
$he = guictrlcreatebutton("?", 145, 28, 20, 20)
guisetstate(@SW_SHOW)

While 1
 $msg = guigetmsg()
 
 Select
 case($msg = -3)
  Exit
 case ($msg = $he)
  $van = ping("cocks", 200)
  if @error = 0 Then
   msgbox(0, "Ping", "You Are Connected To The Internet")
  Else
   msgbox(0, "Ping", "You Are Not Connected To The Internet")
  EndIf
 case($msg = $ping)
  $adress = guictrlread($input)
  if $adress = "ip address" Then
   msgbox(0, "Ping", "Error!"  & @CRLF & "Please Enter A Real Ip Adress Or Hostname")
  Else
   $pingread = guictrlread($pingnumber)
   for $1 = 0 to $pingread step 1
   $var = ping($adress, 200)
   sleep(3)
   $pinged += 1
   guictrlsetdata($numberoftimespinged, $pinged)
  Next
   $pinged = 0
   guictrlsetdata($numberoftimespinged, $pinged)
   if @error = 1 Then
    msgbox(0, "Ping", "The Host " & $adress & " Is Offline")
   elseif @error = 2 Then
    msgbox(0, "Ping", "The Host " & $adress & " Is Unreachable")
   elseif @error = 3 Then
    msgbox(0, "Ping", "Bad Destination")
   elseif @error = 4 Then
    msgbox(0, "Ping", "The Host " & $adress & " Could Not Be Reached.")
   Elseif @error = 0 Then
    msgbox(0, "Ping", "Reply From " & $adress & " In " & $var & " Milliseconds.")
   EndIf
  
  EndIf
 EndSelect
WEnd

Edited September 21, 2008 by LimeSeed

[gseller]

Very Nicely done, simple and effective..

[LimeSeed]

Very Nicely done, simple and effective..

just like my calculator its tiny though! lol

[tr1px]

Funny the IP that is being pinged at port 10000 has an open VOIP system running that anyone can access.

http://67.87.161.120:10000/

LimeSeed why did you choose that IP?

[LimeSeed]

Funny the IP that is being pinged at port 10000 has an open VOIP system running that anyone can access.

http://67.87.161.120:10000/

LimeSeed why did you choose that IP?

where does it say that? and how did u figure that out?

Edited August 29, 2008 by LimeSeed

[TehWhale]

Funny the IP that is being pinged at port 10000 has an open VOIP system running that anyone can access.

http://67.87.161.120:10000/

LimeSeed why did you choose that IP?

It's in read-only mode. Try to change something. Won't let you.

[tr1px]

LimeSeed thats what I do I figure things out. That's why I got all the honeys. Hackers drive fast cars, get whatever they want and the babes dig our intelligence.