aknj56
یک شنبه 06 اسفند 1391, 08:48 صبح
باسلا م خدمت دوستان این کدها بر اساس asp.net هست برای ارسال اس ام اس میخام در برنامه تحت ویندوز ازش استفاده کنم برای ارسال اگر امکان داره دوستانی که هم به هر کدهای asp & vb.net مسلط هستند در تبدیل این کدها به vb.net به من کمک کنند
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Buttonsend.Click
Dim sms As New WebService.Send()
Dim rec As Long() = Nothing
Dim status As Byte() = Nothing
'retval :
' // Invalid User Pass=0, // نام کاربری و یا رمز ورود صحیح نیست
' // Successfull = 1, // ارسال موفق انجام شد
' // No Credit = 2, // اعتبار ریالی درحساب شما نیست
' // DailyLimit = 3, //شما نمی توانید بیش از مقدار مشخصی در روز پیامک بفرستید
' // SendLimit = 4, // تعداد پیامک هایی که در این مرحله ارسال می کنید ، بیش از حد مجاز است
' // Invalid Number = 5 // شماره پیامک شما معتبر نیست
' // System IS Disable = 6 // سیستم در حال بروز رسانی است
' // Bad Words= 7 // پیامک شما کلمه غیر مجاز فیلتر سیستمی دارد
' // Pardis Minimum Receivers=8
' // Number Is Public=9
'//Status :
' // Sent=0, // ارسال به شماره موبایل خانه مربوطه موفق انجام شد
' // Failed=1 // ارسال به این خانه ارایه انجام نشده است
Dim retval As Integer = sms.SendSms(TextBox1.Text, TextBox2.Text, New String() {TextBox4.Text}, TextBox3.Text, TextBox5.Text, False, "", rec, status)
' UserName of panel : نام کاربری درگاه وب سرویس
' Password of panel : رمز ورود درگاه وب سرویس
' SMS _ Number : ( شماره درگاه پیامک ( شماره پیامک شما
' TEXT: متنی که قرار است ارسال شود
Response.Write(retval.ToString() + "=وضعیت کلی ارسال")
Response.Write("<br>")
For i As Integer = 0 To status.Length - 1
Response.Write(status(i).ToString() + "=وضعیت ارسال این خانه از ارایه" + "<br>")
Response.Write(rec(i).ToString() + "=کد رهیگیری این خانه از ارایه ")
Next
End Sub
این هم عکس متدهای ارسال
http://upload.tehran98.com/img1/c4qxqyb6agfg26y90p.gif (http://upload.tehran98.com/)
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Buttonsend.Click
Dim sms As New WebService.Send()
Dim rec As Long() = Nothing
Dim status As Byte() = Nothing
'retval :
' // Invalid User Pass=0, // نام کاربری و یا رمز ورود صحیح نیست
' // Successfull = 1, // ارسال موفق انجام شد
' // No Credit = 2, // اعتبار ریالی درحساب شما نیست
' // DailyLimit = 3, //شما نمی توانید بیش از مقدار مشخصی در روز پیامک بفرستید
' // SendLimit = 4, // تعداد پیامک هایی که در این مرحله ارسال می کنید ، بیش از حد مجاز است
' // Invalid Number = 5 // شماره پیامک شما معتبر نیست
' // System IS Disable = 6 // سیستم در حال بروز رسانی است
' // Bad Words= 7 // پیامک شما کلمه غیر مجاز فیلتر سیستمی دارد
' // Pardis Minimum Receivers=8
' // Number Is Public=9
'//Status :
' // Sent=0, // ارسال به شماره موبایل خانه مربوطه موفق انجام شد
' // Failed=1 // ارسال به این خانه ارایه انجام نشده است
Dim retval As Integer = sms.SendSms(TextBox1.Text, TextBox2.Text, New String() {TextBox4.Text}, TextBox3.Text, TextBox5.Text, False, "", rec, status)
' UserName of panel : نام کاربری درگاه وب سرویس
' Password of panel : رمز ورود درگاه وب سرویس
' SMS _ Number : ( شماره درگاه پیامک ( شماره پیامک شما
' TEXT: متنی که قرار است ارسال شود
Response.Write(retval.ToString() + "=وضعیت کلی ارسال")
Response.Write("<br>")
For i As Integer = 0 To status.Length - 1
Response.Write(status(i).ToString() + "=وضعیت ارسال این خانه از ارایه" + "<br>")
Response.Write(rec(i).ToString() + "=کد رهیگیری این خانه از ارایه ")
Next
End Sub
این هم عکس متدهای ارسال
http://upload.tehran98.com/img1/c4qxqyb6agfg26y90p.gif (http://upload.tehran98.com/)