Internet Alarm.

Gem denne som chkgoogle.vbs

Option Explicit

Function Ping()
    dim objPing, objRetStatus
    dim strHost
    strHost = "google.dk"
    set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
      ("select * from Win32_PingStatus where address = '" & strHost & "'")
    for each objRetStatus in objPing
        if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then
            Ping = False
        else
            Ping = True
        end if
    next
End Function

Function Beep()
    Dim strSoundFile, objShell, strCommand
    strSoundFile = "%WINDIR%\Media\Windows XP Critical Stop.wav"
    Set objShell = CreateObject("Wscript.Shell")
    strCommand = "sndrec32 /embedding /play /close " & chr(34) & strSoundFile & chr(34)
    objShell.Run strCommand, 0, True
End Function

Do
    if (not Ping()) then
        Beep()
    end if
    WScript.Sleep(30000)
Loop

Når du kører den, så pinger den google.dk hvert 30. sekund. Hvis det ikke lykkes afspiller den en lyd - Hvis du har dansk windows, hedder lyden muligvis noget andet - Tryk Win+R og skriv %WINDIR%\Media og tryk retur, så får du en mappe op - check at der er en fil der hedder Windows XP Critical Stop.wav

Undskyld jeg blander mig, men nu har jeg lige prøvet den og det virker ret godt... men hvordan slår man den fra igen?! :)

heheh du trykker CTRL+SHIFT+ESC for at åbne task manageren, under processes/processer finder du to .exe filer: wscript.exe - bare slå dem ihjel ;)

doh, skulle ikke have været et svar :)

coderdk - det der er præcis hvad jeg skal bruge.

Er der mulighed for måske at lave et lille gui til det? bare en box hvor der er start/sluk alarm - altså, en boks med en enkelt knap, hvis alarmen ikke kører så "start", kører den så "sluk alarm" - og eventuelt kalde det internet alarm ;D

Jeg vil meget gerne smide nogle flere point efter en udvidet løsning. :) - det er folk uden generelt forstand på it, der skal bruge det - og da jeg ikke har en daddel forstand på vb, så er jeg lidt på herrrens mark hvad det angår.

men du skal selvfølgelig have point for dit svar :)

coderdk>>> Takker!!! Nu spiller den ikke mere Snoop Dogg hver gang jeg deaktivere mit netværk!!!!!

Hahahhahahh! Sejt servermann :-D

fjappe, Hmm jeg kan ikke lige lave et gui til den... Jeg kan lave et par scripts mere der kan slukke/tænde og checke om det kører?

Hvis det skal være GUI ville jeg nok lave den i et "rigtigt" programmeringssprog i .NET eller sådan noget...

coderdk - det ville være rigtig fedt med et gui - altså bare helt simpelt. Men hvis du ikke har tid/lyst til at lave det gratis, da jeg jo ikke kan levere nogle kontanter for opgaven, så er de scripts du kan lave også fine :) - er der mulighed for at det bare ligger som en fil? - altså tryk på en fil, enten tænder eller slukker alarmen, alt efter om den kører eller ikke gør. Kan den lige give en besked om hvad den gør også ? ;)