دریافت پیام ها از وب سرویس

[isaac23]

سلام و خسته نباشید دوستان

من از یک سامانه ارسال پیامک تو نرم افزار وی بی استفاده می کنم واسه ارسال پیام از طریق نرم افزار تو سایت یه آموزش هست و ساده میشه استفاده کرد و پیام ارسال کرد .
اما واسه دریافت پیام نمونه سورسی و یا چیزی نیست..

می خواستم بدونم کسی اموزشی و یا سورسی در این باره نداره واسه دریافت پیام از طریق وب سرویس...

ممنون

[isaac23]

در ضمن واسه ارسال یه فایل dll باهاش هست.

[vbhamed]

سلام
خب اگر سایت مورد نظر این امکان رو داشته باشه حتما تو راهنماش گذاشته وگرنه شاید کلا چنین قابلیتی نداره

[isaac23]

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

یه نمونه فایل Pdf داره اما متوجه نشدم .....گفتم شاید دوستان نمونه ای داشته باشن

[vbhamed]

سلام
فایل pdf رو بزار

[isaac23]

نمونه فایل جهت دریافت پیام

[isaac23]

سلام اقا حامد خبری نشد از این اموزش بالا که گفتم

[meys34]

سلام

من یه مورد رو میگم بقیه اش با خودتون (بقیه شون سخت تر هم هست...)

خوشبختانه سرویسی که گرفتی از http هم ساپورت میکنه...

البته در مورد امنیت باید دوستان نظر بدن چون در این روش مجبوریم username و password رو توی url قرار بدیم

باید pdf رو خط به خط بخونی و مرحله به مرحله برای هر متد یه تابع مثل زیر بسازی...


برای متد GetInboxCount که تعداد پیام های داخل inbox رو میده:

خروجی به این شکل هست (به pdf دقت کنید):

<?xml version="1.0" encoding="utf-8"?>
<int xmlns="http://tempuri.org/">-1</int>

باید خروجی که int هست و در اینجا چون username و password غلط بوده عدد -1 خروجی داده رو از بقیه نوشته ها خارج کنیم

که کدش میشه این زیر:



Dim Username As String
Dim Password As String
Dim isRead As Boolean

Username = InputBox("", , "username")
Password = InputBox("", , "password")
isRead = InputBox("isread", , "True")

Dim Url As String
Url = "http://api.payamak-panel.com/post/receive.asmx/GetInboxCount?username=" & Username & "&password=" & Password & "&isread=" & isRead

Dim R As String
R = Inet1.OpenURL(Url)

If InStr(1, R, "<?xm", vbTextCompare) < 1 Then MsgBox "Error Message:" & vbCrLf & vbCrLf & R: Exit Sub

Dim i As Integer
i = InStr(1, R, "<int", vbTextCompare)
i = InStr(i, R, ">") + 1


Dim j As Integer
j = InStr(i, R, "</int", vbTextCompare)
MsgBox Mid$(R, i, j - i)

[isaac23]

عزیز من اصلا متوجه نشدم ممنون میشم اگه یه سورس در مورد این چیزی که نوشتی بهم بدی ممنونم میشم ..

خدایی خیلی کارم گیره ...

[meys34]

فقط باید Inet یا همون Microsoft Internet Transfer Control رو از Ctl+T اضافه میکردی و کد بالا رو کپی

به هر حال من فایلشو فرستادم

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

[isaac23]

بی نهایت سپاس دوست عزیز ممنون و متشکر.....

فقط واسه خوندن یعنی بیاد نوش بده متن پیام های که اومده باید چیکار کرد به همین صورت هست میشه اینم یه راهنمایی بکنید ....

پیشاپیش تشکر ویژه

[isaac23]

دستت همه درد نکنه خوودم پیداش کردم با هر بدبختی بود....