Задача нужно переслать файл с одного компьютера на другой через Интернет, используя IP адрес и расшаренный ресурс. В принципе я нашел ответ на этот вопрос, но мне сказали что для этой цели нужно использовать внешний IP адрес. Вопрос что это такое, как его узнать, чем отличается от не внешнего (если отличатся). У меня комп в локальной сети, через неё соединяюсь с internet. Свой IP получаю так
Private Sub Get_IP()
Dim Ret As Long
Dim Tel As Long
Dim bBytes() As Byte
Dim Listing As MIB_IPADDRTABLE
On Error GoTo END1
GetIpAddrTable ByVal 0&, Ret, True
If Ret <= 0 Then Exit Sub
ReDim bBytes(0 To Ret - 1) As Byte
GetIpAddrTable bBytes(0), Ret, False
CopyMemory Listing.dEntrys, bBytes(0), 4
CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
opbtIp.Tag = ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr)
Exit Sub
END1:
MsgBox "Не удалось получить IP адрес! Возможно, ваш компьютер не подключен к сети! Отправка сообщения не возможна!" & Chr(10) & Err.Description, vbCritical, "Внимание!"
opbtIp.Enabled = False
cmdSend.Enabled = False
End Sub
Является ли IP адрес полученный таким способом внешним или нет?
Ответить
|