[الطالب]

سلام

جرب هذا الكود

كود :

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

Private Function IPCountry() As String
    On Error Resume Next
    Dim src As String = New Net.WebClient().DownloadString("http://www.ipinfodb.com/")
    Return System.Text.RegularExpressions.Regex.Match(src, "(?<=Country :).+?(?=<)").Value.Trim
End Function

موفقين