ايران ويج

نسخه‌ی کامل: مشکل در دریافت پی ام یاهو توسط vb
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام ؛

از این کد قطعه ای رو برای ارسال و دریافت پی ام یاهو برداشت کردم:
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) ظاهر میشه

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

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

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

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

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

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




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

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