به وسيله webbrowse مستقيم ميشه تصوير رو نمايش داد, اما اگه بخوای با pictureBox نمايش بدی اول بايد تصوير رو دانلود کنی بعد تو picturBox لود کنی
کدی که قرار دادی اشتباهه
تو گوگل سرچ کن مثال کپچا پيدا ميکنی
ضمناً برای فرستادن ديتا به سرور کپچا بايد فقط اسم تصوير رو بفرستی نه لينکش رو يعنی بدون .jpg و
http://ab.login.yahoo.com/img/
(۱۸-آذر-۱۳۸۸, ۰۴:۲۳:۵۶)snoopboy نوشته است: [ -> ]سوال بعدی من یه لیست ایدی به برنامه معرفی کردم حالا می خواستم سند تو ال کنم ولی نمی فرسته به لیست . به ایدی تکی میفرسته به لیست نمی فرسته این کدم هست
کد:
Dim i As Integer
For i = 0 To List1.ListCount
YMSG1.PckSendMsg List1.List(i), Text5
Next i
ببخشيد من نميتونم به اسپمر ها کمکی کنم از اين گذشته بيخيالش شو چون دنگ فنگ زياد داره
نه ووالا واسه اسپمر نمی خوام . واسه PM دسته جمعی هست . البته تا اینجا هم به من خیلی لطف داشتین .اگه نمی خوای که هیچ . فقط برای آخرین در خوئاست اگه میشه کدی قرار بدین که بتونم باهاش افرا آنلاین که تو اد لیست هستن رو تو یه لیست جدا گانه بگیرم . بعد بگید چطوری بزارم تو ریسورس این کامپننت رو . بعد من پکت اضافه کردن و کم کردن به لیست ایگنور رو می خوام . شما گفتی هدر خودش به صورت دیفالت تعریف شده . فقط هکس پکت رو قرار بدیم . هکس ایگنور 133 هست فکر کنم . بعد چطوری پکت رو قرار بدم توش . کد من به صورت زیره: ببینید درسته؟
کد:
YMSG1.SendPacket "133", "("1À€" & YID & "À€13À€1À€302À€319À€300À€319À€7À€" & Target & "À€301À€319À€303À€319À€", String(4, 0), YID, 133)"
از رويداد IncomingAppear ميتونی وضعيت(آنلاين شدن و يا آفف شدن) ادليست رو بگيری
اگه کسی تو ليست آنلاين بشه و يا آفلاين بشه اين رويدد اتفاق ميوفته
کد:
If Status = "on" Then
List2.AddItem User
ElseIf Status = "off" Then
'remove User az list
End If
بهتره برای برنامه ات ستاپ بسازی چون:
اگه بخوای بذاری تو ريسورس بايد يه فرم ديگه قرار بدی تو برنامه که کامپوننت توش استفاده نشده بعد بايد چک کنی اگه کامپوننت کنار برنامه يا تو سيستم 32 قرار نداشت اکستراک بشه بعد بايد کامپوننت رو هم رجيستر کنی بعد فرم اصلی برنامه ات رو نمايش بدی
از اين گذشته کامپوننت به mswinsck.ocx وابسته هست همين کار ها هم بايد با اين انجام بدی
مثال ريسورس تو سايت يا گوگل سرچ کنی راحت پيدا ميشه
شما کد اسکی پکت رو نوشتيد هکس 85 هست و کد اسکی 133 ، تو پارامتر دوم احتياجی به پرانتز نبود نبايد ميذاشتی
ايگنور کردن
کد:
'ignore
'Text1 = ID Khodet
'Text3 = ID Taraf
YMSG1.SendPacket "85", "1À€" & Text1 & "À€13À€1À€302À€319À€300À€319À€7À€" & Text3 & "À€301À€319À€303À€319À€"
از ايگنور خارج کردن
کد:
'un ignore
'Text1 = ID Khodet
'Text3 = ID Taraf
YMSG1.SendPacket "85", "1À€" & Text1 & "À€13À€2À€302À€319À€300À€319À€7À€" & Text3 & "À€301À€319À€303À€319À€"
اگه طرف با موفقيت ايگنور يا از ايگنور خارج بشه از رويداد YDATA و Type 133 پکتی دريافت ميکنيد که آيدی فرستنده و گيرنده توش قرار داره و اين مقدار هم بايد آخر پکت باشه
اگه مقدار غير از اين باشه يعنی کار پکت درست انجام نشده
ببخشید . میشه با این کمپوننت مولتی لوگین نوشت؟ اگه میشه چطوری باید این کارو بکنم؟
سلام آقای CRazYFULL
برنامه شری آی که نوشتین واقعا در نوع خودش بی نظیره.
من برنامه نویسی سی شارپ می کنم.
از کامپوننت شما در شری آی استفاده کردم ولی حقیقتش نفهمیدم چطوری ازش استفاده کنم. میشه کمکم کنید ؟
YMSG y = new YMSG { };
string user= "آیدی";
string Pass = "پسوورد";
string host = "scs.msg.yahoo.com";
string port = "5050";
string sock = null;
string sport = null;
y.Connect(ref user, ref Pass, ref host, ref port, ref sock, ref sport);
متأسفانه من C# بلد نيستم که مثالی بزنم اگه
اينجا رو ببينيد قبلاً يک مثال با vb.net قرار دادم ميتونيد اون رو به C# تبديل کنيد
دوستان؛ اگر تغيراتی مد نظرتون هست رو عنوان کنيد تا در صورت لزوم قبل از بيرون آمدن نسخه جديد اعمال بشه
سعی کنيد فعلاً پروژه اي رو با نسخه قبلی انجام نديد چند روز ديگه نسخه جديد فيکس شده رو قرار ميدم