Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Internet und Netzwerke

Bin ich etwa drin?

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.Redakteurytwinky 24.07.2007

Wie findet ein Programm heraus, ob der Rechner mit dem Internet verbunden ist oder nicht?
Möglichkeiten wären m$ anpingen oder google..
Mit WinInet geht es aber auch anders..

'+------------------------------------------------------------------------------------------+
'|   Header: Bestimmen der Übergabeparameter                                                |
'|           AnzeigeCheck:|Il1 sind Alt-0124, Großes i, kleines L, Eins „ä”öüáߎę֚Üñ±¸©ø°|
Const Author="ActiveConnection.Bas v017f ©2007 by ytwinky, MD"'                             |
'|           (Tastenkombination: keine)                                                     |
'|                                                                                          |
'|   Zweck : Check, if there is an active INet connection                                   |
'+------------------------------------------------------------------------------------------+
'Compile with -s gui
#include "windows.bi"
#include "win\wininet.bi"
Declare Function IsOnline() As Integer
Dim As Integer ThereIsAnActiveConnection=IsOnline()
Dim As String s=!"To find out, how to terminate an active connection\n" _
                !"Just check @ first if there is an active connection..\n" _
                "Active Connection:" &*IIF(ThereIsAnActiveConnection, @"Yes", @"No"), _
              Titel="Nothing to do.."
If ThereIsAnActiveConnection<>0 Then
  s="Now find out, which one's active to terminate it :-))"
  Titel="Go on.."
End If
Messagebox(0, s, Titel, 0)

Function IsOnline() As Integer
  Return InternetGetConnectedState(0, 0)
End Function

Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 24.07.2007 von Redakteurytwinky angelegt.
  • Die aktuellste Version wurde am 24.07.2007 von Redakteurytwinky gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen