رفتن به مطلب
  • 0

ارسال پیام با وب سرویس و گرفتن خروجی


atlasm

سوال

سلام دوستان

امیدوارم همگی شنگول باشین

ی سوال فنی داشتم...

من ی برنامه نوشتم که با اون میشه پیامک ارسال کرد از پنل SMS

این لینک URLش هس

http://www.smsbilling.ir/send_via_get/send_sms.php?username=&password=&sender_number=&receiver_number=&note=

نحوه نوشتنم به این شکل هس.

Sub Globals
	Private send As Button
	Dim ht As HttpJob
	Private username As EditText
	Private password As EditText
	Private numto As EditText
	Private from As EditText
	Private Meta As EditText
	Private Label1 As Label
	Private WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
Activity.LoadLayout("a")
send.Enabled=False
End Sub

Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub send_Click

Label1.text = "http://smsbilling.ir/send_via_get/send_sms.php?username=" & username.Text & "&password=" & password.Text & "&sender_number=" & from.Text  & "&receiver_number="&numto.Text &"&note=" & Meta.Text 
WebView1.LoadUrl(Label1.Text)
Meta.Text = ""
send.Enabled =False
End Sub

حالا چطوری میتونم خروجی بگیرم؟

وقتی این لینک رو باز میکنم ی خروجی داره. میخوام این خروجی بیاد تو به msgbox

ممنون میشم راهنمایی کنید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

کتابخانه httputils2 رو تیک بزن .

Sub Globals

Dim HttpJob1 As HttpJob

end sub

در Activity_Create

HttpJob1.Initialize("sabt",Me)

httpJob1.Download("http://www.smsbilling.ir/send_via_get/send_sms.php?username=&password=&sender_number=&receiver_number=&note=
 

")

و بعد

Sub JobDone(Job As HttpJob)
  If Job.Success = True Then
If Job.JobName = "sabt" Then

Dim a As String
a = Job.GetString


Msgbox(a,"نتیجه")


End If
end sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...