مشکل در دریافت پی ام یاهو توسط vb

[NabiKAZ]

سلام ؛

از این کد قطعه ای رو برای ارسال و دریافت پی ام یاهو برداشت کردم:
http://www.iranvig.com/3567.html

این قطعه کد:

کد:

Dim Data As String
Dim sptData() As String
Winsock1.GetData Data
sptData = Split(Data, "À€")
if Asc(Mid(Data, 12, 1)) = 6 then
    debug.print sptData(7)
end if

پی ام دریافتی رو نمایش میده، اما در عمل میبینید که گاهی پی ام دریافتی sptData(7) گاهی در sptData(8) یا sptData(11) یا sptData(13) ظاهر میشه

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

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

نبی

[mobilebaz]

سلام دوست عزیز
سورسی که تو لینک پایین گذاشتم دانلود کن فکر کنم مشکلت حل میشه

http://royalsoft.persiangig.com/yahoo.zip

[NabiKAZ]

ممنون از محبتت .

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

سلام دوست عزیز
سورسی که تو لینک پایین گذاشتم دانلود کن فکر کنم مشکلت حل میشه

http://royalsoft.persiangig.com/yahoo.zip