تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
النتيجة غير صحيحة
#1
مرفق المشروع
لكن النتيجة غير صحيحة


الملفات المرفقة
.rar   Language converter.rar (الحجم : 181.98 ك ب / التحميلات : 130)
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة:
#2
اخي انا قلت لك تستعمل التحليل في حالة كان الناتج صفحة html

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



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



PHP كود :
Imports System.Net
Public Class Form1

    
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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(data0data.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 
الرد }}}
تم الشكر بواسطة: mamas1
#3
توقعت منك هذا الرد Big Grin
لكن في آخر مرة قلت لي التحليل فقلت لك مذا لو إستعملنا REPLACE فقلت لي جرب و خرجت ..
لكن وجدت هذه المشكلة
و هي أنه في حالة الكود المراد ترجمته كان يتوفر على \ أو أحد الرموز المسبقة فسيتم حذفها
فما الحل ؟
أيضا هل في VB.NET "" تعني " ؟؟
لأن في الفجوال 6 """" تعني "
لم أرد الدخول في هذه المتاهة فاستعملت LABEL و أيضا يمكن إستخدام Chr(34) Big Grin
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة:
#4
(25-11-13, 06:27 PM)mamas1 كتب : توقعت منك هذا الرد Big Grin
لكن في آخر مرة قلت لي التحليل فقلت لك مذا لو إستعملنا REPLACE فقلت لي جرب و خرجت ..
لكن وجدت هذه المشكلة
و هي أنه في حالة الكود المراد ترجمته كان يتوفر على \ أو أحد الرموز المسبقة فسيتم حذفها
فما الحل ؟
أيضا هل في VB.NET "" تعني " ؟؟
لأن في الفجوال 6 """" تعني "
لم أرد الدخول في هذه المتاهة فاستعملت LABEL و أيضا يمكن إستخدام Chr(34) Big Grin

-----------------
شكرا لك على أية حال ...
لاحظت أن الموقع يرسل طلبات بعد هذا الطلب أيضا مما يجعل الكود الذي وضعته غير صحيح .. وهذه هي المشكلة في الكود الذي وضعته أنا
شكرا لك أستاذ محمد ..
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة:
#5
يحدث خطأ عند محاولتي ترجمة هذا الكود
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(postData0postData.Length); 
            
wr.Close(); 
            
using (HttpWebResponse LoginResponse = (HttpWebResponse)LoginRequset.GetResponse()) 
            { 
                
_cookies.Add(LoginResponse.Cookies); 
            } 
فمذا هو برأيك
رغم أن الترجمة تتم عن طريق الموقع
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,621 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [سؤال] تغير لون Label عند الضغط عليه (على أساس إجابة صحيحة) HUNTER25 8 2,225 07-09-20, 01:56 AM
آخر رد: Hasaneen
  [سؤال] اريد كود بحث كومبوبكس وتظهر النتيجة على الشيك بوكس يعني صح او خطا essawq 16 3,700 13-07-20, 09:03 PM
آخر رد: essawq
  [VB.NET] طريقة عمل جملة for بطريقة صحيحة larbihamri 3 1,528 26-04-19, 08:15 PM
آخر رد: elgokr
  الفرق بين تارخين النتيجة باليوم hassan 14 0 1,378 29-12-18, 03:45 PM
آخر رد: hassan 14
  هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ hassan 14 26 6,186 15-10-18, 11:35 PM
آخر رد: hassan 14
  وجود Error رغم أن الأكواد صحيحة Hazem1 7 2,927 28-08-18, 12:14 AM
آخر رد: elgokr
  كيف تطبع كود النتيجة الحسابية لهذه المدخلات فراس الغزي 5 2,174 25-08-18, 09:22 AM
آخر رد: elgokr
  هل جملة الاستعلام هذه صحيحة ام خاطئة من فضلكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ظظ hassan 14 1 1,489 26-05-18, 01:24 AM
آخر رد: elgokr
  ما سبب ظهور هذه النتيجة في تقرير كريستال ريبورت KH_Alaswad 1 1,887 02-09-17, 10:16 PM
آخر رد: محمد كريّم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم