اتصال به وب سرویس

[phd.khosravi 64]

سلام به همه دوستان

 

تو برنامه مم میخوام شارژ انلاین بذارم که باید به وب سرویس متصل بشم و از طریق post string مقادیر رو ارسال کنم ولی هر کار میکنم نمیشه و تو برگشت اطلاعات مشکل پیدا میکنه.

این وب سایت که میخوام ازش استفاده کنم ... powercharge.ir

 

اینم مستنداتی که لازم داره

 

http://s6.uplod.ir/i...94rb22fv5ts.jpg
http://s6.uplod.ir/i...555t08bfg8t.jpg
http://s6.uplod.ir/i...q2ngmc6fv6o.jpg

Dim hh As HttpJob

hh.PostString ("http://chargereseller.com/services/EasyCharge/BuyProduct" , "type=MTN & Amount=1000 & Cellphone=09305584860 & Email=myemail & Webserviceid=562d3a66-83b8-470c-a9ac-44935bef3768 & RedirectUrl= & Issuer=Mellat & RedirectToPage=true & scriptversion=15")

دقیقا تو قسمت jobdone نمیدونم چی باید وارد کنم.

 

...

 

خیلی گشتم چیزی پیدا نکردم و متاسفانه جدیدا سرچ سایت هم کار نمیکنه و هر چی سرچ میکنم باز میاد صفحه اول سایت

[پژمان نیکروان 6,055]

سلام.

الان مقادیر رو خودت بهش دادی که. از کاربر نمیخوای بگیری مگه؟؟

توی jobdone بنویس job.getString ببین مقدار برگشتی چی بهت میده.

Sub jobdone(job As HttpJob)
	If job.Success Then
		Msgbox(job.GetString,"")
	End If
End Sub

خطا ها هم که خودش توی مستندات گفته ، میتونی روی خروجی شرط بذاری که اگه پیغامی به کاربر نشون بدی............

[phd.khosravi 64]

حالا اونا رو درست میکنم و خروجی رو میزنم اینو نشون میده عزیز 

 

http://s6.uplod.ir/i/00697/563yfpvjucks.jpg

 

قبلا هم اینو  انجام داده بودم ولی نفهمیدم چیکارش کنم

[پژمان نیکروان 6,055]

ببین این سایت اومده گفته شما یه سری مقادیر به ما ارسال کنید ، ما هم در عوض یه چیزی به شما Echo میکنیم و خروجی میدیم.

و یه سری چیزا مثل خطا های مختلف رو هم تعریف کرده که مثلا اگه این پیغام اومد یعنی شارژ خریداری شد و....

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

 

بیا چک کن ببین مقادیر رو اشتباه ارسال نکردی ، مثلا ایمیل و شماره اینارو درست بنویس...