30-06-18, 09:07 PM
كود :
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
ربما تكون مكتبة ناقصة ؟؟؟؟؟؟؟
ارجو المساعدة في هذا المشكل