Om jag har fast uppkopling och vill veta mitt publika ip nr?
För ex FTP

Tacksam för hjälp!

Lägg till en Winsock-kontroll.
Välj sedan:
Winsock1.LocalIp

Det har jag gjort, men blir det de ip nr som är publikt till min dator?
ex: Om jag har en h-sida och en länk till ftp eller filer med sökväg är det det ip nr man får fram då?????

Mellan MinPC & Server ett ip. (192.168.10.1)
Men server och internet?? (212.85.75.10)

Om du har ett nätverk till datorn så brukar det alltid (ofta) bli nätverkets IP om man använder Winsock.LocalIP.
Men är du uppkopplad med tex ett vanlig modem och inte har ett nätverk så går det utmärkt att använda Winsock.LocalIP för att få fram internet IP:n.

OK! Så om jag fattat rätt;
Om jag har ett nätverk med fasta ip och mitt ip nr: 192.168.10.11 så är det sökvägen ifrån internet för att komma åt min dator!?
//192.168.10.11 /mapp (ADSL)

Vänligen tD

Vilken adress som går till din dator utifrån kan du få reda på genom att gå till http://www.tydal.nu/ip.phtml

I princip skulle du ju, fast det är ju inte snyggt, kunna utnyttja winsockkontrollen till att öppna en anslutning på port 80 till www.tydal.nu och sen skicka:
GET http://www.tydal.nu/ip.phtml HTTP/1.0

följt av två enterslag. Sista raden i svaret du får tillbaka då kommer att vara din IP.

Super! Det klara upp en del för mig!
Men för stod inte hur man kommer åt den. (kåd)
?
GET ipVariabel="http://www.tydal.nu/ip.phtml HTTP/1.0 :80" ?
echo.
echo.
Text1.text = ipVariabel
?
Några förslag?

Tacksam för hjälp!

Tror det skall finnas något kommando till server?
Typ: Get
Server_host, Server_addr

ASP variant:
sTr = Request.servervariables("remote_host") ?

för att hämta det publika ip nr?

Är det någon som vet???

Nu kan jag i och för sig inte Visual Basic, men jag har ju dokumentationen eftersom den medföljde Visual C... Så du borde kunna göra nåt sånt här:

(Lägg till en Winsock-kontroll)

Winsock1.RemotePort = 80
Winsock1.RemoteHost = "www.tydal.nu"
Winsock1.Connect
Winsock1.SendData "GET http://www.tydal.nu/ip.phtml HTTP/1.0"
Winsock1.SendData 'Två enter, men det vet jag inte hur man skriver i VB.

Private Sub Winsock1_DataArrival_ (ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString
Text1.Text = Text1.Text & strData
End Sub

Funkar det där bra så får du upp alla rader i textkontrollen Text1 och kan se hur det ser ut. Sen får du ju lagra det i en sträng istället och så bearbeta den på lämpligt sätt så du får ut den sista biten. När jag höll på med Basic för 14 år sen vill jag minnas att det hette RIGHT$ men det kanske har ändrats sen dess.

Coolt!
Skall testa ditt förslag.
Tack!

>Två enter, men det vet jag inte hur man skriver i VB.

Kan det vara:
Winsock1.SendData vbCrLf & vbCrLf
Eller:
Winsock1.SendData vbCrLf
Winsock1.SendData vbCrLf

Ja precis, men syntaxen på den andra koden var svårare?

Det där du skrev lite högre upp "GET ipVariabel="http://www.tydal.nu/ip.phtml HTTP/1.0 :80" räcker nog om du klipper bort HTTP/1.0 :80 och bara tar första delen.

Jag såg nämligen i min logg att nån hade varit inne på servern och försökt hämta just http://www.tydal.nu/ip.phtml HTTP/1.0 :80 :-)

Vad då?

Kanske bör nämna att mina kodsnuttar bara visar hur man skickar två enter(Ascii: 13 & 10).