/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
ADSL IP-adresse
Fra : Steen Gellett


Dato : 22-06-01 16:38

Mit problem er at jeg har dynamisk ip-adresse på min netexpress.

Kan jeg få VB5.0 til at vise min IP-adresse udaf til Nettet... ikke den
interne IP ??

Jeg vil lave et lille program som viser min IP adresse udaf på nettet


--
Med venlig hilsen
Steen Gellett
Member of: DanishTeamRC5-64 Calculation - Team ID#:6635
Mailto:Steen.Gellett@post3.tele.dk
Http://home3.inet.tele.dk/sgellett



 
 
Tomas Christiansen (22-06-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 22-06-01 21:43

Steen Gellett skrev:
> Mit problem er at jeg har dynamisk ip-adresse på min netexpress.

Det burde ellers ikke være noget problem!

> Kan jeg få VB5.0 til at vise min IP-adresse udaf til Nettet... ikke den
> interne IP ??

Skal det forstås sådan, at du ikke ønsker at finde din PC's IP-adresse
(findes ret let ved brug af Winsock kontrollen - andre metoder kan også
bruges), men at din router foretager NAT, således at din PC "ser ud til" at
have en ANDEN IP-adresse set fra Internettets side?

Hvis det er tilfældet, er du vel enten nødt til at kontakte routeren (kan
formentlig gøres med Winsock kontrollen) og "spørge" den eller også kan du
kontakte ét eller andet sted på nettet, som opgiver din IP-adresse (det
hænder at visse web-servere vil "oplyse" den slags).

-------
Tomas



Steen Gellett (23-06-2001)
Kommentar
Fra : Steen Gellett


Dato : 23-06-01 00:06

Hvis man vil køre en server uden fast IP, så er det vel et problem ?? Hvordan
skal
folk kunne finde serveren ??????????????


Jeg kan altid kalde min router vha min browser, men nu var det VB50 jeg ville
bruge til det... jeg kender godt winsock men den giver kun min interne IP og
ikke
min externe IP... kan man bruge VB50 til det

PS. Jeg kender godt www.myip.dk som kan give mig min ip adresse !!

Tomas Christiansen skriver:

> Steen Gellett skrev:
> > Mit problem er at jeg har dynamisk ip-adresse på min netexpress.
>
> Det burde ellers ikke være noget problem!
>
> > Kan jeg få VB5.0 til at vise min IP-adresse udaf til Nettet... ikke den
> > interne IP ??
>
> Skal det forstås sådan, at du ikke ønsker at finde din PC's IP-adresse
> (findes ret let ved brug af Winsock kontrollen - andre metoder kan også
> bruges), men at din router foretager NAT, således at din PC "ser ud til" at
> have en ANDEN IP-adresse set fra Internettets side?
>
> Hvis det er tilfældet, er du vel enten nødt til at kontakte routeren (kan
> formentlig gøres med Winsock kontrollen) og "spørge" den eller også kan du
> kontakte ét eller andet sted på nettet, som opgiver din IP-adresse (det
> hænder at visse web-servere vil "oplyse" den slags).
>
> -------
> Tomas

--
Med venlig hilsen
Steen Gellett
Member of: DanishTeamRC5-64 Calculation - Team ID#:6635
Mailto:Steen.Gellett@post3.tele.dk
Http://home3.inet.tele.dk/sgellett



Helge Bjørkhaug (23-06-2001)
Kommentar
Fra : Helge Bjørkhaug


Dato : 23-06-01 01:53

Steen Gellett <steen@gellett.net> skrev i news:3B33CF65.F0E58F4D@gellett.net
> Hvis man vil køre en server uden fast IP, så er det vel et problem ?? Hvordan
> skal
> folk kunne finde serveren ??????????????
>
>
> Jeg kan altid kalde min router vha min browser, men nu var det VB50 jeg ville
> bruge til det... jeg kender godt winsock men den giver kun min interne IP og
> ikke
> min externe IP... kan man bruge VB50 til det
>
> PS. Jeg kender godt www.myip.dk som kan give mig min ip adresse !!
[snip]

Da kan du jo bruke Inet kontrollen til å finne din IP vha www.myip.dk

Dim tmpString As String, tmpArray, tmpIP As String, Ret1, Ret2
Inet1.AccessType = icUseDefault
Inet1.Protocol = icHTTP
tmpString = Inet1.OpenURL("http://www.myip.dk", icString)

While Inet1.StillExecuting
DoEvents
Wend

Ret1 = InStr(tmpString, "<title>Your IP: ")
Ret1 = Ret1 + 16
Ret2 = InStr(tmpString, "</title>")
tmpIP = Mid$(tmpString, Ret1, Ret2 - Ret1)
Text1.Text = tmpIP

--
Snutten

No of SETI units returned: 5166
Processing time: 10 years, 78 days, 20 hours.
(Total hours: 89492)
www.setiathome.ssl.berkeley.edu





Steen Gellett (23-06-2001)
Kommentar
Fra : Steen Gellett


Dato : 23-06-01 11:30

Det virker perfekt... mange tak for godt svar !!

"Helge Bjørkhaug" skriver:

> Steen Gellett <steen@gellett.net> skrev i news:3B33CF65.F0E58F4D@gellett.net
> > Hvis man vil køre en server uden fast IP, så er det vel et problem ?? Hvordan
> > skal
> > folk kunne finde serveren ??????????????
> >
> >
> > Jeg kan altid kalde min router vha min browser, men nu var det VB50 jeg ville
> > bruge til det... jeg kender godt winsock men den giver kun min interne IP og
> > ikke
> > min externe IP... kan man bruge VB50 til det
> >
> > PS. Jeg kender godt www.myip.dk som kan give mig min ip adresse !!
> [snip]
>
> Da kan du jo bruke Inet kontrollen til å finne din IP vha www.myip.dk
>
> Dim tmpString As String, tmpArray, tmpIP As String, Ret1, Ret2
> Inet1.AccessType = icUseDefault
> Inet1.Protocol = icHTTP
> tmpString = Inet1.OpenURL("http://www.myip.dk", icString)
>
> While Inet1.StillExecuting
> DoEvents
> Wend
>
> Ret1 = InStr(tmpString, "<title>Your IP: ")
> Ret1 = Ret1 + 16
> Ret2 = InStr(tmpString, "</title>")
> tmpIP = Mid$(tmpString, Ret1, Ret2 - Ret1)
> Text1.Text = tmpIP
>
> --
> Snutten
>
> No of SETI units returned: 5166
> Processing time: 10 years, 78 days, 20 hours.
> (Total hours: 89492)
> www.setiathome.ssl.berkeley.edu

--
Med venlig hilsen
Steen Gellett
Member of: DanishTeamRC5-64 Calculation - Team ID#:6635
Mailto:Steen.Gellett@post3.tele.dk
Http://home3.inet.tele.dk/sgellett



Chris (23-06-2001)
Kommentar
Fra : Chris


Dato : 23-06-01 12:01

On Fri, 22 Jun 2001 17:37:33 +0200, Steen Gellett <steen@gellett.net>
wrote:

>Mit problem er at jeg har dynamisk ip-adresse på min netexpress.
>
>Kan jeg få VB5.0 til at vise min IP-adresse udaf til Nettet... ikke den
>interne IP ??
>
>Jeg vil lave et lille program som viser min IP adresse udaf på nettet

www.hn.org

Her får du en virtuel DNS server, så du kan være ligeglad med din
externe IP-adresse. DNS serveren opdaterer hver gang, du skifter
IP-adresse. Det er pissenemt

Hygge
Chris Hansen


Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408893
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste