سایفر روبات (Cypher Robot) - صفحه 6 - Artificial Intelligence

**Siavash** · ۰۸-۲۱-۱۳۸۷, ۰۵:۵۹ بعد از ظهر

دوست عزيز،
دريافت نكردن پيام در ترافيك بالا فكر مي كنم بيشتر به سرعت نت بستگي داشته باشه چون هر پكتي كه بات دريافت مي كنه پردازش ميشه و قبل از پردازش هم به ليست پيام هاي دريافت شده اضافه مي شه.
منظورتون از جواب ندادن بات اين هست كه در اون ليست پيام ظاهر مي شه اما جواب فرستاده نمي شه يا اينكه كلاً در ليست پيام هاي دريافتي هم اضافه نميشه؟

در مورد Setup: اون فايل bat كه مي بينيد تنها فايل ها و DLL هاي مورد نياز براي اجراي اين برنامرو در جاي درستش كپي مي كنه و در اكثر كامپيوتر هايي كه VBRuntime روي آنها نصب هست بدون Setup كردن هم مي تونيد برنامرو اجرا كنيد. اون فايل براي افرادي قرار گرفته كه وقتي فايل رو اجرا مي كنند پيام خطا دريافت مي كنند كه نمونش در پست هاي قبلي هست...

masoud-70 · ۰۸-۲۱-۱۳۸۷, ۱۰:۵۳ بعد از ظهر

با سلام خدمت دوستان و مخصوصا آقا سياوش ممنونم از زحمات شما دوست عزيز.مي خواستم ببينم دستور <repetitive> رو چي جوري بايد خذفش كنم من از خود بات حذف كردم بعد به روباتم يه دستوري دادم به نام جك
وقتي كه مي زني جك چند بار كه ميزنم پشت سر هم ديگه نمي نويسه الان من مي خوام برنامه رو ويرايش كنم كه من مثلا هر چند بار كه پشت سر هم بزنم جك اونم واسم جك نمايش بده اين از اين.بعد مي خواستم ببينم كه مي خوام اينويسيبل به بات اضافه كنم اگه ميشه يكم بيشتر توضيح بديد.بعدش اين دستور جديد /tip اگه امكانش هست يكم در مورد اين توضيح بديد.بعد الان مي خوام يه دستور اضافه كنم به نام /bf و وقتي كسي زد /bf روبات در status مثلا بنويسه بچه ها اين ياروو بي اف مي خواد .اين طوري آره. يا مثلا دستور gf
بگه اين طرف يا دوستمون gf مي خواد.بعدش سوالي كه ديگه داشتم برنمه رو از راه دور مديريت مي كنيد من هر كاري كردم نتونستم آيپي هم دادم چون adsl دارم هر كاري كردم نشد اگه ميشه يكم بيشتر توضيح بديد.
بعدش نحوه كامل براي نوشن پيغام هاي متداول در دستور /help .ممنونم بازم ازتون تشكر مي كنم به خاطره برنامه تون. با تشكر

s4rk1s · ۱۰-۱-۱۳۸۸, ۱۰:۰۰ قبل از ظهر

یه مشکل دارم من مثلآ /gf میزنی به روبات طول میکشه بره status مشکل از چیه؟؟
یه مشکل دیگه هم status عوض نمیشه اتوماتیک اینه ورژن های قبل.....

**ardalan_farzin** · ۱۰-۱-۱۳۸۸, ۰۶:۴۷ بعد از ظهر

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

حالا اگه می خوای سریع تغییر کنه میتونی دستور زیر رو پاک کنی

كد:

        ' GF switch
        ElseIf Left(Message, 3) = "/gf" Then
            statusMessage = PersonID & " gf mikhad!"
            statusMessage = getResponse("<gf>", PersonID)
            If statusMessage = "" Then statusMessage = PersonID & " gf mikhad!"
            Response = "Alan barat peida mikonam  :) ==> Ta Kamtar Az 1 min Dige IDito Mizaram Baghale Statusam Migam GF Mikhay!"

و به جاش از دستور زیر استفاده کنی تا وقتی طرف زد /gf سریع استاتوس عوض بشه

كد:

        ' GF switch
        ElseIf Left(Message, 3) = "/gf" Then
            sendData changeStatus(PersonID & " Joon GF Mikhad!", False)
            Response = PersonID & " Joon Alan Vasat Peyda Mikonam ;)"

**Siavash** · ۰۸-۲۲-۱۳۸۷, ۰۸:۴۷ بعد از ظهر

در مورد تكرار من در پستي كه نسخه ي آخر رو در اون قرار دادم توضيح دادم، كافيه /joke رو به ثابت repeatSafeTerms در اول فايل frmMain.frm اضافه كنيد...
در مورد /tip كجاشو توضيح مي خواين؟ كافيه هر جا /tip مي بينيد با /joke مثلاً عوضش كنيد... بعد ليست جك هاتون رو توي جدول Tips‌ قرار بديد. يا همون جدول Tips رو توي Access كپي كنيدش با نام Jokes و هر جا Tips در سورس بود هم با Jokes عوض كنيد.
در مورد /gf و /bf هم ببينيد /status جچوري كار مي كنه... PersonId متغيري هست كه ID كسي كه pm داده توشه. با چند خط (دو خط مثلاً) اضافه كردن به بخش سويچ ها (كه كاملا با كامنت مشخصش كردم) مي تونيد اين كار رو انجام بديد...
در مورد /help مي تونيد هر مجموعه پيامي كه مي خواين بدبد. فايل modSwitchHelp رو باز كنيد...

فكر كنم اگر اين تاپيك رو از ابتدا بخونيد خيلي بيشتر با كد آشنا بشيد...

**mohammad_tz** · ۰۸-۲۲-۱۳۸۷, ۰۹:۰۸ بعد از ظهر

سلام
امیدوارم حال همگی دوستان عزیز خوب باشه.
اول از همه از آقای محمودیان برای ارائه ورژن جدید تشکر می کنم. برنامه نویسی با این سیستم کامنت گذاری خیلی سخته. کلا برنامه نویسی خیلی اعصاب می خواد.
برای این بات یه چند تا پیشنهاد دارم. البته شاید پیاده سازی هاش سخت باشه. اما خوب پیشنهاد دادن که ضرری نداره

:

1)امکان پاسخ گویی با زمان
مثال:مثلا گفتگوی بین ساعت 11 PM تا 1 AM ، بات: "دیر وقته نمی خوای بخوابی؟"
مثلا گفتگوی بین ساعت 6 AM تا 8 AM ، بات: "صبح به این زودی تو اینترنت چی کار می کنی؟"
مثلا گفتگوی بین ساعات 12 PM تا 2 PM ، بات: "راستی، ناهار خوردی؟ ما که جاتون خالی کباب داشتیم.

"

2)حس دلتنگی
اگه یوزر مثلا 5 روز با بات چت نداشت، دفعه بعد بات پیغام هایی مثل زیر بدهد :
بات: "کجایی پس؟ میدونی چند روز ازت خبر ندارم؟"
یا
بات: "بابا بی معرفت. مثل اینکه سرت خیلی شلوغه. وقت کردی یه سری هم به ما بزن. دلم خیلی برات تنگ شده."

3)امکان پاسخ اولیه همراه با شوخی و پس از تقاضای مجدد کاربر در رابطه با اون موضوع جواب منطقی. (منظورم جواب Random نیست.)
یوزر:ساعت چنده؟
بات:فروشی نیست

یوزر:ای بابا.حالا جدی بگو دیگه.
بات:09:20 AM

4)قابلیت نظرسنجی از افراد برای کارهای آماری برطبق سئوالات مطرح شده Admin بات (می توان دلایل را هم ذخیره کرد.)
بات:"یه سوال. به نظرت IE بهتره یا Firefox ؟
یوزر:"Firefox"
بات:"چرا؟"
یوزر:"خوب تو اینترنت یه سرچ کردم و بررسی ها رو خوندم. اما در کل IE خیلی کند هست و مشکلات زیادی داره."

5)یادآوری مناسبت ها و رویدادهای تاریخی
بات:"راستی محمد اگه گفتی امروز چه روزیه؟"
یوزر:"سه شنبه"
بات:"نه بابا مسخره منظورم اینه که چه مناسبتی هست؟
یوزر:"نمی دونم"
یات:"ای بابا امروز روز معلم هست دیگه"

