+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25578)
ارجو تصحيح الكود التالي - bidaya - 30-06-18
كود :
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ربما تكون مكتبة ناقصة ؟؟؟؟؟؟؟
ارجو المساعدة في هذا المشكل
RE: ارجو تصحيح الكود التالي - elgokr - 30-06-18
للاسف اخى bidaya
هو ليس خطاء ولكن فقدان الملف الخاص بهذا الجملة
لان من المفترض انه كلاس
اما ان ترجع الى مكان نسخ الكود وجلب ملف الكلاس منه
او مراجعة الرابط التالى لكن الرابط بلغة C#
فالامر يرجع لك
تحياتى لك
وتمنياتى لك التوفيق