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

[atlasm 17]

سلام دوستان

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

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

من ی برنامه نوشتم که با اون میشه پیامک ارسال کرد از پنل 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

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

[mahdi tahan 723]

کتابخانه 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