6)امکان معرفی وب سایت همراه با موضوع
بات:"امروز داشتم تو اینترنت یه چرخی می زدم یه سایت خیلی جالب در رابطه با "هوش مصنوعی" دیدم. اگه به "هوش مصنوعی" علاقه داری لینکش رو بهت بدم."
یوزر:"آره. اتفاقا یه تحقیق در رابطه با هوش مصنوعی دارم.لینکش رو بفرست."
بات:"http://www.artificial.ir"

7)اگر هیچ کسی با بات مثلا 5 دقیقه چت نداشت بات یه وضعیت احساسی از آخرین فرد داشته باشه. مثلا اگه آخرین فرد بات رو ناراحت کرده، بات در اولین چت بعدی با یه شخص دیگه اون وضعیت رو بروز بده.
یوزر:"سلام.خوبی؟"
بات:"سلام.نه"
یوزر:"چرا؟"
بات:"یکی یه حرفی بهم زده خیلی ناراحتم"

8)اگه کاربر یه سئوالی پرسید که بات جوابی برای اون نداشت بتونه کلمات کلیدی اون سئوال رو در بیاره و با حذف اجزای غیر ضروری یه جمله مثل حروف اضافه و علامت سوال و علامت های نگارشی و ... یه جستجو برای یوزر انجام بده و لینک جستجو رو به اون اعلام کنه.
یوزر:"چطوری می شه ویندوز نصب کرد؟" ---(توضیح:جمله تبدیل بشه به "ویندوز نصب")
بات:"یه لحظه صبر کن"
بات:"این رو ببین"---(توضیح:لینک جستجو)
یوزر:"اوه! خیلی ممنونم."

9)عکس العمل در برابر روز تولد یوزر

یه چند تا پیشنهاد فنی :

1)مشکل Add Word و Refresh رو می شه حل کرد. اگه برای دکمه Add Word یه همچین کدی بنویسیم حل می شه و بعد از اضافه شدن رکورد جدید DataGrid بلافاصله Refresh می شه و دیگه نیازی به دکمه Refresh نیست :

كد:

Private Sub cAddWord_Click()
    adoMessage.Recordset.AddNew "Request", txtRequest.Text
    adoMessage.Recordset.Update "Response", txtResponse.Text  
End Sub

2)برای داخل تکست باکس tUser که پیش فرض متن "username" دارد می توان از کدهای زیر هم استفاده کرد :

كد:

Private Sub tUser_GotFocus()
If tUser.Text = "username" Then tUser.Text = ""
End Sub


Private Sub tUser_LostFocus()
If tUser.Text = "" Then tUser.Text = "username"
End Sub

3)حجم بانک های اطلاعاتی Access بعد از مدتی خود به خود افزایش پیدا می کنه و موجب کند شدن بیش از حد بانک می شه. در این رابطه می شه از کدهایی که کار همان گزینه Compact and Repair داخل خود Access را انجام می ده استفاده کرد. فکر کنم من کدش رو داشته باشم.

4)وقتی کاربر دکمه Sign in رو زد متن و عملکرد این دکمه به Cancel تغییر پیدا کنه.

5)در ضمن یه مشکل دیگه ای که داخل پروژه هست اینه که نمی شه فایل EXE رو ساخت و در موقع Make EXE هشدار می ده.

6)یه امکانی داخل VS.NET هست به نام Dataset . کارش اینه که می تونی مثلا یه Query از نوع Select بزنی و نتایج رو بریزی داخل به Dataset که در واقع مثل یه Table مجازی هست و دقیقا عین یه جدول بانک اطلاعاتی می تونی با سطرها و ستون هاش کار کنی و حتی Query هم بزنی. حسن این کار اینه که در مواقعی که داده ها تغییر آن لاین ندارند می شه کل داده ها رو یه بار خوند و ریخت داخل یه Dataset و برای بیرون کشیدن یه مقداری از اون جدول دیگه نیازی نیست که مجددا بخواهیم به اون بانک وصل بشیم بخصوص وقتی که تعداد مراجعات به بانک خیلی زیاد باشه. این کار توی سرعت خیلی تاثیر می گذاره. فکر کنم توی VS 6.0 و VB 6.0 نباشه. اما فکر کنم بشه با یه ترفندهایی پیاده سازی اش کرد. اگه بشه خیلی خوبه.

همین دیگه. خسته شدم اینا رو تایپ کردم.

