Eli pitäis saada haettua ulkoinen ip osote, koska on routeri vb ohjelmalla tälläisestä osoitteesta kun www.ankka.com/?ip ja haku pitäisi tapahtua internet transfer controllilla. Osaan kyllä hakea html sourcen.
html = i1.OpenURL("www.ankka.com/?ip")
text1.text = html
Mutta miten saan eroteltua sellattiin, että se ottaa vain tuon addressin jälkeen olevan systeemin, eli pelkän ip osoitteen. Olkoon se miten pitkä tai lyhyt vain, meinaan jos otan esim komento rivissä ipconfigin ni tulee vaan verkon sisäinen osoite ja pitäisi saada ulkoinen. Vai onko helpompaa tapaa?
for i = 1 to len(html)
if mid(html, i , 1) = "?" then kohta = i
next
ip = right(html, kohta)paitsi että ei toiminu
ei ni, meni vähän väärin mulla.
otti sen kysmysmerkin mukaan.
ip = Right(html, kohta - 1)
mulla se otti kaiken kaikki tekstit
Tuomas ei tainnut tajuta. Siis ei osoterivistä vaan siitä sisällöstä?
kohta = InStr(html, "Address: ") ip = Mid(html, kohta + 9) '+ 9 koska "Address: " on sen pituinen
Suosittelisin kyllä että jos sulla on sivutilaa jossain missä on vaikka php-tuki niin teet php-skriptin joka näyttää vaan ton niin on helpompi.
Tästä voit lukea IP-numeron helpommin:
http://koti.mbnet.fi/pllk/muut/iipee.php
Sivun taustalla oleva skripti:
<?php echo $REMOTE_ADDR; ?>
Hyi, register_globals! :)
<?php echo $_SERVER['REMOTE_ADDR']; ?>
Joo, ei pitäisi viljellä paheitaan julkisesti. ;)
Aihe on jo aika vanha, joten et voi enää vastata siihen.