Vis min ip (den som ses på nettet)

Du kunne downloade http://www.myip.dk/ og parse filen..
Find stedet hvor der står "Your IP:"
Find det næste mellemrum (" ")
Brug left fra 0 og indtil du støder på "<" tegnet.

Det kræver at du ved hvordan du download en fil fra nettet..

Altså hvad jeg gjorde nu var at jeg henter downloading.dk/ip.php, men jeg syntes ikke den opdateres ordentligt.. Jeg har følgende funktion, men den opdateres ikke rigtigt..

Private Sub cmdStart_Click()

Dim valg As Integer
Dim a As String

If (Dir("C:\Documents and Settings\Bille\Cookies\*.txt*")) <> "" Then
Kill ("C:\Documents and Settings\Bille\Cookies\*.txt*")
End If

wWeb.Navigate cboURLHomePage.Text
 
WebBrowser2.Navigate "http://www.downloading.dk/ip.php"

MsgBox "Sådan.. Måske"

End Sub

Hmm.. nej.. :-)

Du skal *downloade* siden, ikke loade den..

Du skal bruge enten Inet controllen eller Winsock controller..

Inet er nok nemmere for dig.. der skal du download de data filen ip.php består af (hvilket er IP adressen)..

Når du nu har lavet en PHP fil, der udskriver IP adressen, er der ikke meget arbejde i det.. så det er lige til.. :-)

ok... Thanks.. Du har ikke noget kodeværk til hvordan jeg kan downloade den, og gemmen den som en String?

Det er meget simpel..

Smid en Microsoft Internet Transfer Control ind på formen, og kald den "Inet1" (standardnavnet).

Brug denne kode:
dim ip as string
ip = Inet1.OpenURL("http://www.downloading.dk/ip.php", icString)
MsgBox ip

Jeg smider lige et svar.. :-)

En test viser at denne metode kun kan bruges, til små mængder data.

Min test: msgbox len(ip)

Svaret blev 2336 tegn.

IP adressen kan max være 15 tegn: xxx.xxx.xxx.xxx

PS:
Testen blev udført på en almindelige side, og ikke http://www.downloading.dk/ip.php .

Ok, glem min test.. :-)
En anden side gav næsten 25000 tegn.. dvs, ca 25 kb..

Men du har kun brug for max 15 tegn, så den er god nok.. :-)

Hvordan smider jeg sådan en Microsoft Internet Transfer Control ind på formen? Mange tak.. :)

Jeg ved godt at det her spørgsmål er helt udenfor emnet, og burde få sit eget spørgsmål, men nu er du jo lige online, og kan sikkert svare, og har lidt travlt, skal snart aleverer, så mange tak. :) Men jeg har indsat et TextBox, hvordan indstiller jeg den til at man kun kan skrive tal i den?

[Hvordan smider jeg sådan en Microsoft Internet Transfer Control ind på formen?]:
1) Få "Components"-dialogboksen frem (enten via CTRL+T eller menuen Projects > Components)

2) Sæt hak i "Microsoft Internet Transfer Control" og klik på OK

3) Dobbelklik på den nye control i din Toolbar (plejer at være i venstre side af skærmen) eller træk Inet-controllen ud på formen.


[hvordan indstiller jeg den til at man kun kan skrive tal i den]:
Så vidt jeg ved, kan den ikke indstilles til kun at tage imod tal. Man kan dog programmere dens KeyPress/KeyDown/KeyUp, så den afviser visse karakter (nemlig dem der ikke er 0 til 9).. Jeg regner med at lave et eksempel til dig, lige om lidt..

Thanks for hjlæpne, nu virker det sku det med ip'en :) Thanks.. Jeg har læst om det med key press down på en akspertens spørgsmål, så tak med det også :)

Ok, så betragter jeg problemet som løst.. :-)

Takker for points.