با آرزوی موفقیت برای دوستان عزیز

mohsen_is · ۰۸-۲۲-۱۳۸۷, ۱۰:۰۰ بعد از ظهر

سلام
اول از همه باید تشکر کرد از تمامی دوستان که یه پروژه بزرگی رو شروع کردن.

من یه مشکلی دارم در بوت
من وقتی یه دستوری اضافه کردم
مثلا کسی زد /Help در status یه چیزی بنویسه ولی وقتی می زنه /help خیلی طول می کشه دستور به status بره یا اینکه اگه دستوری دیگه زده باشی که status توش داشته باشه در آن تایم خاص اون رو می فرسته.
چطوری تنظیم کنم تا می زنه سریع به به status.

كد:

        ' Help switch
        ElseIf Left(Message, 5) = "/help" Then
            statusMessage = PersonId & " Dare Help Mano Mibine!"
            Response = helpSwitch(Message)

باتشکر ازشما

**Siavash** · ۰۸-۲۲-۱۳۸۷, ۱۱:۲۹ بعد از ظهر

از دوستمون محمد جان اول از همه تشكر مي كنم بابت پست خيلي مفيدشون.
در نسخه هاي بعدي سعي مي كنم اين موارد رو اضافه كنم... و باگها بر طرف بشن.

در ارتباط با سوال آخر، دليل اينكه تأخيري در تعويض Status قرار دادم به خاطر اين هست كه در غير اين صورت اگر شخصي پشت سر هم /help بزنه مثلاً ياهو به خاطر تعويض هاي مكرر Status بات رو قطع مي كنه. و در ضمن اگر سرعت تعويض Status از يك حدي بيشتر بشه ياهو ديگه قبول نمي كنه Status هاي جديد رو كه اگر در صفحات قبل ببيني اين مشكل توضيح داده شده.
اما اگر مي خواين اين كار رو انجام بديد كافيه از دستور زير استفاده كنيد:

كد:

sendData changeStatus(PersonId & " Dare Help Mano Mibine!")

itc_net · ۰۸-۲۳-۱۳۸۷, ۱۲:۱۰ قبل از ظهر

سیاوش جان من تازه آخرین نسخه مسنجر رو دانلود کردم Yahoo! Messenger 9.0.0.1912 Final بعد به روبوت هر چقدر پی ام میدم جواب نمی ده بعضی وقت از هر صدتا یکیش رو جواب میده اون هم تو بازده های زمانی مختلف بعد من فکر کردم مشکل از جای دیگه هست اینترنت همه چیز رو بررسی کردم فایده نداشت بعد روبوت های خارجیه هم چک کردم دیدم باز هم همین مشکل رو داشتن بعد آخر متوجه شدم از مسنجر هست پاکش کردم نسخه 8و7 رو نصب کردم مشکل به کل حل شد البته اگر یاهو 9 بتاش هم باشه مشکل نداره فقط مثل این که با این آخری مشکل داره

متشکر
منتظر نظرتون هستم

**Siavash** · ۰۸-۲۳-۱۳۸۷, ۰۸:۲۳ بعد از ظهر

نقل قول:

نوشته اصلي بوسيله itc_net

سیاوش جان من تازه آخرین نسخه مسنجر رو دانلود کردم Yahoo! Messenger 9.0.0.1912 Final بعد به روبوت هر چقدر پی ام میدم جواب نمی ده بعضی وقت از هر صدتا یکیش رو جواب میده اون هم تو بازده های زمانی مختلف بعد من فکر کردم مشکل از جای دیگه هست اینترنت همه چیز رو بررسی کردم فایده نداشت بعد روبوت های خارجیه هم چک کردم دیدم باز هم همین مشکل رو داشتن بعد آخر متوجه شدم از مسنجر هست پاکش کردم نسخه 8و7 رو نصب کردم مشکل به کل حل شد البته اگر یاهو 9 بتاش هم باشه مشکل نداره فقط مثل این که با این آخری مشکل داره

متشکر
منتظر نظرتون هستم

من ورژن Final ياهو! مسنجر رو نصب نكردم هنوز... در اولين فرصت بات رو با اين نسخه هم تست مي كنم. احتمالاً Flag هاي متفاوتي نسبت به ورژن هاي قبلي ارسال مي كنه... ممنونم كه اطلاع داديد...