LimeSeed Posted August 5, 2008 Share Posted August 5, 2008 (edited) 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 global $warming = true Link to comment Share on other sites More sharing options...
gseller Posted August 5, 2008 Share Posted August 5, 2008 Very Nicely done, simple and effective.. Link to comment Share on other sites More sharing options...
LimeSeed Posted August 29, 2008 Author Share Posted August 29, 2008 Very Nicely done, simple and effective..just like my calculator its tiny though! lol global $warming = true Link to comment Share on other sites More sharing options...
tr1px Posted August 29, 2008 Share Posted August 29, 2008 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? Link to comment Share on other sites More sharing options...
LimeSeed Posted August 29, 2008 Author Share Posted August 29, 2008 (edited) 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 global $warming = true Link to comment Share on other sites More sharing options...
TehWhale Posted August 29, 2008 Share Posted August 29, 2008 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. Link to comment Share on other sites More sharing options...
tr1px Posted September 18, 2008 Share Posted September 18, 2008 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. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now