Weird Freeze up? HttpWebResponse

[TheDeathly]

  Public Sub SendMessage(ByVal message As String)
        On Error Resume Next
        Dim uri As New Uri("http://omegle.com/send?msg=" & message & "&id=" & ID)
        If (uri.Scheme = uri.UriSchemeHttp) Then
            Dim request As HttpWebRequest = HttpWebRequest.Create(uri)
            request.Method = WebRequestMethods.Http.Post
            Dim response As HttpWebResponse = request.GetResponse()
        End If
    End Sub

So it freezes at "Dim response As HttpWebResponse = request.GetResponse()" some times. not all the time. It doesnt actually open the page untill i ask for the response but it locks the program up sometimes.. I have no idea how to fix this..

[cicatrix]

Have you tried to open this page in a web browser? This can be simply due to low bandwidth.

[casirus]

Im Gonna Sound Weird But Have You Tryed To Use

Try
 
//your code here
 
        Catch ex As Exception
 
msgbox("Error:" & ex.message)
 
End Try

when i had an issue with it freezeing up that helped me find out what was the issue hope it helps

[TheDeathly]

i cant actually go to the page since im posting. I just want to add a timeout or something