14/08/09 12:42
VB.NET_Program_91
Postato originariamente da maxas:
e inceve cosi no
e inceve cosi no
Imports System.Net Imports System.Net.Sockets Public Class Ipsito Private Sub Ipsito_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim hostentrata As IPHostEntry Dim IPentrata As IPAddress() Dim i As Integer Me.Text = Form1.Text Try hostentrata = Dns.GetHostEntry(Form1.indirizzo.Text) IPentrata = hostentrata.AddressList For i = 0 To IPentrata.Length - 1 TextBox1.Text = (IPentrata(i).ToString) Next Catch ex As SocketException MsgBox(ex.StackTrace.ToString) End Try End Sub End Class
Basta inserire un controllo button e si risolve tutto
In questo modo:
Imports System.Net Imports System.Net.Sockets Public Class Ipsito Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim hostentrata As IPHostEntry Dim IPentrata As IPAddress() Dim i As Integer Me.Text = Me.Text Try hostentrata = Dns.GetHostEntry(TextBox2.Text) IPentrata = hostentrata.AddressList For i = 0 To IPentrata.Length - 1 TextBox1.Text = (IPentrata(i).ToString) Next Catch ex As SocketException MsgBox(ex.StackTrace.ToString) End Try End Sub End Class
Spero ti sia stato d' aiuto
Ultima modifica effettuata da VB.NET_Program_91 14/08/09 12:43
aaa