[SniperWarrior]

Heyy Buddies, so today i got didnt got much time to add more features into this tutorial.
But, i have tried best to make it interesting to all beginners , who are still trying to understand VB.NET

you're reading my tutorial about how to make a whois tool in vb.net.

first make a new project on your vb.net
put 1 Button, 1 Label, 1 TextBox, and 1 RichTextBox.

Note : I am using Slidex Theme [I redesigned few things into this]
Add new class and put the code into it .

[img]http://s25.postimg.org/whult8fjj/image.png[/img]
You will find new tools into your toolbar as below:
[img]http://s25.postimg.org/p35a0utnz/image.png[/img]


Now design your form as below :

[img]http://s25.postimg.org/5mkkebyjz/image.png[/img]

now put this code above Public Class Form code

Code

Imports System.Net
Imports System.IO

Now put this declaration code below Public Class Form code

Code

Dim source As String

Now double click on Button1 from design view, and put below code for this event

Spoiler (Click to View)

Code

If TextBox1.Text = "" Then
        Else
            Try
                Dim Req As HttpWebRequest = DirectCast(WebRequest.Create("http://fwhois.net/index.php?domain=" & TextBox1.Text), HttpWebRequest) 'create a webrequest
                Req.Method = "GET" 'request method
                Req.UserAgent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)" 'useragent, feel free to edit it :D
                Dim Resp As HttpWebResponse ' response for Req above
                Req.ContentType = "application/x-www-form-urlencoded"
                Resp = DirectCast(Req.GetResponse(), HttpWebResponse)
                Dim Reqreader As New StreamReader(Resp.GetResponseStream())
                Dim result As String = Reqreader.ReadToEnd
                If result.Contains("Invalid Input!") Then 'check the string is valid or no
                    RichTextBox1.Text = "Invalid Input!"
                Else
                    Try 'replacing string. the page is in Vietnam language. i'm not the author of the shell xD
                        result = result.Replace("KẾT QUẢ TÌM THẤY", "Results Found")
                        result = result.Replace("Kết quả tìm kiếm cho", "Search Results for")
                        result = result.Replace("từ", "from")
                        RichTextBox1.Text = Split(result, "<pre>")(1).Split("</pre>")(0)

                    Catch ex As Exception

                    End Try
                End If
            Catch ex As Exception

            End Try
        End If

Now Run Your Program and Bingoo !!!

[img]http://s25.postimg.org/3w1jcuh0v/image.png[/img]

Download Theme + Project Source Code
Spoiler (Click to View)
Theme : http://pastebin.com/gZu43JU3
Project Source Code : Just Add Event code for Button 1 , and remember to use corresponding button names in your visual basic . As name may differ on your side


It took me an hour to make this thread, do keep this thread alive , so that it helps beginner to keep their interest on vb.net 🤝

[Dabbing]

This is cool and all but you can google and find the exact same thing but web based.

[SniperWarrior]

This is cool and all but you can google and find the exact same thing but web based.

Yeah there are alot of website where you can get IP lookup.
But i made it , so that beginners keep their interest on vb.net
By making small program , they gets motivated to work more !

[+Haze]

Here some criticism.

1. I don't see the point in the theme. I thought this was a tut on IP lookup. It should stay as just that.
2. You should of atleast used regex to parse the information rather than just dump it all on a text box.

Other than that, good job. Keep up the good work.

[tweety]

Oh, it's this thread again. Can we not?

[frawg]

Thanks for sharing, having a go with it now!

[Earn]

I believe the point of a tutorial is to teach a person how to do something & what it means, not just giving them a code to copy & paste.

[SniperWarrior]

I believe the point of a tutorial is to teach a person how to do something & what it means, not just giving them a code to copy & paste.

exactly and that is why i included step by step process including pictures.
Actually , i have posted the complete source code , as this will make them go in correct direction ,if they are not doing it in the right way 🤝

[RandomUser123]

It's how i would structure a "step by step" tutorial.

https://hackforums.net/showthread.php?tid=4605600

Mine one was much basic, so in your case, you could be less specific too.
But sharing full source code without explaining will not help anyone..

[Nyan Kat]

This is pretty cool, But you know you could just add a webbrowser and nagavtive it to www.whois.com And from their just enter the IP much easier.

[Odus]

This is pretty cool, But you know you could just add a webbrowser and nagavtive it to www.whois.com And from their just enter the IP much easier.

With that kind of thinking we can just go to http://who.is and enter it from our browser.

OP I say the same as Earn. Hell, 3/4's of this was on the UI.

[xVipX]

you can add loucipip whith out site just whith gio ip class & gio ip.dat