[zibi860810]

Hi, i found this thread on this forum LINK, I wanted to use it to my program, i copy and paste it for test. It's good but when i copy url with http://
i have this error I translate the error because it is in polish
"cannot convert prompt argument to string type". Can anyone help me with this error? Please be patient, i'm begginner

[Deque]

The MsgBox needs a string. So you can't give it an Exception, because that's not a string. You probably want to get the message string of the Exception first.

[zibi860810]

Ok, can you help me with fix that problem, i'm only begginer I make this with the code and now i have a different error

[Ligeti]

shouldn't it be ex.message?

[edit] I think Nieznany mean "Unknown"
Do you want me to explain the whole exception message?

[edit] Sorry I thought you were asking for the translation (I didn't see it), apologies!

Try ex.message first, and ... try this:

Code:

if TextBox1.Text.Contains("http://") Then
   Dim entry As String = TextBox1.Text.Replace("http://", "").Trim()
   Dim iphe As IPHostEntry = Dns.GetHostEntry(entry)
   ...

[zibi860810]

Thanks Ligeti, your answer is very helpful. Now my code lokking like this

Code:

Imports System.Net


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextBox1.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox1.Text.Replace("http://", "").Trim())
                TextBox2.Text = iphe.AddressList(0).ToString()

            ElseIf TextBox1.Text.Contains("https://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox1.Text.Replace("https://", "").Trim())
                TextBox2.Text = iphe.AddressList(0).ToString()

            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextBox1.Text)
                TextBox2.Text = iphe.AddressList(0).ToString()
            End If


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


End Class

And it's good. Maybe not One little problem, if i paste URL like this https://www.something.com there is ok but like this http://www.something.com/ it's not ok. This "/" is the problem, how can i add '/' to list of exceptions. I tried like this :) and that's not working

[Ligeti]

You're welcome :-)

use regular expression, that will solve all you problems!

[zibi860810]

Ok Thanks for help. Can you recommend me some tutorials of vb.net for totally beginners??

[Ligeti]

Of course, first try: http://www.hackcommunity.com/Forum-Visua...ork-Family there are some very good VB threads there!

I personally don't program in VB, in fact this i maybe the second time in my life that I write a code in VB lol, I know C# ... but I am a Linux guy.

You can also try:
http://www.dotnetperls.com/vb, I like the design of that website! And it has some great topics about .NET

And as for Regular Expression I highly recommend that you use Expresso: http://www.ultrapico.com/expresso.htm, it is a great tool to test regular expressions.

Happy coding and good luck

[zibi860810]

Thank you very muchOoooo, the link to ultrapico is not working, dotnetperls too

[chmod]

Thank you very muchOoooo, the link to ultrapico is not working, dotnetperls too

It's because the comma (,) got included with the url just remove it from the address bar and try again