PDA

View Full Version : تبدیل چند خط کد



hobab-theme
یک شنبه 17 دی 1396, 17:25 عصر
سلام دوستان.
به دلیل اینکه چندین سال هست از دنیای برنامه نویسی دورم نمیتونم این کار رو انجام بدم.
ضمنا سیستم های آنلاین تبدیل کد هم ناقص کار کردند.
لطفا هر کس میتونه لطف کنه و این چند خط کد C#‎‎ رو به VB تبدیل کنه برام.
ممنونم
var token = new Token().GetToken("userApikey", "secretKey");

var messageSendObject = new MessageSendObject()
{
Messages = new List<string> { "تست" }.ToArray(),
MobileNumbers = new List<string> { "09120000001" }.ToArray(),
LineNumber = "30003472012345",
SendDateTime = null,
CanContinueInCaseOfError = true
};

MessageSendResponseObject messageSendResponseObject = new MessageSend().Send(token, messageSendObject);

if (messageSendResponseObject.IsSuccessful)
{

}
else
{

}

تو قسمت آرایه ها واقعا مشکل دارم.
اصلا یادم نیست چی به چیه
سپاس

hobab-theme
دوشنبه 18 دی 1396, 08:56 صبح
از دوستان کسی واقعا نمیدونه یا ...؟

mortezagt
دوشنبه 18 دی 1396, 18:11 عصر
Dim token = (New Token()).GetToken("userApikey", "secretKey")

Dim messageSendObject = New MessageSendObject() With {.Messages = New List(Of String) _
From {"تست"}.ToArray(), .MobileNumbers = New List(Of String)
From {"09120000001"}.ToArray(), .LineNumber = "30003472012345", .SendDateTime = Nothing, .CanContinueInCaseOfError = True}

Dim messageSendResponseObject As MessageSendResponseObject = (New MessageSend()).Send(token, messageSendObject)

If messageSendResponseObject.IsSuccessful Then

Else

End If