[bidaya]

كود :

Private Shared Function smethod_3(ByVal string_4 As String) As String
       Dim str As String = "ADwALwBQAFIATwBUAEUAQwBUAE"
       Dim s As String = string_4
       Dim num As UInt32 = PrivateImplementationDetails.ComputeStringHash(s)
       If (num = &H360CAA42) Then
           Select Case num
               Case &HE630CAF
                   If (s = "176") Then
                       str = "AE8APgA8AEsARQBZAEwARQBPAEsAUwBVAE0APgA8AC8ARABBAFQAQQA+ADwALwBXAFIATQBIAEUAQQBEAEUAUgA+AA=="
                   End If

           End Select
         
       End If
       Return True

   End Function

الخطا في كلمة  

كود :

PrivateImplementationDetails

ربما تكون مكتبة ناقصة ؟؟؟؟؟؟؟

ارجو المساعدة في هذا المشكل

[elgokr]

للاسف اخى bidaya

هو ليس خطاء ولكن فقدان الملف الخاص بهذا الجملة

لان من المفترض انه كلاس 

اما ان ترجع الى مكان نسخ الكود وجلب ملف الكلاس منه

او مراجعة الرابط التالى لكن الرابط بلغة C#

http://source.roslyn.codeplex.com/#Micro...Details.cs

فالامر يرجع لك

تحياتى لك

وتمنياتى لك التوفيق