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