30-12-17, 08:53 PM
قمت بهذا التعديل
PHP كود :
While sReader.Peek() > 0
Dim input As String = System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(sReader.ReadLine()))
Dim dataSplit = input.Split
My.Settings(dataSplit(0)) = input.Substring(s.IndexOf(Space(1))).Trim
End While

