IP Finder And Location VB.NET

IP Finder And Location



Public Class Form1
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            Try

                Dim arreyTag As New ArrayList

                For Each items As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")
                    arreyTag.Add(items.InnerText)
                Next

                Label1.Text = "Your IP address : " & arreyTag(0)
                Label2.Text = "Latitude : " & arreyTag(1)
                Label3.Text = "Longitude : " & arreyTag(2)
                Label4.Text = "Country : " & arreyTag(3)
                Label5.Text = "Region : " & arreyTag(4)
                Label6.Text = "City : " & arreyTag(5)
                Label7.Text = "Organization : " & arreyTag(6)


            Catch ex As Exception

            End Try
        Catch ex As Exception

        End Try
    End Sub
End Class


Comments

Post a Comment

Popular posts from this blog

QR CODE SCANNER (Emgu CV ) VB.NET

Image
QR CODE SCANNER VB.NET Emgu CV Download :  http://www.emgu.com/wiki/index.php/Download_And_Installation Imports Emgu.CV Imports Emgu.CV.UI Imports Emgu.CV.Structure Imports MessagingToolkit.QRCode.Codec Public Class Form1     Dim Reader As QRCodeDecoder     Dim Cap As New Capture     Dim hash As String     Dim access As Boolean = False     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         Reader = New QRCodeDecoder         PictureBox1.Image = Cap.QueryFrame.ToBitmap()         Try             If access = True Then                 hash = Reader.decode(New Data.QRCodeBitmapImage(PictureBox1.Image))                 access = False                 If ...
Read more

Simple Modern Login (Guna UI, Mysql) VB.NET

Image
Simple Modern Login (Guna UI, Mysql) VB.NET FORM 1 Imports MySql.Data.MySqlClient Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         connection()     End Sub     Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click         SignIn()     End Sub     Private Sub GunaButton3_Click(sender As Object, e As EventArgs) Handles GunaButton3.Click     End Sub     Private Sub GunaGoogleSwitch1_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch1.CheckedChanged         Try             If GunaGoogleSwitch1.Checked = True Then                 GunaTextBox2.UseSystemPasswordChar = False                 ...
Read more

Simple Lottery Game (Guna UI) VB.NET

Image
Simple Lottery Game (Guna UI) VB.NET Guna UI Download :  https://gunaframework.com/ FORM 1 Public Class Form2     Dim R1, R2, R3 As New Random     Dim PHP As Double = R1.Next(1, 999)     Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load         Dim formattedValue As String = String.Format("{0:C}", PHP)         Label5.Text = formattedValue     End Sub     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         'Random Generator         Label1.Text = R1.Next(1, 3)     End Sub     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick         'Random Generator         Label2.Text = R2.Next(1, 5)     End Sub     Private Sub Timer3_Tick(sende...
Read more