kamal_behtarin

salam agha man bahash harf mizanam nemifahme nemidoonam chera faghat ashkale yahoo ro dark mikone

r-co

For i = 1 To Len(questionasked)
If Mid(questionasked, i, 1) = "" Then GoTo finished
If Mid(questionasked, i, 1) = Mid(questionasked, i + 1, 1) Then
questionasked = Replace(questionasked, Mid(questionasked, i, 1) & Mid(questionasked, i, 1), Mid(questionasked, i, 1))
i = i - 1
End If

Next i

r-co

Case 75 Typing Buffer

نمي تونه PersonIdرو بكيره بايد جيكارش كرد؟
فقط idكسي كه بهش داده مي شه جواب مي ده؟

r-co

<random>Khoobi?<or>Chetori"?</random>

يه بحتي هم اينجا كن ما راهنمايي شيم

r-co

جطوري ميشه Audibles رو ارسال كرد و نوشته جولوي اونو تغيير داد؟

r-co

حالا جطوري ميشه تشخيص داد كه يه حرف 3 بار تكرار شده ديكه روبوت جواب نده؟
يا بكه جندبار ميطي من فهميدم؟

r-co

اين كد هم كارايي نداره<random>Khoobi?<or>Chetori"?</random>
يعني در SMClient-v1[1].0.3 ايراد مي كيره؟؟؟؟
حالا جطوري ميشه pmهاي رندومي فرستاد؟

mjanbazi

مرسی سیاوش جان
ممنون که سورسو عوض کردی و از سورس پلانت سورس یاهو و پروتکلش رو به 102 عوض کردی
من هر کاری می کنم که اگه به روبوت گفتی سلام به فارسی جواب بده سلام نه به انگلیسی چیکار کنم؟
وقتی براش به انگلیسی می نویسی سلام جواب بهش نمی ده سلام به فارسی
لغت سلام به انگلیسی تو دیتابیس به عنوان سوال و سلام به فارسی بهعنوان جواب هست ولی روبوت جواب نمی ده
ممنون اگه کمکم کنی مرسی

Siavash

به خاطر اين هست كه سلامي كه در VB مي نويسيد Encoding ياهو! رو ساپورت نمي كنه و در نتيجه ياهو فكر مي كنه پيام خالي داريد ميفرستيد كه قابل قبول براش نيست. در نتيجه بايد يك مبدل بنويسيد براش. همانطوري كه پيام فارسي به بات ميديد به شكل ديگري نمايشش مي ده.
انشاالله در ورژن بعدي يك مبدل فارسي به انگليسي هم در سورس قرار ميدم تا بتونيد پيام هاي فارسي رو دريافت كنيد و پيام فارسي بفرستيد.

__________________

mjanbazi

مرسی یاوش جان که جواب دادی
اگه می تونی کمی راهنمایی کن تا بشه فارسی پاسخ ارسال یا دریافت کرد
آخه تا تو سورس بعدی رو آماده کنی معلوم نیست کی طول بکشه
من نیاز فوری دارم
ممنون ازت