سلام
من یه مورد رو میگم بقیه اش با خودتون (بقیه شون سخت تر هم هست...)
خوشبختانه سرویسی که گرفتی از 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)