Måte å finne ut om pcen detter av nettet.

[Stig Jøran]

ER det en kjapp liten kode, som kan finne ut når pcen "detter" av nett?

[930A0029225AA4C28B8EF095B679285EAAE27078]

Bruke winsock til google?

ws.connect "www.google.com",80 og sjekke erroren hele tiden. om "Connection etablated" da er du online.. om error med "Could not connect to host" da er du eller google offline. google har liiite nedetid =)

[Richard87]

kossen "dette" av nettet? ganske enkelt at du ikke har tilgang te feks goggle.com eller e det om du miste konntakt med routeren eller modemet?

[Stig Jøran]

Når det mister kontakten med routern. Eller feks internet.

[Richard87]

ska du sjekka om nettverks kabelen har dotte ut eller routeren/modemet har dotte ut?

[930A0029225AA4C28B8EF095B679285EAAE27078]

trur ikke Richard87 har fortstått, Han vil ha et program som sier "BØØØ DU ER AV" med engang han ikke har tilgang til WWW. på en måte... Ikke noe som forteller om tp kablen er i eller ei,

[Stig Jøran]

trur ikke Richard87 har fortstått, Han vil ha et program som sier "BØØØ DU ER AV" med engang han ikke har tilgang til WWW. på en måte... Ikke noe som forteller om tp kablen er i eller ei,

Nettop. Kunne ikke sagt det bedre selv.

[Richard87]

ok, I get it, ka e problemet med og connecta te google?

[Stig Jøran]

ok, I get it, ka e problemet med og connecta te google?

er ikke noe problem, men vil bare ha et program som sier ifra når jeg har mista internet.

[aadnk]

Du kan, som tidligere benevnt, sjekke tilkoblingen mot www.google.com for å verifisere internettkoblingen, eksempelvis med Ping. Legg inn følgende modul i et tomt prosjekt:

 

http://home.lyse.net/aadnk/Filer/clsPing.cls

 

Dernest legger du inn en Timer med navn tmrCheck, hvor Interval er 10000 (kan eventuelt endres), i en form innenfor samme prosjekt, hvorpå du legger inn følgende kode:

 

Dim WithEvents Ping As clsPing

Private Sub Form_Load()

   Set Ping = New clsPing

End Sub

Private Sub tmrCheck_Timer()

   Ping.Hostname = "www.google.com"
   Ping.SendPing

End Sub

Private Sub Ping_Failure(sError As String)

   MsgBox "Lost contact with " & Ping.Hostname, vbCritical, "Error"

End Sub

Private Sub Ping_TimeOut()

   ' Timeout er en feilmelding likeså alt annet, og indikerer at vi har mistet kontakten med serveren
   Ping_Failure "Time out"

End Sub

Private Sub Ping_Respond(Hostname As String, sIP As String, dRecived As Double)

   Debug.Print "Respond " & Hostname & " (" & sIP & ") : " & dRecived & " ms"

End Sub

Endret 20. mars 2005 av aadnk

[930A0029225AA4C28B8EF095B679285EAAE27078]

Jaja stakkar du her er ei SIMPEL guide.. forstår du ikke denne så henger jeg.. datamusa mi =) sjekk vedlegg.

Simpel_Tilkoblingssjekker.zip