منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
النتيجة غير صحيحة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : النتيجة غير صحيحة (/showthread.php?tid=1072)



النتيجة غير صحيحة - mamas1 - 25-11-13

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


RE: النتيجة غير صحيحة - الشاكي لله - 25-11-13

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



RE: النتيجة غير صحيحة - mamas1 - 25-11-13

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


RE: النتيجة غير صحيحة - mamas1 - 25-11-13

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

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


RE: النتيجة غير صحيحة - mamas1 - 26-11-13

يحدث خطأ عند محاولتي ترجمة هذا الكود
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); 
            } 
فمذا هو برأيك
رغم أن الترجمة تتم عن طريق الموقع