Static/Dynamic İP

[Ʌüsal]

Forma 2 ədəd TextBox, 2 ədəd Button və Components bölməsindən Microsoft Winsock Control 6.0 komponentini forma əlavə edin.

 

1. General bölməsinə aşağıdakı kodu daxil edin.

 

Imports System.Net

 

2. Button1-ə klik edin və aşağıdakı kodu yazın.

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = AxWinsock1.LocalIP

    End Sub

 

2. Button2-yə klik edin və aşağıdakı kodu yazın.

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim getip As String = New WebClient().DownloadString("http://automation.whatismyip.com

/n09230945.asp")

        TextBox2.Text = getip

    End Sub

End Class