منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرفق المشروع
لكن النتيجة غير صحيحة

اخي انا قلت لك تستعمل التحليل في حالة كان الناتج صفحة 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 

توقعت منك هذا الرد Big Grin

لكن في آخر مرة قلت لي التحليل فقلت لك مذا لو إستعملنا REPLACE فقلت لي جرب و خرجت ..
لكن وجدت هذه المشكلة
و هي أنه في حالة الكود المراد ترجمته كان يتوفر على \ أو أحد الرموز المسبقة فسيتم حذفها
فما الحل ؟
أيضا هل في VB.NET "" تعني " ؟؟
لأن في الفجوال 6 """" تعني "
لم أرد الدخول في هذه المتاهة فاستعملت LABEL و أيضا يمكن إستخدام Chr(34) Big Grin

(25-11-13, 06:27 PM)mamas1 كتب : [ -> ]توقعت منك هذا الرد
لكن في آخر مرة قلت لي التحليل فقلت لك مذا لو إستعملنا REPLACE فقلت لي جرب و خرجت ..
لكن وجدت هذه المشكلة
و هي أنه في حالة الكود المراد ترجمته كان يتوفر على \ أو أحد الرموز المسبقة فسيتم حذفها
فما الحل ؟
أيضا هل في VB.NET "" تعني " ؟؟
لأن في الفجوال 6 """" تعني "
لم أرد الدخول في هذه المتاهة فاستعملت LABEL و أيضا يمكن إستخدام Chr(34)

-----------------
شكرا لك على أية حال ...
لاحظت أن الموقع يرسل طلبات بعد هذا الطلب أيضا مما يجعل الكود الذي وضعته غير صحيح .. وهذه هي المشكلة في الكود الذي وضعته أنا
شكرا لك أستاذ محمد ..

يحدث خطأ عند محاولتي ترجمة هذا الكود

PHP كود :

Encoding charset = getEncoding("http://vb4arb.com/vb"); 


            string Password = MD5("8798797"); 
            string stringData = string.Format("vb_login_username={0}&vb_login_password=&vb_login_password_hint=%DF%E1%E3%C9+%C7%E1%E3%D1%E6%D1&cookieuser=1&s=&securitytoken=guest&do=login&vb_login_md5password={1}&vb_login_md5password_utf={1}", 
                "شكشوك", Password); 
            byte[] postData = charset.GetBytes(stringData); 

            HttpWebRequest LoginRequset = (HttpWebRequest)WebRequest.Create("http://vb4arb.com/vb/login.php?do=login"); 
            LoginRequset.ContentType = "application/x-www-form-urlencoded"; 
            LoginRequset.Method = WebRequestMethods.Http.Post; 
            LoginRequset.ContentLength = postData.Length; 
            LoginRequset.CookieContainer = _cookies; 
            LoginRequset.KeepAlive = true; 
            System.IO.Stream wr = LoginRequset.GetRequestStream(); 
            wr.Write(postData, 0, postData.Length); 
            wr.Close(); 
            using (HttpWebResponse LoginResponse = (HttpWebResponse)LoginRequset.GetResponse()) 
            { 
                _cookies.Add(LoginResponse.Cookies); 
            } 

فمذا هو برأيك
رغم أن الترجمة تتم عن طريق الموقع

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mamas1

الشاكي لله

mamas1

mamas1

mamas1