vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Internet IP herausfinden 
Autor: JennyB
Datum: 02.09.03 18:53
Hallo,

Du musst das Control doch gar nicht einbinden - folgendes funktioniert doch auch: 
    ' INet-Objekt erstellen
    Set hINet = CreateObject("InetCtls.Inet", "")           ' Objekt erstellen
    hINet.RemoteHost = hURL                                 ' URL u.
    hINet.RemotePort = 80                                   ' Port einstellen
    hINet.RequestTimeout = 10                               ' TimeOut setzen 
    ' -> 10 Sekunden
    strIP = "" & hINet.OpenURL(hURL & "\" & hScript)        ' Script aufrufen 
    ' u. Rückgabe in Variable
    DoEvents                                                ' Verarbeitung 
    ' ermöglichen!!!
    Set hINet = Nothing                                     ' Objekt entladen!
    GetIpRemote = Trim$(strIP)                              ' Rückgabewert 
    ' setzen
    Screen.MousePointer = vbDefault                         '
    Exit Function
Für URL und Script musst Du die entsprechenden Angaben einsetzen - z.B. www.panten.org und ip.php3

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Internet IP herausfinden930flashgod02.09.03 00:10
Re: Internet IP herausfinden638devnull02.09.03 09:45
Re: Internet IP herausfinden685E702.09.03 10:38
Re: Internet IP herausfinden609flashgod02.09.03 12:10
Re: Internet IP herausfinden784JennyB02.09.03 18:53
Oder das hier -692JennyB02.09.03 19:43
Re: Oder das hier -611flashgod02.09.03 22:37
Re: Internet IP herausfinden676flashgod03.09.03 00:20

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel