DNS query: Difference between revisions
Content added Content deleted
(DNS query in FreeBASIC) |
|||
Line 1,031: | Line 1,031: | ||
2001:200:dff:fff1:216:3eff:feb1:44d7 |
2001:200:dff:fff1:216:3eff:feb1:44d7 |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
|||
<syntaxhighlight lang="vb">#include "win\winsock2.bi" |
|||
Function GetSiteAddress(stuff As String = "www.freebasic.net") As Long |
|||
Dim As WSADATA _wsadate |
|||
Dim As in_addr addr |
|||
Dim As hostent Ptr res |
|||
Dim As Integer i = 0 |
|||
WSAStartup(MAKEWORD(2,2),@_wsadate) |
|||
res = gethostbyname(stuff) |
|||
If res Then |
|||
Print !"\nURL: "; stuff |
|||
While (res->h_addr_list[i] <> 0) |
|||
addr.s_addr = *(Cast (Ulong Ptr,res->h_addr_list[i])) |
|||
Print "IPv4 address: ";*inet_ntoa(addr) |
|||
i+=1 |
|||
Wend |
|||
WSACleanup() |
|||
Return 1 |
|||
Else |
|||
Print "website error?" |
|||
Return 0 |
|||
End If |
|||
End Function |
|||
GetSiteAddress "rosettacode.org" |
|||
GetSiteAddress "www.kame.net" |
|||
Sleep</syntaxhighlight> |
|||
{{out}} |
|||
<pre>URL: rosettacode.org |
|||
IPv4 address: 108.175.15.182 |
|||
IPv4 address: 74.208.203.152 |
|||
URL: www.kame.net |
|||
IPv4 address: 210.155.141.200</pre> |
|||
=={{header|Frink}}== |
=={{header|Frink}}== |