Visual Basic

Dim request_str As String = "/ HTTP/1.1" & vbLf & "Host: " & pHost & "?wsdl"
        Dim response_str As String = Nothing

        Dim encoder As ASCIIEncoding = New ASCIIEncoding
        Dim bytes() As Byte = encoder.GetBytes(request_str)

        Dim request As HttpWebRequest = HttpWebRequest.Create(pUrl & "?wsdl")
        request.Credentials = CredentialCache.DefaultCredentials
        request.Method = "POST"
        request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,/;q=0.8"
        request.ContentType = "application/x-www-form-urlencoded"
        request.KeepAlive = False
        request.UserAgent = "SMTP Messenger 2015/" & My.Application.Info.Version.ToString
        request.Referer = ""
        request.ContentLength = bytes.Length
        request.Timeout = 15

        Try

            ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(AddressOf AcceptAllCertifications)
            Using stream_writer As StreamWriter = New StreamWriter(request.GetRequestStream)

                stream_writer.Write(request_str)

            End Using

            Using response As HttpWebResponse = request.GetResponse()

                Using stream_response As StreamReader = New StreamReader(response.GetResponseStream())

                    response_str = stream_response.ReadToEnd()
                    stream_response.Close()

                    If (response_str IsNot Nothing) Then

                        If response_str.Contains("<?xml version") Then

                            global_variables.gOnline = True
                            pValue = True

                        End If

                    End If

                End Using

            End Using

        Catch ex As WebException