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


الملفات المرفقة
.rar   Language converter.rar (الحجم : 181.98 ك ب / التحميلات : 74)
منقطع .. للدراسة 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل هذة العبارة صحيحة alwasela 1 64 06-11-16, 10:59 PM
آخر رد: محمد العبيدي
  [VB.NET] استفسار عملية البحث وضهور النتيجة في فورم جديد ashraf74 6 330 28-05-16, 11:03 PM
آخر رد: ashraf74
  تعديل كود البحث في حقل معين وإظهار النتيجة في الكومبو بوكس momiana1 1 494 19-03-15, 01:23 AM
آخر رد: momiana1
  محتاج كود اظهار النتيجة الطالب الدريساوي 4 594 17-03-15, 05:25 AM
آخر رد: benomar
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 5 2,611 27-02-15, 03:28 PM
آخر رد: ahmed_ahmed
  إظهار النتيجة في ليبل djelloul 6 573 30-09-14, 01:39 AM
آخر رد: vbnet
  هل هذه statement صحيحة ام لا ؟ محمد العكيلي 1 255 03-05-13, 05:30 PM
آخر رد: Sajad
  @@@ معالجة العمليات الحسابية من خلال مربع نص وإظهار النتيجة @@@ @@أبورائد@@ 1 468 02-05-13, 07:02 PM
آخر رد: ربيع
  خصائص System.Data.DataColumn لا تعطي قيم صحيحة Aly El-Haddad 10 1,002 17-04-13, 03:37 AM
آخر رد: Aly El-Haddad
  اظهار النتيجة في جدول منفصل magh77 0 289 04-03-13, 03:45 AM
آخر رد: magh77

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


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