var fileID, connection : int
var msg, address, IP : string
var name := "Website's IP's.txt"
put "Enter the address you wish to retrieve their hosts IP address."
get address
if File.Exists (name) then
open : fileID, name, get
loop
exit when eof (fileID)
get : fileID, msg : *
end loop
close : fileID
end if
/********CONNECTION BLOCK******************/
connection := Net.OpenConnection (address, 25)
IP := Net.HostAddressFromName (address)
put address, " = ", IP
/******************************************/
open : fileID, name, put, get, mod
loop
exit when eof (fileID)
get : fileID, msg
if (msg = address) then
locate (2, 1)
put msg
return
end if
end loop
put : fileID, address, " = ", IP
close : fileID
|