Nice simple internet checker

[Richard Robertson]

Why would it be about checkers?

[Achilles]

Why would it be about checkers?

The title includes: "Internet checker"... So if I had made a typo it could be about checkers..

[tAKTelapis]

According to this. i have no internet connected.

For some odd reason, i do not get a reply from google.com when i ping it (same goes for .com.au ) or if i just ping the IP.

[GERlim3s]

Check my little prog out XD.

It's more a nice GUI but in German srry:)

expandcollapse popup

#Include <GUIconstants.au3>
#Include <XSkin.au3>
#Include <misc.au3>
#Include <_ButtonHover.au3>
$Skin_Folder = @ScriptDir & "\Skins\Carbon"
$XButton_Location = @ScriptDir & "\Buttons\Style_15b"
$XSkinGui =  XSkinGUICreate("Rofl", 301, 177, $Skin_Folder)
$button_1 = _HoverButton("Ping Testen", 85, 54, 110, 37, 0x40e0d0)
$TextBox = GUICtrlCreateInput("",85,111,118,20)
$fr = FileRead("web.txt")
GUICtrlSetData($TextBox,$fr)
$button_2 = _HoverButton("Ciao", 229, 111, 52, 22, 0x40e0d0)
$menu = GUICtrlCreateMenu("Datei")
$item = GUICtrlCreateMenuitem("Adresse Speichern", $menu)
$fontmenu = GUICtrlCreateMenu("Hilfe")
$help = GUICtrlCreateMenuitem("Hilfe", $fontmenu)
$Inf = GUICtrlCreateMenuitem("Info", $fontmenu)


    

;---------Case funktions...-----------------------------------------------------------
GUISetState()


While 1
    
$msg = GUIgetmsg()

    
MouseOver()
_CheckHoverAndPressed($XSkinGui)

select      
    Case $msg = $button_1
        $Page = FileRead("web.txt")
If Ping ($Page,"2000") Then MsgBox(64,"Nice","Du hast eine Verbindung zum Internet.")
If @error <> 0 then MsgBox(16,"error","Entweder du hast kein Internet oder Die seite gibt es nicht !")

Case $msg = $item
    MsgBox(64,"Ping-One","Alte Adresse gelöscht!")
        MsgBox(64,"Ping-One","Neue Adresse wurde geschpeichert!")
If FileExists("web.txt") then FileDelete("web.txt")
        $output=GuiCtrlRead($TextBox)
        FileWrite("web.txt",$output)
        
    Case $msg = $button_2
    exit    



Case $msg = $help
    MsgBox(64,"Ping-One","1.Schreibe eine http Adresse in die Textbox z.b(www.hallo.de)" & @CRLF & "2.Gehe auf Datei ---> Adresse Speichern." & @CRLF & "3.Drücke Ping Testen" & @CRLF & "" & @CRLF & "%%%%Have Fun%%%%%" & @CRLF & "your coder lim3s--->lim3sGER")
Case $msg = $Inf
    MsgBox(64,"Ping-One","This was made------>es wurde Programmiert von" & @CRLF & "------->lim3s" & @CRLF & "---->lim3s" & @CRLF & "------->oder auch" & @CRLF & "---->Guini" & @CRLF & "" & @CRLF & "%%%%Have Fun%%%% XD  noob, boon, flamer , cheater , dü ,dü ,dü ,du%%%%%")

;--------------------Funcs by lim3s------------

Endselect
Wend
Exit

[SmOke_N]

Kind of useless without the graphics isn't it?

[GEOSoft]

Hey I made this 'cause my internet keeps going on and off and I decided to make a program to tell me when it's on or off. I have one question about it though: How could I stop it from saying internet access is disabled when the user is just using all their connection. For example I was downloading a video and opening a couple windows at the same time and it said the internet connection was disabled.

$ping = Ping("www.google.ca")
If $ping > 0 then 
    $internet = True 
    Msgbox(64, "Internet connection active!", "You internet connection is enabled...")
Else 
    $internet = False 
    Msgbox(16, "Internet connection failure!", "You internet connection is disabled...")
EndIf 

While 1 
    $ping = Ping("www.google.ca")
    If $ping = 0 and $internet = True then 
        Msgbox(16, "Internet connection failure!", "You internet connection is disabled...")
        $internet = False 
    ElseIf $ping > 0 and $internet = False Then
        Msgbox(64, "Internet connection active!", "You internet connection is enabled...")
        $internet = True
    EndIf 
    Sleep(1000)
Wend

Simple but useful (at least for me)

Probably would be more reliable if you had 3 or 4 URLs In an array instead of just www.google.ca

Then Loop through the array with Ping

If any of them test good then you have a connection so exit the loop

My reasoning is that a server could just be offline but the odds of all the servers in your array being offline at the same time are mighty slim.

[yidabu]

Check this!!!

$state=-1

While 1
    $Con=_IsCon()
    If $Con<>$state Then
        If $Con=1 Then
            TrayTip("Internet Check","Connected",1,1)
            $state=1
        Else
            TrayTip("Internet Check","Not Connected",1,3)
            $state=0
        EndIf
    Else
    EndIf
WEnd

Func _IsCon()
    Return InetGet("http://www.mozilla.org", @TempDir&"\foo.html",1)
EndFunc

Short, Simple, Works!!!

good! I use this, It's always work fine.