[rfpd]

Picture: [img]http://s3.postimage.org/x6d9rr369/Sem_T_tulo.png[/img]

Download Link: https://anonfiles[WARNING POSSIBLY INFEC...1e16f969c7

Virus scan:https://www.virustotal.com/file/45813c28...360437607/

There is one false positive :s

Please give me your's suggestions so I can upgrade this, hope you like it :)

EDIT: That IP it's not mine or anyone I know it's just some random ip I picked up to show you this!

SOURCE:

Code

Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions

Class tracer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Try
    Dim Request As HttpWebRequest = DirectCast(WebRequest.Create("http://www.geobytes.com/IpLocator.htm?GetLocation&IpAddress=" & TextBox1.Text), HttpWebRequest)
    Dim Response As HttpWebResponse = Request.GetResponse()
    Dim RespStream As Stream = Response.GetResponseStream()
    Dim Reader As New StreamReader(RespStream)
    sr = Reader.ReadToEnd()

    GeoIP()

  Catch ex As Exception

  End Try
    End Sub

    Dim sr As String
    Public Function GetInfoBetween(ByVal TheContents As String, ByVal Start As String, ByVal EndOfTheString As String)
  Return New Regex(Start & "(.+?)" & EndOfTheString).Match(TheContents).Groups(1).Value.ToString()
    End Function

    Public Sub GeoIP()

  Dim Latitude As String = GetInfoBetween(sr, "ro-no_bots_pls10" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
  Dim Longitude As String = GetInfoBetween(sr, "ro-no_bots_pls19" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
  Dim Country As String = GetInfoBetween(sr, "ro-no_bots_pls13" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
  Dim Region As String = GetInfoBetween(sr, "ro-no_bots_pls15" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
  Dim City As String = GetInfoBetween(sr, "ro-no_bots_pls17" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")
  Dim TimeZone As String = GetInfoBetween(sr, "ro-no_bots_pls9" & Chr(34) & " value=" & Chr(34), Chr(34) & " size=")

  TextBox2.Text = Country
  TextBox3.Text = Region
  TextBox4.Text = City
  TextBox5.Text = TimeZone
  WebBrowser1.Navigate("http://maps.google.com/maps?q=" + Latitude + " " + Longitude)
    End Sub
End Class

Please change thread name to source, if you want the source here it is, thanks a lot for being so "nice" lol..

[tweety]

This is horrible. It's using a web browser as well. I recommend you don't even bother downloading this. No source given either.

EDIT: This isn't even bloody multi threaded, and it's just.. Stop..

[ʟᴇɢɪᴏɴ]

I dont like this IP tracer. Sorry for that, it's terrible 🤮

[rfpd]

---

This is horrible. It's using a web browser as well. I recommend you don't even bother downloading this. No source given either.

EDIT: This isn't even bloody multi threaded, and it's just.. Stop..

The source is already there I'm sorry but can you tell me why it's terrible and how can I improve it? Thanks in advance!

[SIM-590811]

I dont like this IP tracer. Sorry for that, it's terrible 🤮

Are you just saying that because there's a uber that said it's bad? What proof do you have that makes it's "terrible"

I don't understand why people can't release something without people saying it's terrible or some rude comment..

Keep coding mate, look at some tutorials on some other programs that aren't being overly coded. I've seen like 100 of these things in the past month. :)

[Yui Asuna]

It's not "bad", because code's still code, but it's definitly not the best way to do something like this.
I agree that we should (Including me) be less rude when commenting.

[rfpd]

Thanks a lot guys I will do my best next time ;)

[Yui Asuna]

Check out WebRequest (It's about the seventh time I say it today) and RegEx/Split (RegEx is more efficient when it's come to HTML).

[rfpd]

Check out WebRequest (It's about the seventh time I say it today) and RegEx/Split (RegEx is more efficient when it's come to HTML).

I will do it and I will release the source code thanks a lot!

[TrackPro+]

This is horrible. It's using a web browser as well. I recommend you don't even bother downloading this. No source given either.

EDIT: This isn't even bloody multi threaded, and it's just.. Stop..

Well help him out & give him some tips, like the people above me did? 🤝

[lillix]

Why did you use a browser? Yuch. Just use a web request to get the information from geobytes and output the IP's information, that is a lot more time efficient, and will require less memory than using a web browser.

[Spadassin150]

Don't pay attention to those shitty (Negative) comments, i saw many of their post they are all the same, thinking they're to cool to help. Anyway you did a good job and as the other guys said you only need to use Web-Request instead of Web-browse, why? because its fast (really fast) and use RegEx or Split in order to extract the specific string that you need.
Good luck bro, pm if you need any help!

[zombiehacker]

Did you create a gui interface in visual basic, to track an ip address?

[rfpd]

Did you create a gui interface in visual basic, to track an ip address?

Nop it's easy the iptracer gives me region, city, timezone, country, latitude and longitude then with the webbrowser I search for the latitude and longitude in google maps.

Q: With webrequest can I stil use google maps? Thanks in advance!

[Yui Asuna]

Did you create a gui interface in visual basic, to track an ip address?

Yeah, it can track down the killer's IP.