[الشاكي لله]

اخي انا قلت لك تستعمل التحليل في حالة كان الناتج صفحة html

ولكن الناتج ظهر على شكل نص :- Request.JSONP.request_map.request_0...



الكود بعد التعديل :-

PHP كود :

Imports System.Net
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim input As String = RichTextBox1.Text
        Dim data As Byte() = System.Text.Encoding.UTF8.GetBytes("Code=" + input)
        Dim req As HttpWebRequest = DirectCast(WebRequest.Create("http://www.developerfusion.com/tools/convert/csharp-to-vb/"), HttpWebRequest)
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        req.ContentLength = data.Length
        Dim writer As New System.IO.StreamWriter(req.GetRequestStream())

        writer.BaseStream.Write(data, 0, data.Length)
        writer.Close()

        Dim res As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)
        Dim reader As New System.IO.StreamReader(res.GetResponseStream())
        Dim result As String = reader.ReadToEnd()
        'res.Close()
        Dim ffff() As String
        ffff = Split(result, """")
        Dim id As String = ffff(7)

        'get requset
        Dim req2 As HttpWebRequest = DirectCast(WebRequest.Create("http://resp.developerfusion.com/get.aspx?id=" & id & "&callback=Request.JSONP.request_map.request_0"), HttpWebRequest)
        req2.Method = "Get"
        Dim res2 As HttpWebResponse = DirectCast(req2.GetResponse(), HttpWebResponse)
        Dim reader2 As New System.IO.StreamReader(res2.GetResponseStream())
        Dim result2 As String = reader2.ReadToEnd()
        

        Dim spellter() As String = New String() {"Code"":""", """, ""Status"":""Complete"""}
        result2 = result2.Replace("Request.JSONP.request_map.request_0([{""Message"":"""",""Code"":""", "")
        result2 = result2.Replace(""",""Status"":""Complete""}])", "")
        result2 = result2.Replace("\n", vbNewLine)
        result2 = result2.Replace("\t", vbTab)
        result2 = result2.Replace("\""", """")
        RichTextBox2.Text = result2

    End Sub
End Class