کلاس های معادل این کلاس ها در vb.net چیست؟

[kasmaii61]

با سلام خدمت دوستان
من یه web service برای ارسال sms از طریق اینترنت گرفتم که دارای یه sample به زبان #C هستش این sample ظاهرا از wcf استفاده میکنه و 4 تا کلاس داره که من با ابزارهای تبدیل #c به vb تبدیلشون کردم ولی بعد از اجرا تو یکی از این کلاس ها یه error میده که catch میشه و در نهایت این error رو در result بر می گردونه :
There was an error reflecting 'msgBody
من هم sample اصلی هم اون چیزی که بعد از تبدیل ایجاد کردم رو میگذارم خیلی ممنون میشم کمکم کنید. خیلی search کردم ولی چون با wcf آشنایی ندارم به نتیجه ای ندارم
خودم فکر میکنم این 4 کلاس از کلاس های آماده خود wcf هستن و قاعدتا باید معادل vb.net اونها هم وجود داشته باشه ولی من که چیزی پیدا نکردم
پیشاپیش از کمکتون ممنونم

91505
91506

[zaeimh90]

Imports System.Windows.Forms
Imports WSTest1.ServiceReference1

Namespace WSTest1
Public Partial Class FormSendSMS
Inherits Form
Public Sub New()
InitializeComponent()
End Sub

Private Sub button1_Click(sender As Object, e As EventArgs)
Try
Dim client As New MessageService_Client()
' MessageService_ service = new MessageService_Client();

ClientContext.username = textBoxUser.Text
ClientContext.password = textBoxPass.Text
Dim customBehavior As New CustomBehavior()
client.Endpoint.Behaviors.Add(customBehavior)
Dim sendSmsResponse As sendSMSResult = client.sendSMS(New String() {textBoxSource.Text}, textBoxDest.Text.Split(New String() {","}, StringSplitOptions.RemoveEmptyEntries), textBoxBody.Text, Integer.Parse(textBoxEnc.Text))
' sendSMSResponse sendSmsResponse = service.sendSMS(new sendSMS(new string[] {textBoxSource.Text},
' textBoxDest.Text.Split(new string[] {","},
' StringSplitOptions.RemoveEmptyEntries),
' textBoxBody.Text, int.Parse(textBoxEnc.Text)));
Dim sendSmsResult As sendSMSResult = sendSmsResponse

textBoxResult.Clear()
textBoxResult.Text = "Message: "
textBoxResult.Text += sendSmsResult.errorMsg + vbCr & vbLf
textBoxResult.Text += "Status: " + sendSmsResult.status & vbCr & vbLf
Dim msgIdArray As System.Nullable(Of Long)() = sendSmsResult.msgIdArray
textBoxResult.Text += "ID Array: "
For i As Integer = 0 To msgIdArray.Length - 1
Dim msgId = msgIdArray(i)
textBoxResult.Text += msgId
If i < msgIdArray.Length - 1 Then
textBoxResult.Text += ", "
End If
Next
Catch exception As Exception
textBoxResult.Text = exception.Message
End Try
End Sub
End Class
End Namespace

[kasmaii61]

دوست عزیز ممنون که وقت گذاشتی ولی از ابزارهای تبدیل کد به VB.NET استفاده کرده بودم ،درست جواب نمیده. تو تبدیل فرم به vb مشکلی ندارم بیشتر می خواستم بدونم اون سه کلاس که مربوط به wcf است چه کار میکنن. ظاهرا مشکل از ساختار xml است که می سازه. چون هنگام ارسال داده به وب سرویس این پیام رو میده کسی میدونه مشکل از کجاست ؟

{"The top XML element 'msgBody' from namespace '' references distinct types System.String and System.String[]. Use XML attributes to specify another XML name or namespace for the element or types."}

ظاهرا به Name space داره گیر میده