- <%@ Import Namespace="System" %>
- <%@ Import Namespace="System.Net" %>
- <%@ Import Namespace="System.Net.Sockets" %>
- <script language="vb" runat="server">
- Sub RecupLeIp(sender As Object, e As System.EventArgs)
- Dim i as Integer
- If Page.IsPostBack then
- Try
- Dim LeDomaine As IPHostEntry
- LeDomaine = Dns.GetHostByName(txtDuDomain.Text)
- lblAffiche.Text = "IP de ""<i>" & txtDuDomain.Text & "</i>"": <b>" & LeDomaine.AddressList(0).toString & "</b>"
- Catch
- lblAffiche.Text = "Je ne trouve pas l'hôte"
- End Try
- End If
- End Sub
- </script>
- <html>
- <body>
- <font face="verdana" size="1">
- <form runat="server" ID="MonForm">
- Tapez le nom de domaine pour lequel vous cherchez l'ip :<br>
- <asp:textbox id="txtDuDomain" text="www.yahoo.fr" runat="server" />
- <asp:button id="submit" onClick="RecupLeIp" text="Récupérer l'ip" runat="server" />
- <br>
- <font size="2"><asp:label id="lblAffiche" text="" runat="server" /></font>
- </form>
- </font>
- </body>
- </html>
-
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.Net.Sockets" %>
<script language="vb" runat="server">
Sub RecupLeIp(sender As Object, e As System.EventArgs)
Dim i as Integer
If Page.IsPostBack then
Try
Dim LeDomaine As IPHostEntry
LeDomaine = Dns.GetHostByName(txtDuDomain.Text)
lblAffiche.Text = "IP de ""<i>" & txtDuDomain.Text & "</i>"": <b>" & LeDomaine.AddressList(0).toString & "</b>"
Catch
lblAffiche.Text = "Je ne trouve pas l'hôte"
End Try
End If
End Sub
</script>
<html>
<body>
<font face="verdana" size="1">
<form runat="server" ID="MonForm">
Tapez le nom de domaine pour lequel vous cherchez l'ip :<br>
<asp:textbox id="txtDuDomain" text="www.yahoo.fr" runat="server" />
<asp:button id="submit" onClick="RecupLeIp" text="Récupérer l'ip" runat="server" />
<br>
<font size="2"><asp:label id="lblAffiche" text="" runat="server" /></font>
</form>
</font>
</body>
</html>