Code-Beispiel

Bin ich etwa drin?

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	ytwinky	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 ytwinky angelegt.
Die aktuellste Version wurde am 24.07.2007 von ytwinky gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.