خطایی که با عقل جور در نمیاد

سلام
بچه ها این قطعه کد من کجاش اشتباه هست که روی هیچ کدوم از این دیسپچرها هیچ اتفاقی صورت نمی گیره؟؟؟؟

Connect هم یک تابع هست که هم به سرور وصل می شه و هم پارامتر و ارسال می کنه

متغیر پارامتر یک استراکچر هست که سه خاصیت:
کد شده نام کاربری + کلمه عبور و در خودش جای می ده
دستور ارسالی
نتیجه سرور

پس با این تفاصیل اشکال کجاست

کد:

---

Connect(Parametr)
        MsgBox(Parametr.Result)

        If Parametr.Result = "0" Then

            lblStatus.Dispatcher.BeginInvoke(System.Windows.Threading.DispatcherPriority.Normal, New Action(Sub()
                                                                                                                lblStatus.Text = "عدم اتصال به سرور مرکزی"
                                                                                                            End Sub))
        ElseIf Parametr.Result = "<server Type='Forgot'> Please Enter New Password </server>" Then
            lblStatus.Dispatcher.BeginInvoke(System.Windows.Threading.DispatcherPriority.Normal, New Action(Sub()
                                                                                                                lblStatus.Text = "کلمه عبور جدید نمی تواند خالی رها شود"
                                                                                                            End Sub))
        ElseIf Parametr.Result = "<server Type='Forgot'> Cant Found user or email </server>" Then
            MsgBox("sa")
            lblStatus.Dispatcher.BeginInvoke(System.Windows.Threading.DispatcherPriority.Normal, New Action(Sub()
                                                                                                                lblStatus.Text = "ایمیل یا نام کاربری مورد نظر پیدا نشد"
                                                                                                            End Sub))
        ElseIf Parametr.Result = "<server Type='Forgot'> Unknow Error *09399859458* </server>" Then
            lblStatus.Dispatcher.BeginInvoke(System.Windows.Threading.DispatcherPriority.Normal, New Action(Sub()
                                                                                                                lblStatus.Text = "خطای ناشناخته ای رخ داده است"
                                                                                                            End Sub))
        ElseIf Parametr.Result = "<server Type='Forgot'> Send to mail OK!</server>" Then
            lblStatus.Dispatcher.BeginInvoke(System.Windows.Threading.DispatcherPriority.Normal, New Action(Sub()
                                                                                                                lblStatus.Text = "ایمیلی از طرف سرور مرکزی برای ایمیل شما ارسال شد"
                                                                                                            End Sub))
        ElseIf Parametr.Result = "<server Type='Forgot'>Error in Send Mail!</server>" Then
            lblStatus.Dispatcher.BeginInvoke(System.Windows.Threading.DispatcherPriority.Normal, New Action(Sub()
                                                                                                                lblStatus.Text = "خطایی در ارسال ایمیل توسط سرور مرکزی به وجود آمده است"
                                                                                                            End Sub))
        End If

---

سلام
If های شما خیلی خیلی نامطمئن هستند...
اگر سرور بجای تک کوتیشن، جفت کتیشن بفرستد، چه؟
server Type="Forgot بجای server Type='Forgot ؟

اگر سرور فقط یک فاصله ناقابل را در کد شما کم یا زیاد بفرستد، چه؟
Please Enter< بجای Please Enter < ؟

اگر یک حرف بزرگ و کوچک جابجا شود، چه؟
Cant found user or email بجای Cant Found user or email ؟

این طرز کدنویسی، رها کردن برنامه به شانس و بخت و اقبال است!

سلام مجدد
جهت پردازش XML ها، نمونه کدی که از نظر خودم بهتر است را برایتان حاضر کردم...
این کد وابستگی کمتری به یک space و enter و... زیادتر و کمتر دارد:
(البته این کد رفتار متفاوتی در قبال "Result = "0 دارد و فرض آن بر خروجی <server Type='Forgot'>0</server> است.)

کد:

---

Connect(Parametr)
MessageBox.Show(Parametr.Result)

Dim msg = "خطای ناشناخته"
Try
  Dim temp = Parametr.Result.Substring(Parametr.Result.IndexOf("<"c))
  Dim xml = XDocument.Parse(temp).<server>
  If (String.Compare(xml.@Type, "Forgot", True) <> 0) Then Exit Try

  Select Case xml.Value.Trim().ToLower()
      Case "0"
        msg = "عدم اتصال به سرور مرکزی"
      Case "please enter new password"
        msg = "کلمه عبور جدید نمی تواند خالی رها شود"
      Case "cant found user or email"
        msg = "ایمیل یا نام کاربری مورد نظر پیدا نشد"
      Case "unknow error *09399859458*"
        msg = "خطای ناشناخته ای رخ داده است"
      Case "error in send mail!"
        msg = "خطایی در ارسال ایمیل توسط سرور مرکزی به وجود آمده است"
      Case "send to mail ok!"
        msg = "ایمیلی از طرف سرور مرکزی برای ایمیل شما ارسال شد"
  End Select
Catch
End Try

Me.Dispatcher.BeginInvoke(New Action(Sub() Me.lblStatus.Text = msg))

---

و یا حتی شاید این کد، خوب چه ایرادی دارد؟!

کد:

---

Connect(Parametr)
MessageBox.Show(Parametr.Result)

Dim msg = "خطای ناشناخته"
Try
  Dim temp = Parametr.Result.Substring(Parametr.Result.IndexOf("<"c))
  Dim xml = XDocument.Parse(temp).<server>
  If (String.Compare(xml.@Type, "Forgot", True) <> 0) Then Exit Try

  temp = xml.Value.Trim().ToLower()

  If (temp.Contains("ok")) Then
      msg = "ایمیلی از طرف سرور مرکزی برای ایمیل شما ارسال شد"
  ElseIf (temp = "0") Then
      msg = "عدم اتصال به سرور مرکزی"
  ElseIf (temp.Contains("password")) Then
      msg = "کلمه عبور جدید نمی تواند خالی رها شود"
  ElseIf (temp.Contains("unknow")) Then
      msg = "خطای ناشناخته ای رخ داده است"
  ElseIf (temp.Contains("send")) Then
      msg = "خطایی در ارسال ایمیل توسط سرور مرکزی به وجود آمده است"
  ElseIf (temp.Contains("user")) Then
      msg = "ایمیل یا نام کاربری مورد نظر پیدا نشد"
  End If
Catch
End Try

Me.Dispatcher.BeginInvoke(New Action(Sub() Me.lblStatus.Text = msg))

---

وآنطور که از شواهد مشخص است سرور دست خودتان است.
خوب چرا سرورتان را اصلاح نمیکنید تا یک پیام دقیق تر ماشینی و البته انسانی تولید کند؟ مانند:

کد:

---

<server>
  <status>401</status>
  <message>Can't found user or email.</message>
</server>

---

این خیلی بهتر و دقیق تر است و کد موجود در پیام میتواند مبنای عمل دقیق تری برای کلاینت تان باشد.
در XML معیار/پروتکل تان برای ارتباط بین سرور و کلاینت خصاصت بخرج ندهید!
موفق باشید.