ارسال Text توسط Winsock

[msn_vb]

سلام
من با "Winsock.SendData "Test يك Text ميفرستم
حالا ميخوام اين دستور رو توي يك حلقه While بزارم كه مثلا چند هزار تا Text بفرسته ، اما وقتي اين كارو ميكنم خيلي از پيغام ها فرستاده نميشه
اونم فكر ميكنم واسه اين باشه كه خوب خيلي سريع ميره سراغ فرستادن پيغام بعدي
چطوري ميشه از فرستادن يك Data مطمئن شد؟

[a_persian_boy]

هروقت ارسال انجام بشه تابع Winsock1_SendComplete() اون Winsock اجرا میشه

[Soheilvb]

تابع While گذاشتی از یه طریقی و با رویداد SendComplete مطمئن شو که متن رفته و بعد بعدی بفرست . Doevents هم یادت نره.

[HoseinVig]

خوب به نظر من اول یه متغیر بولین تعریف کن بعد :
Dim blsndcomplet as boolean
بعد موقعه فرستادن تکست مقدار ه اونو مثلاً true کن اینجوری :
if blsndcomplet=false then
blsndcomplet=true
winsock1.senddata text
end if
بعدش هم همون طور که Persian_boy گفت یه تابع هست به نام
Winsock1_SendComplete که هنگام فرستاده شدن یک بسته دستورات اون اجرا میشه . حالا باید اینجوری ازش استفاده کنی:
Winsock1_SendComplete()
blsndcomplet=false
end sub
بعدش هم برنامت آمادست دیییگه
حالا اگه سوالی مونده بپرس.