چند تا جوک با حال

مگسه میمیره ، باباش واسش ان خیر میکنه !

9:37 AM

به نظرت چطور بود؟

مگسه میمیره ، باباش واسش ان خیر میکنه !

9:37 AM

به نظرت چطور بود؟

یه بسیجیه روی پیغام گیرش گذاشته بود : سلام علیکم .
لطفا بعد از شنیدن سوره بقره پیغام خود را بگذارید!!!!!!!!

9:35 AM

به نظرت چطور بود؟

یه روز یه بابایی یه دستش قطع شد, خیلی از زندگی ناامید شده
بود. راه افتاد تو خیابون یه جا دید یه یارو کنار خیابون
قر میده و بالا پایین میپره . رفت جلو دید یارو دوتا دست هم نداره .
تعجب کرد به یارو گفت بابا دمت گرم عجب روحیه ای داری با این وضع
قر میدی . یارو گفت برو بابا روحیه چیه کونم میخاره نمیدونم چیکار کنم ...

9:34 AM

یکی نظر داده!

یه ترکه تو روزنامه یک آگهی استخدام میبینه که: به یک مهندس کامپیوتر مجرب و باسابقه نیازمندیم. خلاصه فرداش کت شلوار میپوشه و تیپ میزنه و پامیشه میره واسه مصاحبه. اونجا یارو ازش میپرسه: شما مدرکتون از کدوم دانشگاهه؟ طرف میگه: من مدرک ندارم که! یارو تعجب میکنه، میگه: پس حتماٌ سابقة کارتون زیاده... قبلاٌ تو کدوم شرکت کار میکردین؟ طرف میگه: والله من شرکت مرکت حالیم نمیشه! پدر مرحومم یک سوپرمارکت داشت، منم همونجا کار میکنم!! یارو شاکی میشه، میگه: مردک! تو اصلاٌ بلدی کامپیوتر رو روشن کنی؟! ترکه میگه: والله نه!! مرده قاط میزنه، میپرسه: پس اومدی اینجا چه غلطی بکنی؟! ترکه میگه: من فقط اومدم بگم که دور من یکی رو باید خط بکشید!!

9:32 AM

2 نفر نظر دادن تا حالا! نظر شما چیه؟

دوتا اوا خوردن به هم. یکیشون گفت بیا قایم موشک بازی کنیم.هرکس اون یکی رو پیدا کرد ترتیبش و بده. اون یکی گفت باشه.حالا من میرم چشم میزارم ، اگه پیدام کردی تو من و ... اگه پیدامنکردی زیر پله هام ...

9:29 AM

به نظرت چطور بود؟

Tuesday, August 03, 2004

یه ترکه چاق جلو دوستاش میره رو ترازو، شیکمشو میده تو!!!!!!
3:32 PM

یکی نظر داده!

گرگه میره زنگ خونه بزبزقندی رو میزنه ، شنگول و منگول از رو اف اف میگن کیه: گرگه میگه: منم منم مادرتون!!! شنگول و منگول داد میزنن : گه خوردی ما آیفون تصویری داریم.....(حامد)
3:23 PM

به نظرت چطور بود؟

Monday, May 31, 2004

ترکه رفت دکتر گفت آقای دکتر چند وقتیه که دچار بی تفاوتی شده ام دکتر گفت یعنی چی ، بیشتر توضیح بده یارو گفت یعنی اینکه الان من شما رو تخممم حساب نمیکنم!!!
11:29 AM

11 نفر نظر دادن تا حالا! نظر شما چیه؟

ترکه میره داروخونه ومیگه یزید می خوام دکتره میگه یزید چیه؟ ترکه میگه همان که جلوی آب را میگیره!!!
11:28 AM

3 نفر نظر دادن تا حالا! نظر شما چیه؟

ترکه جلوی یه دختر رو گرفت . گفت خانوم میتونم یه سوال درباره عادت ماهیانه ازتون بپرسم . دختره واسه اینکه کم نیاره
میگه بپرس . ترکه گفت : ببخشید ، شما عادت دارید ماهیانه به آشغالی پول بدید ؟!!!!

11:28 AM

به نظرت چطور بود؟

یه روز ترکه یه کرست پیدا میکنه و می شینه گریه می کنه ازش سوال میکنند:چرا گریه میکنی میگه حتما این کلاه لاله ولادن است!!!
11:28 AM

به نظرت چطور بود؟

ترکه مسافر کشی میکرد . یه جا یه زنه بهش گفت : آقا ، ببخشید ، کریمخان میرید . ترکه گفت : اه ، خوب معلومه ، اگه نمیرید که میترکید!!!
11:27 AM

4 نفر نظر دادن تا حالا! نظر شما چیه؟

یه یارو تو قزوین رئیس بانک بود . یه آگهی داد به این مضمون :
جوان 18 ساله برای15 نفر
نوجوان 15 ساله برای 10 نفر
نونهال 10 ساله برای 5 نفر
کودک 7 ساله برای 2 نفر
چه کسی کلید طلایی مهد کودک را خواهد برد؟!!!

11:26 AM

5 نفر نظر دادن تا حالا! نظر شما چیه؟

یه ترکه چهارتا زن داشت . رفت یه زن سیاه پوست گرفت . بهش گفتن تو که چهار تا زن داشتی . دیگه چرا رفتی زن سیاه پوست گرفتی . گفت : ایلده این و گرفتم یه وقت دیدی مراسم ختمی چیزی داشتیم ...!!!!
11:26 AM

به نظرت چطور بود؟

ترکه سرش رو از روی کلاه میخاروند . بهش گفتند چرا این جوری میکنی گفت مگه شما میخواهید کونتون رو بخارونید شلوارتون و در میارید!!!!
11:26 AM

به نظرت چطور بود؟

لره یه بچه بی تربیت داشت . وسط مجلس یهو میگفت:" ننه ، ننه ، ان دارم ، ان دارم " ننش که دیگه شاکی شده بود یه روز بهش گفت " بچم ، هر موقع ان داشتی بگو 1 دارم هر موقع جیش داشتی بگو 2 دارم" خلاصه ، تو یه مجلس بچه انش گرفت و یادش رفت شمارش چند بود . داد زد " ننه ، ننه ، اون که ان بید ، چند بید ؟ …!!!
11:25 AM

به نظرت چطور بود؟

ترکه دوست دخترش رو برد خونه بکنه . وقتی کارش تموم شد بلند شد به دوست دخترش گفت: "این که پرده نبود ، برزنت بود دختره گفت: "آخه کس خل ، شلوارم و در نیاوردی "!!!
11:25 AM

یکی نظر داده!

از یه ترکه پرسیدند: "اسم کوچیک فردوسی چیه ؟"گفت: " میدان "!!!!!
11:24 AM

4 نفر نظر دادن تا حالا! نظر شما چیه؟

ترکه تا ده سال برای مادرش عزاداری میکرد و همش گریه میکرد . بهش گفتند : آخه چقدر گریه میکنی ، ده سال گذشته گفت: "آخه هر وقت یادم میافته که موقع خاکسپاریش چه دست و پایی میزد جیگرم آتیش میگیره "!!!
11:24 AM

یکی نظر داده!

به یه قزوینی گفتند تحصیل کردی ؟گفت: "تحصیل نه ، ولی محصل چرا"!!!
11:23 AM

یکی نظر داده!

پسره صبح که از خواب بلند شد از باباش پرسید :مامان نصفه شب کجا میخواست بره ؟ پدره گفت : هیچ جا , چطور مگه آخه هی بهش میگفتی "برگرد , برگرد"!!
11:23 AM

به نظرت چطور بود؟

قزوینیها به ناف میگند :"سوراخ بی مصرف
11:23 AM

به نظرت چطور بود؟

یه قزوین یه بچه زیر بغلش بود و میدویدیکی پرسید کجا میدوی . گفت :فردا امتحان بچه بازی دارم هنوز لاشم باز نکردم!!!
11:22 AM

2 نفر نظر دادن تا حالا! نظر شما چیه؟

یه روز یه ترکه لباس مشکی خاکی پاکی تنش بود . یه نفر بهش رسید و گفت : "چی شده " ترکه گفت: " مادر بزرگم به رحمت خدا رفت همین الان دفنش کردیم" گفت: "چرا لباست خاکیه" ترکه گفت: " آخه خیلی مقاومت کرد"!!!
11:21 AM

به نظرت چطور بود؟

To: TechNICAL Support

Dear Sir,
Last year I upgraded my system from Girlfriend 7.0 to Wife 1.0 and noticed that the new program began creating problems within the system processing and that took up a lot of space and valuable resources.
Wife 1.0 installs itself into all other programs and launches during system initialization, where it monitors all other system activity.
Applications such as Poker Night 2.3, Girlfriend 3.2 and Saturday Football 5.0 no longer run, crashing the entire system whenever selected :(
I cannot seem to keep Wife 1.0 in the background while running my other favorite applications. Whichever module or software I enter, only Wife 1.0 seems to run and nothing else.
I am thinking about going back to Girlfriend 7.0, but the uninstall from Wife 1.0 to Girlfriend 7.0 does not work on this program. Can you help me, please!!!

Thanks,
Rajeev
Reply
To: Rajeev

Dear Rajeev,

This is a very common problem men users of the Wife 1.0 software complain about but it is mostly due to a primary misconception of the software.
Many men upgrade from Girlfriend 7.0 to Wife 1.0 with the idea that Wife 1.0 is merely a UTILITIES & ENTERTAINMENT program.
Wife 1.0 is an OPERATING SYSTEM and designed by its creator to run everything. It is unlikely you would be able to purge Wife 1.0 and still convert back to Girlfriend 7.0.
Hidden operating files within your system would cause Girlfriend 7.0 to emulate Wife 1.0 so nothing is gained. It is impossible to uninstall, delete, or purge the program files from the system once installed !!
You cannot go back to Girlfriend 7.0 because Wife 1.0 is not designed to do this. Some have tried to install Girlfriend 8.0 or Wife 2.0 but end up with more problems than the original system. Look in your manual under "Worries Invited For Ever (Wife 1.0)".
I recommend you keep Wife 1.0 and just deal with the situation. Having Wife 1.0 installed myself, I might also suggest you read the entire section regarding general partnership faults (GPFs).
You must assume all responsibility for faults and problems that might occur, regardless of their cause. The best course of action to solve this major IT problem of yours will be to enter the command C:APOLOGIZE.
In any case avoid excessive use of the Esc key because ultimately you will have to give the APOLOGIZE command before the operating system will return to normal. The system will run smoothly as long as you take the blame for all the GPFs.
Wife 1.0 is a great program, but very high maintenance.
Consider buying additional software to improve the performance of Wife 1.0. I recommend you to install the latest gift software like Flowers 2.1, Necklaces 3.2, and Chocolates 5.0.
note: Do not under any circumstances, install Secretary With Skirt 3.3. This is not a supported application; in fact it is a deadly virus for Wife 1.0 and is likely to cause irreversible damage to the operating system.
regards,
Amit.

11:19 AM

5 نفر نظر دادن تا حالا! نظر شما چیه؟

Monday, May 24, 2004

علی کوچولو از خواب پا میشه میبینه مامانش نشسته رو شیکم باباش و داره تند تند بالا پایین میپره!!!!!!!!!!!! یهو میگه: مامان داری چیکار میکنی؟ مامانش هول میشه میگه: هیچی عزیزم! شکم بابات گنده شده بود دارم بادش رو خالی می کنم! علی میگه: مامان جون این کارا فایده نداره چون فردا که بری سر کار دوباره دختر همسایه پایینی میاد خونمون با دهنش تو شکم بابا فوت میکنه،!!!!!!
3:33 PM

10 نفر نظر دادن تا حالا! نظر شما چیه؟

Monday, May 17, 2004

یه ترکه با یه تهرانیه دعواشون میشه، ترکه فرار میکنه مثل میمون میره بالا درخت! تهرانیه از پایین درخت داد میزنه: خارکسده بیا پایین تا مادرتو بگام!!!!! ترکه میگه: دروغ نگو، اگه بیام پایین منو میکشی!!!! (از طرف میلاد ایران!)
9:10 AM

13 نفر نظر دادن تا حالا! نظر شما چیه؟

Sunday, May 16, 2004

یه سایت توپ، برا دوست یابی، چت و ...

http://www.mojsoft.com/

5:02 PM

3 نفر نظر دادن تا حالا! نظر شما چیه؟

Tuesday, April 27, 2004

عزرائیل ماکسیما میخره ازش می پرسن پولش را از کجا آوردی ؟
- میگه اضافه کاری زلزله بم !!!!!!(از طرف boy_25_g)
9:17 AM

15 نفر نظر دادن تا حالا! نظر شما چیه؟

Saturday, April 17, 2004

یه مرده دست زن و پسر کوچیکشو میگیره میبره شمال! یه اتاق کوچیک کرایه میکنن! شب هوس کار خیر میکنن و ...! صبح که میشه زنه میخواست بفهمه بچش از ماجرای دیشب چیزی دستگیرش شده یا نه! از بچه میپرسه: عزیزم دیشب خوب خوابیدی؟ بچه میگه: آره مامان، چند دقیقه دیگه باز از بچه میپرسه: عزیزم دیشب خوب خوابیدی:؟ بچه: آره مامان.... همین طور هر چند دقیقه یه بار از بچه میپرسیده که یهو بچه عصبانی میشه داد میزنه: خوب تو همین کونده بازیا رو در میاری که بابا دیشب کونت گذاشت!
8:43 AM

15 نفر نظر دادن تا حالا! نظر شما چیه؟

ترکه میره حرم امام رضا، دخیل میبنده و گریه زاری میکنه و از امام رضا میخواد که تو قرعه کشی بانک ملی پراید برنده شه! بیچاره هر چی دعا می کنه اثر نمی کنه! یه ماه بعد بانک تجارت تبلیغ میکنه که میخواد یه بنز الگانس جایزه بده! باز ترکه میره حرم و دخیل میبنده و شروع میکنه به گریه زاری! که یهو امام رضا میاد بخوابش و بهش میگه: احمق اول برو یه حساب تو بانک باز کن بعد بیا دعا کن!
8:34 AM

8 نفر نظر دادن تا حالا! نظر شما چیه؟

یه گاو میره کلاس زبان انگلیسی صداش تغییر می کنه به: وی وی وی!!!!
8:25 AM

5 نفر نظر دادن تا حالا! نظر شما چیه؟

Sunday, March 14, 2004

ترکه زنگ میزنه خونه دوست دخترش و میگه: سلام... ببخشید من لهجه دارم... دختره میگه: آره! ترکه می‌گه:‌ پس قطع می‌کنم دوباره می‌گیرم!(جوک از طرف خاله سوسکه)

8:50 AM

9 نفر نظر دادن تا حالا! نظر شما چیه؟

سوسکه میخواست خودکشی کنه! میره کنار دمپایی می خوابه!!!!(جوک از طرف خاله سوسکه)
8:49 AM

2 نفر نظر دادن تا حالا! نظر شما چیه؟

سوسکه به خودش نارنجک میبنده، میره زیر دمپایی! (جوک از طرف خاله سوسکه)
8:47 AM

9 نفر نظر دادن تا حالا! نظر شما چیه؟

ترکه رو داشتن میبردن اتاق عمل، ازش میپرسن: همراه داری؟ میگه: آره، خاموشش کردم! (جوک از طرف همون ترکه!)
8:45 AM

5 نفر نظر دادن تا حالا! نظر شما چیه؟

ترکه و اصفهانیه و همدانیه مرحوم میشن. اون دنیا میرن جلو در بهشت، تا میان برن تو یارو دربونه یک نگاه به پروندشون میکنه، با لگد پرتشون میکنه بیرون! خلاصه همینجور دم در بهشت ولو بودن، یهو همدانیه میبینه دارن یک جنازه میبرن تو بهشت، اینم بدو بدو میره زیرجنازه رو میگیره و لااله‌الا‌الله گویان میره تو. یک مدت میگذره، اصفهانیه میبینه یک جانباز داره با ویلچر میره تو، اینم بدو بدو میره پشت ویلچر رو میگیره و میره تو. ترکه خیلی شاکی میشه، هی دور و بر رو نگاه میکنه، میبینه پشت بهشت ساختمون سازی دارن، یه فرغون افتاده اون گوشه. خلاصه فروغون خالی
رو ور میداره میره جلو در بهشت. دربونه میپرسه: چیکار داری؟ ترکه میگه: کوری نمیبینی مفقود الاثر آوردم؟!(جوک از طرف همون ترکه!)
8:44 AM

7 نفر نظر دادن تا حالا! نظر شما چیه؟

لره میره توالت، بعد یک ربع با دهن خونی مالی میاد بیرون!!. رفیقش میپرسه: چی شده؟!! لره میگه: گی بگیرن، مسواکش خیلی بزرگ بید! (جوک از طرف نازی جون)
8:41 AM

8 نفر نظر دادن تا حالا! نظر شما چیه؟

ترکه یک سکه میندازه هوا، شیر میاد، فرار میکنه!! (جوک از طرف نازی جون)
8:38 AM

3 نفر نظر دادن تا حالا! نظر شما چیه؟

دوتا ترکه با لگد می‌زدند توی تخمهای همدیگه. یکی میاد بهشون میگه: شماها دردتون نمیاد؟ ترکا میگن: نه... پوتین پامونه!؟!!!!!!!!!
8:35 AM

4 نفر نظر دادن تا حالا! نظر شما چیه؟

یه روز یه مرده میره پیش دوستش و میگه: کیر الاغم بلند شده و هر کاری می‌کنم نمی‌خوابه! آب جوش می‌ریزم، فوت می‌کنم،یخ میزارم، لگد میزنم ولی اثر نداره. دوستش میاد هر کاری می‌کنه نمی‌تونه کیر الاغه رو بخوابونه. خلاصه یکدفعه صاحب الاغ متوجه میشه یه پر کاه رفته توی کون الاغه و همین باعث شده که کیرش راست بشه. موضوع رو به رفیقش می‌گه. رفیقش می‌گه: به هیچ‌کس این موضوع رو نگو. دوستش می‌گه: چرا؟ رفیقش می‌گه: اگه زنها این موضوع رو بفهمند کون همه مردها رو کاه‌دونی می‌کنند!(جوک از طرف نالوطی)
8:33 AM

7 نفر نظر دادن تا حالا! نظر شما چیه؟

دو تا زن جوون تو حموم عمومی باهم بودن، اولی به دومی (با لهجه شیرازی) میگه: قربونت او لیف رو بده من. زن دومی بهش میده. بعد
چند دقیقه، دوباره اولی میگه: قربونت او سفیدآب رو هم بده من. دومی سفیدآب‌ رو هم بهش میده. بعد دومی میپرسه: ببخشید خانم شما شیرازی نیستید؟ اولی میگه: اِاِاا... از لهجه شیرینم فهمیدی؟ یارو میگه: نه از کون گشادت!!!(جوک از طرف نالوطی)

8:30 AM

7 نفر نظر دادن تا حالا! نظر شما چیه؟

تهرونیه داشته دم مرگ پسرش رو نصحیت میکرده، میگه: پسرم، وقتی لای پاتو نگاه میکنی و دو تا تخم میبینی، یادت باشه که مردی. ولی اگه یک شب پاشدی دیدی چهارتا تخم لای پاته، یادت باشه که این دلیل خیلی مرد بودن نیست... این یعنی اینکه یکی داره کونت میذاره!!!( جوک از طرف نالوطی)

8:27 AM

archived

یارو پیرمرده میره دکتر، دکتره (علاوه بر نیم کیلو قرص و آمپول) براش آزمایش اسپرم مینویسه. پیرمرده میپرسه: دکتر جون، جریان این آزمایش اسپرم چیه؟ دکتره میگه: چیزی نیست پدرجان، شما این شیشه رو بگیر ببر خونه، شب یک حالی به خودت بده، نتیجه رو بریز تو این شیشه. خلاصه پیرمرده شیشه رو میگیره میره خونه، فردا برمیگرده مطب، دکتره میبینه شیشه همچنان خالیه. میپرسه: چی شد پدرجان، این شیشه که خالیه؟ پیرمرده میگه: نشد دکترجان.. نشد! دکتره میپرسه: یعنی چی نشد؟ پیرمرده میگه: والله من دیروز رفتم خونه، اول با دست راست امتحان کردم، ...نشد. بعد با دست چپ امتحان کردم، بازم نشد. بعد با دو دست... نشد که نشد! خانم روصدا کردم، خانم با دست چپ امتحان کرد، نشد. با دست راست امتحان کرد، نشد. حتی با دهن امتحان کرد، باز هم نشد! خلاصه کبری خانم زن همسایه رو صدا کردیم، ایشون با هر دو دست امتحان کردن، نشد... حتی گذاشتش لای زانوش... نشد که نشد! دکتره کف میکنه، میگه: خانم همسایه رو هم صدا کردین؟! پیرمرده میگه: بــعــلــه دکتر جون، خلاصه که هرچی چندنفری زور زدیم، در این شیشه صاب‌مرده باز نشد که نشد!
8:15 AM

archived

پسره با دوست دخترش اشتن از اون کارا می کردن!
دختره که خیلی حشری شده بود، میگه: عزیزم... بعد
ازدواج هم اینجوری بهم حال میدی؟ پسره میگه:
آره عزیزم... البته اگه شوهرت بیخودی گیر نده!
8:11 AM

archived

Monday, March 08, 2004

از یه رزمنده قدیمی می خوان از خاطرات دوران جنگ تعریف کنه! رزمنده سابق میگه: روز عملیات بود ما داشتیم پیش میرفتیم که یهو رسیدیم به سیم خواردار! سیما رو پاره کردیم پریدیم رو مینا! ای حال داد!!!!!!
2:39 PM

archived

Tuesday, February 17, 2004

یک روز یک بچه با مامانش میره حموم، کس مامانش رو نشون میده و میگه مامان اون چیه؟؟؟؟؟ مامانش میگه : اون شونه است . بچه میگه پس دسته اش کجاس؟ مامانه میگه: پیش باباته .!!!!(یاشار خطر!)
8:44 AM

archived

عزرائیل میره سراغ یه قزوینی در حال مرگ بهش میگه: میخوام جونت رو بگیرم! وصیتی نداری ؟ قزوینیه میگه: چرا ببم جان! نوشتم گذاشتم زیر فرش، دولا شو ورش دار!(کچل کفتر باز)
8:42 AM

archived

Saturday, February 14, 2004

یه برنامه چت باحال..... روز جمعه 1/12/1382 از ساعت 20 تا 24 منتظر شما هستیم! همگی اون موقع بیایید! میخوام بهتون یه چیز باحال بگم!!!... (امضا جوکر)
8:07 AM

archived

Wednesday, February 04, 2004

حکیمی در جنگی به اسارت در آمد! عدو حکیم را گفت: بکنیمت یا بکشیمت؟!!!! حکیم لختی اندیشید و عمری به سلامت زندگی کرد!!!!!!!!!(شیخ سعدی!)
11:07 AM

archived

میدونید چرا زنها از ماشین ماتیز خوششون میاد؟
خب معلومه! چون ماتیز کاپوت نداره!.... (از طرف رویا انچهره)
11:06 AM

archived

میدونید فرق لباس بافتنی با بچه پس انداختن چیه؟
لباس بافتنی رو با دو تا میله و یه کلاف می بافن! بچه رو با دو کلاف و یه میله!!!(از طرف مملی خوشکله)
11:04 AM

archived

Sunday, January 25, 2004

یه ترکه برای همدردی با زلزله زدگان بم موبایلشو میزاره رو ویبره!!!(از طرف آقاشریف)
11:22 AM

archived

Tuesday, January 20, 2004

یه جوک قدیمی و سیاسی:
یه پادشاه داشته از تو پنجره قصرش با دوربین شهر رو تماشا میکرده! یهو زوم میکنه تو حیات یه خونه ! میبینه یه مرد کون لخت داره به شدت سعی میکنه کیرشو برسونه به کونش! مامورهاش رو میفرسته طرف رو میارن، از طرف میپرسه: این چه کاریه میکنی؟ مرده میگه: والله ما هر کی رو کردیم وکیلی، وزیری، یا یه کاره مملکت شد! گفتم یه صفایی به خودم بدم شاید شاه شدم! (از طرف ناسا جون )
3:14 PM

archived

بچه ترکه میره پیش باباش با ناراحتی میگه: بابا چرا به ما میگن ترک خر؟
ترکه میگه اگه واقعا" میخوای بدونی بدو برو یه قابلمه بیار! بچهه میره یه قابلمه میاره میده به باباهه! باباهه قابلمه رو میگیره چند تا میزنه پشت قابلمه! بچهه که صدا رو میشنوه میگه: بابا دارن در میزنن! ترکه میگه خری دیگه! فهمیدی چرا به ما میگن ترک خر!.... ناراحت نشو بابا! حالا بیا این قابلمه رو بزار سر جاش در رو هم باز کن ببین کیه بود در زد!!!!!!! (از طرف ناسا جون )
3:07 PM

archived

Wednesday, January 14, 2004

یه زن حامله نمیتونست بشاشه، میبرنش سونوگرافی، میفهمن بچه ش پطرس فداکاره!!!!!!!!!!!!
7:40 AM

archived

Monday, January 05, 2004

ترکه در حال مرگ بوده ، پسراشو جمع میکنه دورش که نصیحتشون کنه! به نوکرش میگه نفری یه چوب بده دست پسرا! به پسرا میگه بشکونیدش! همه چوب رو میشکونن! به نوکرش میگه حالا نفری 2 تا چوب بده! بچه هاش 2 تا رو هم میشکونن!
همین طور پیش میرن تا میرسن به جایی که هر کدوم یه دسته چوب رو یه جا میشکونن! ترکه عصبانی میشه! داد میزنه: حیف که خرید وگرنه نصیحتتون میکردم! برین گم شین! (از طرف همون ترکه)
6:50 AM

archived

یه نفر تو اتوبوس کنار ترکه نشسته بود، میبینه ترکه داره میلرزه! میپرسه چرا میلرزی ترکه میگه: دارم میگوزم! می پرسه پس چرا صدا نداره میگه: گذاشتم رو ویبره!!!!!!!!!!!!!!!!!1 (الهام خانوم)
6:46 AM

archived

Tuesday, December 23, 2003

یارو زنه یک روز که شوهرش سرکار بوده و پسر ده سالشون هم مدرسه، زنگ میزنه به معشوقش که تا خونه خالیه یک حالی بکنند. خلاصه مرده پا میشه میاد و دو تایی مشغول کار خیر میشن، که این وسط پسره کلاسو دودر میکنه و پا میشه میاد خونه و با دیدن جریانات تو اتاق خواب، یواشکی میره تو کمدِ اتاق بابا ننه قایم میشه که خوب "اکشن" رو از نزدیک تماشا کنه! تو همین هیر و ویر، یهو آقای خونه هم تصمیم میگیره کار رو دودر کنه (تو پرانتزِ بی‌ربط: اینطور که پیش میره، ظاهراً ماجرا تو خونة ابافراخ اتفاق میافته!!)و پا میشه میاد خونه. زنه هم دست و پاشو گم میکنه و جناب معشوق رو میتپونه تو کمد. بعد یک مدت،پسره از تو کمد میگه:
- اینجا عجب تاریکه!
- آره.. خیلی تاریکه..
- من اینجا یک جفت دستکش دروازه‌بانی دارم
- ... خوبه.. خوش به حالت!
- میخریش؟
- نه مرسی، من دستکش لازم ندارم
- اونی که اون بیرونه بابای منه!
- ااه.. خیلی خوب.. چند میفروشی؟
- ده هزار تومن!
خلاصه مردک بدبخت هم از ترس کون ده هزار تومن اخ میکنه و دستکش پسره رو میخره. از قضای روزگار هفتة بعد همین ماجرا تکرار میشه و دوباره پدر وپسر تصمیم به دودر کار و کلاس میگیرن و باز جناب عاشق تو کمد گیر میکنه، و باز پسره بعد از یک مدت میگه:
- اینجا عجب تاریکه!
- آره.. خیلی تاریکه..
- من اینجا یک توپ فوتبال دارم..
مرده که تریپ هفتة پیش یادشه) آاای... لعنتی... چند؟
- بیست هزار تومن!
خلاصه باز مردک بدبخت، دست میکنه تو جیبش و پول رو میگذاره کف دست پسره. بعد یک هفته ازین ماجرا، یک روز باباهه به پسره میگه: اون بساط فوتبالت رو بردار، بریم تو پارک بازی کنیم. پسره میگه: بابایی من توپ و دستکشم رو فروخته‌م. بابایی(!) میگه: ااِه؟ چند فروختیشون؟ پسره میگه: دوتاشو 30 هزار تومن! باباهه خیلی ناراحت میشه، میگه: پسرجون تو نباید هم کلاسیاتو اینجور تیغ بزنی. و خلاصه ازونجایی که کاتولیک قهاری بوده، دست پسره رو میگیره میبره کلیسا که اعتراف کنه. خلاصه میرن تو کلیسا و باباهه پسره رو میفرسته تو اتاقک اعتراف و درو از پشت میبنده. بعد یک مدت، پسره میگه: اینجا عجب تاریکه! ...یهو کشیشه از اونور داد میزنه: ای کــس‌عــمـــت!!.. باز شروع نکن!!!
(از طرف زهرا جیگر)

این هم لینک یکی وبلاگ موضوع آن در مورد هک وآنتی هک میباشد

http://hs-hacker.blogsky.com

میتونید یک سری بزنید

سلام دوستان اگر نظری یا مشکلی دارین با ما در ارتباط باشید

[e-mail]

تشخیص فشرده شدن کلیدهای کیبرد

سلام
دوستان عزیز
یکی از دوستان سوال کرده بودند که چگونه می توان کلیدهای کیبرد را حتی وقتی فوکوس روی برنامه ما نیست تشخیص داد مانند دیکشنری ها که مثلاً با CTRL+F12 فعال می شوند و یا Keylogger ها که کلیدهای فشرده شده را ثبت می کنند .
من دو روش زیر را برای اینکار پیشنهاد می کنم :

۱ - استفاده از یک تابع کتابخانه ای به اسم  GetAsyncKeyState موجود در کتابخانه user32.dll . این تابع ، فشرده شدن یا رها شدن یک کلید را تشخیص می دهد . نحوه declare کردن این تابع بصورت زیر است :

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

حال در برنامه تان یک timer قرار داده و در event آن کد زیر را قرار دهید :

    For i = 1 To 255
        results = 0
        results = GetAsyncKeyState(i)
        If results <> 0 Then
           Msgbox(Chr(i))
        End If
    Next

برای مشاهده یک برنامه نمونه به این آدرس مراجعه کنید .

۲ - استفاده از قلاب یا Hook : قلاب ، یک ابزار در مکانیزم مدیریت پیغام سیستم ویندوز است که توسط آن برنامه ها می توانند یک روتین را برای مدیریت و پردازش پیغامهای خاصی قبل از اینکه آن پیغامها به برنامه مقصد برسند نصب نمایند . قلابها باعث کندی سیستم می شوند زیرا حجم پردازشی سیستم روی هر پیغام را افزایش می دهند بنابراین بایستی زمانیکه واقعاً به قلاب نیاز دارید آنرا نصب نموده و هر چه زودتر آنرا حذف نمایید . سیستم ویندوز از انواع زیادی از قلابها پشتیبانی می کند که هر کدام امکان دستیابی به پیغامهای خاصی را مهیا می نمایند برای مثال یک برنامه کاربردی می تواند با استفاده از قلاب کیبرد برای مدیریت و پردازش پیغامهای مربوط به آن ( مثل فشرده شدن یک کلید خاص یا رها شدن آن ) استفاده کند .
برای نصب یک قلاب در برنامه از یک تابع کتابخانه ای به اسم SetWindowsHookEx استفاده می شود . این تابع یک قلاب را به زنجیره قلابهای سیستم اضافه می کند . نحوه declare کردن این تابع بصورت زیر است :

Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

همچنین برای آزاد کردن یک قلاب و حذف آن از زنجیره قلابها از تابع کتابخانه ای UnhookWindowsHookEx استفاده می گردد . نحوه declare کردن این تابع بصورت زیر است :

Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

برای ایجاد قلاب کیبرد همچنین نیاز به تعریف یک ثابت است که شماره قلاب کیبرد در آن قرار دارد :

Public Const WH_KEYBOARD = 2

حال بایستی یک تابع پس زمینه یا Callback Function نوشت که به ازای فشرده شدن کیبرد اجرا شود و آدرس آنرا ( با استفاده از کلمه کلیدی Address Of ) بهمراه ثابت فوق به تابع SetWindowsHookEx فرستاد .

برای اطلاعات بیشتر و مشاهده یک نمونه برنامه به این آدرس مراجعه کنید .

http:\shhacker.blogsky.com
دوستان با سلام
خیلی ممنونتون میشوم اگر لینک وبلاگ من را درسایت خودتون قرار بدهید

نمودارهای مدل شی ء : (Object Model)

با سلام خدمت دوستان عزیز
برنامه نویسی VBA مستلزم درک بسیاری از وجوه دنیای برنامه نویسی است. برنامه نویسان امروز ، برنامه های بزرگ را به سری هایی از اشیاء تقسیم کرده اند که با همدیگه کار می کنن. یک برنامه نویس تقریباً توانایی هر کاری را حواهد داشت. می تونید متنی را در Word گنجونید، تماسهایی را در OutLook ذخیره کنید و البته بسیاری از قابلیتهای دیگه. شما می توانید از این مدل ها در VB نیر استفاده کنید. مرجعی را که در این مورد دیدم کتاب آموزش و راهنمای ویژوال بیسیک 5و6 نوشته دان رامل و به ترجمه داریوش فرسائی است. از انتشارات مؤسسه علمی تحقیقاتی زند. البته یک مرجع است نه یک کتاب آموزش دهنده !!!
برای نمونه یک سورس می نویسم که شما می تونید با اون از طریق Internet Explorer به سایت مورد نظرتون از داخل برنامه خودتون وارد بشید :
این کد را در قسمت Form / General بنویسید

(Private Sub OpenUrl (URLName As String
Dim objIE As Object
("Set objIE = CreateObject ("internetexplorer.application
objIE.Visible = True
((objIE.Navigate (Trim(URLName
End Sub

بعد یک Command و یک Textbox روی صفحه بزارید و خصوصیت Name اونها رو به ترتیب cmdGOو txtURLName قراربدید ، بعد هم می تونید با نوشتن کد زیر در رویداد Click مربوط به cmdGo به هر صفحه ای که در ابنترنت دوست دارید دسترسی داشته باشید. به همین سادگی !

( )Private Sub cmdGO_Click
(Call OpenUrl (txtURLName
End Sub

در این کد شما از مدل شی ء Internet Explorer استفاده کردید که ما از دوصفت اون یعنیVisible برای نمابش IE و Navigate برای فراخوانی URL مورد نظر استفاده کردیم. در فرصت های بعدی سعی می کنم در مورد توابع API وبعد هم مجموعه کتابخانه قدرتمند WMI یا به عبارتی Windows Management Instrumentation یعنی ابزار مدیریت ویندوز صحبت کنم .

-> منتظر سؤالات شما هستم.

موضوع : ‌ترسیم متن دو بعدی در DirectX

در این درس روش ترسیم متن با دو نوع فونت را نشان خواهم داد :
برای رسم یک متن با فونت تعریف شده در سیستم از شی D3DXFont استفاده می کنیم :

Dim MainFont as D3DXFont
Dim MainFontDesc as IFont
Dim TextRect as RECT
Dim fnt as new stdFont

در حالیکه برای ایجاد یک متن با فونت custom ابتدا یک texture تعریف می کنیم :

Dim fntTex as Direct3DTexture8

همچنین برای ترسیم هر کاراکتر یک آرایه vertex ای را از نوع TLVERTEX تعریف می نمائیم :

Dim vertchar(3) as TLVERTEX

حال به سراغ تابع Initialize می رویم . در این تابع ابتدا دستورات مربوط به ایجاد اشیا D3D و D3Dx را قرا دهید سپس دستورات مربوط به اختصاص آداپتور و نیز ایجاد شی D3DDevice را انجام می دهیم . حال دستورات تنظیم shader و rendering را می آوریم :

D3DDevice.SetVertexShader TL_FVF
D3DDevice.SetRenderState D3DRS_LIGHTING, False

سپس تنظیمات پارامترهای transparency برای rendering را انجام می دهیم :

D3DDevice.SetRenderState D3DRS_SRCBLEND, D3DBLEND_SRCALPHA
D3DDevice.SetRenderState D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA
D3DDevice.SetRenderState D3DRS_ALPHABLENDENABLE, True

حال بایستی textureرا طوری فیلتر کنیم که در زمان stretch شدن یا squash شدن بهتر بنظر برسد :

D3DDevice.SetTextureStageState 0, D3DTSS_MAGFILTER, D3DTEXF_LINEAR
D3DDevice.SetTextureStageState 0, D3DTSS_MINFILTER, D3DTEXF_LINEAR

حال فیلتر Z را فعال می کنیم :

D3DDevice.SetRenderState D3DRS_ZENABLE, 1

سپس ماتریسهای world ، view و projection را تنظیم می کنیم :

D3DXMatrixIdentity matWorld
D3DDevice.SetTransform D3DTS_WORLD, matWorld
D3DXMatrixLookAtLH matView, MakeVector(0, 9, -9), MakeVector(0, 0, 0), MakeVector(0, 1, 0)
D3DDevice.SetTransform D3DTS_VIEW, matView
D3DXMatrixPerspectiveFovLH matProj, pi / 4, 1, 0.1, 500
D3DDevice.SetTransform D3DTS_PROJECTION, matProj

حال به بخش تنظیم پارامترهای فونت می رسیم . در مورد فونت دو بعدی عادی :

fnt.Name = "Verdana"
fnt.Size = 18
fnt.Bold = True
Set MainFontDesc = fnt
Set MainFont = D3DX.CreateFont(D3DDevice, MainFontDesc.hFont)< /FONT >

و در مورد فونت custom :

Set fntTex = D3DX.CreateTextureFromFileEx(D3DDevice, yourfilename, 256, 128, D3DX_DEFAULT, 0, D3DFMT_UNKNOWN, D3DPOOL_MANAGED, D3DX_FILTER_POINT, D3DX_FILTER_POINT, &HFF00FF00, ByVal 0, ByVal 0)
end function

روتین Render بصورت زیر خواهد بود :

Public Sub Render()
D3DDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET Or D3DCLEAR_ZBUFFER, 0, 1#, 0
D3DDevice.BeginScene

برای رندر متن با فونت عادی بصورت زیر عمل می کنیم :

TextRect.Top = 440
TextRect.Left = 1
TextRect.bottom = 480
TextRect.Right = 640
D3DX.DrawText MainFont, &HFFCCCCFF, "Current Frame Rate: " & FPS_Current, TextRect, DT_TOP Or DT_CENTER

برای رندر متن با فونت custom بصورت زیر عمل می کنیم :

RenderStringFromCustomFont_2D "Hamed Sheidaian", 1, 1, 16, 16
D3DDevice.EndScene
D3DDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub

همانطور که مشاهده می کنید از روتینی با نام RenderStringFromCustomFont_2D استفاده شده است :

Private Sub RenderStringFromCustomFont_2D(strText As String, startX As Single, StartY As Single, Height As Integer, Width As Integer)
Dim I As Integer
Dim CharX As Integer, CharY As Integer
Dim Char As String
Dim LinearEntry As Integer
If Len(strText) = 0 Then Exit Sub
For I = 1 To Len(strText< /FONT > )

1 - ابتدا بایستی مختصات texture را انتخاب کنیم . برای اینکار بایستی هر entry را در texture جدا کنیم :

Char = Mid$(strText, I, 1)
If Asc(Char) >= 65 And Asc(Char) <= 90 Then
LinearEntry = Asc(Char) - 65
ElseIf Asc(Char) >= 97 And Asc(Char) <= 122 Then
LinearEntry = Asc(Char) - 71
ElseIf Asc(Char) >= 48 And Asc(Char) <= 57 Then
LinearEntry = Asc(Char) + 4
ElseIf Char = " " Then
LinearEntry = 63
ElseIf Char = "." Then
LinearEntry = 62
ElseIf Char = ";" Then
LinearEntry = 66
ElseIf Char = "/" Then
LinearEntry = 64
ElseIf Char = "," Then
LinearEntry = 65
End If

بعد از مقداردهی LinearEntry بایستی مختصات grid کاراکتر را پردازش کنیم :

If LinearEntry <= 15 Then
CharY = 0
CharX = LinearEntry
End If
If LinearEntry >= 16 And LinearEntry <= 31 Then
CharY = 1
CharX = LinearEntry - 16
End If
If LinearEntry >= 32 And LinearEntry <= 47 Then
CharY = 2
CharX = LinearEntry - 32
End If
If LinearEntry >= 48 And LinearEntry <= 63 Then
CharY = 3
CharX = LinearEntry - 48
End If
If LinearEntry >= 64 And LinearEntry <= 79 Then
CharY = 4
CharX = LinearEntry - 64
End If

2 - حال بایستی vertex های مورد نیاز برای رسم کاراکتر را تولید کنیم :

vertChar(0) = CreateTLVertex(startX + (Width * I), StartY, 0, 1, &HFFFFF
(F,0,(1/16)*CharX,(1/8)*CharY
vertChar(1) = CreateTLVertex(startX + (Width * I) + Width, StartY, 0, 1, &HFFFFF
(F, 0,((1 / 16) * CharX) + (1 / 16), (1 / 8) * CharY
vertChar(2) = CreateTLVertex(startX + (Width * I), StartY + Height, 0, 1, &HFFFFF
((F, 0, (1 / 16) * CharX, ((1 / 8) * CharY) + (1 / 8
vertChar(3) = CreateTLVertex(startX + (Width * I) + Width, StartY + Height, 0, 1, HFFFFFF, 0, ((1 / 16) * CharX) + (1 / 16), ((1 / 8) * CharY) + (1 / 8))

3 - رندر vertex ها :

D3DDevice.SetTexture 0, fntTex
D3DDevice.DrawPrimitiveUP D3DPT_TRIANGLESTRIP, 2, vertChar(0), Len(vertChar(0))
Next I
End Sub

ویژوال بیسیک

عنوان : ترسیم اشیا سه بعدی با استفاده از شی Mesh

directx vb 3d game

Link

سلام
یک برنامه با ویژال بیسیک ساختم در حد مقدماتی که سریال ها ویندوز را نشون میده
اگر کسی خواست میتونم براش میل کنم
تو نظرات نظر خودتون را در این رابط به من بگویید

زبان برنامه نویسی ویژوال بیسیک (جلسه دوم )

خوب می خواهیم ساخت  اولین برنامه را در VB شروع کنیم . برای این کار می خواهیم برنامه بنویسیم کا به کاربر سلام کند . در ابتدا باید یک کنترل مخصوص روی فرم قرار دهیم که بتوانیم در آن متنی بنویسیم . خوب کنترل Label همان چیزی است که  ما می خواهیم . از جعبه ابزاری که در سمت چپ صفحه است آیتمی را که روی آن حرف A نوشته شده انتخاب کنید . سپس نشانگر موس را روی فرم در حال طراحی قرار دهید و کلید سمت چپ موس را فشار داده پایین نگه دارید و موس را کمی تکان دهید . می بینید که هرگاه موس را به نقطه جدیدی می برید مستطیلی فرضی همراه با مختصات جدید نسبت به مختصات نقطه اول که روی فرم کلیک کردید رسم می شود . زمانی که دیدید مستطیل فرضی با اندازه ای که شما در نظر گرفته اید مطابقت دارد دکمه موس را رها کنید . حالا یک برچسب یا همان label روی فرم شما هست که روی آن نوشته شده Label1 . خوب ما باید متن روی آن را عوض کرده و hello بگذاریم . اما قبل از این کار باید مطلب مهمی را برای شما بگویم .

البته برای قرار دادن کنترل ها روی یک فرم راه دیگر هم هست کافیس روی نماد یا همان آیکن آن کنترل در جعبه ابزار دوبار کلیک (Double Click) کنید . آن گاه دقیقا در وسط فرم شما آن کنترل جدید در یک اندازه استاندارد ظاهر می شود و شما می توانید براحتی مکان و اندازه آن را تغییر دهید .

             خوب ، همانطور که در دنیای طبیعی هر شیئی یک سری خاصیت دارد . در دنیای ویژوال بیسیک هم اشیاء یا همان کنترل ها دارای خاصیت هستند .مثلا اگر دفتر شما دارای عرض و طول مشخصی است . هر کنترل در ویژوال بیسیک هم چنین خاصیتی دارد . اما در ویژوال بیسیک این مسئله کمی متفاوت است زیرا شما می توانید خواص یک کنترل یا حتی یک فرم را هر وقت که خواستید تغییر دهید . ( اگر با دفتر هم می شد چنین کاری کرد خوب بود ! ) . خواص از 2 طریق کلی قابل کنترل و تغییر هستند . اول این که خواص یک کنترل را قبل از اجرا و از طریق پنجره Properties تعیین کنید و دوم این که خواص را در زمان اجرای برنامه و در حالی که کاربر در حال استفاده از برنامه است از طریق کد نویسی تغییر و تعیین کنید . بهتر است با پنجره properties بیشتر آشنا شویم .  در این پنجره یک لیست کشویی از کنترل هایی که روی فرم استفاده کرده اید قرار دارد . اگر با استفاده از این لیست یا کلیک کردن روی یک شیئ آن شیئ را انتخاب کنید . تمامی خواص مربوط به آن در لیست بزرگی نمایش پیدا خواهد کرد . مثلا ما روی Label1 کلیک میکنیم . می بینیم که بعضی خواص آن با خواص فرم متفاوت است . ( برای دیدن خواص فرم هم در این پنجره باید از روش های بالا استفاده کنید . ) خوب حالا با خواص آشنا شدیم حال بهتر است با یکی از معروف ترین آن ها یعنی Caption آشنا شویم . caption در واقع متنی است که روی بیشتر کنترل ها ظاهر نوشته می شود . تا به کاربر بفهماند این کنترل برای چیست . مثلا کلمه label1 که روی برچسبی که ساختید وجود دارد یا کلمه OK  یا cancel که روی بعضی از دکمه ها در ویندوز می بینید ، در واقع همان  Caption کنترل ها هستند . حال باید caption کنترل ,label1  را تغییر دهیم و به جای آن Hello  بگذاریم .

            قبل از ادامه این نکته مهم را به خاط بسپارید : همه کنترل ها خاصیت Name  دارند ولی فقط بعضی از آن ها خاصیت caption دارند. و این دو خاصیت به طور کامل با هم متفاوت هستند . Name خاصیتی است که ویژ.ال بیسیک از طریق آن ، آن کنترل را در کد ها و برنامه هایی که نوشته اید می شناسد و در واقع خاصیتی است که در کد نویسی با آن سرو کار دارید . اما Caption فقط یک خاصیت عادی است که در واقع همان متنی است که روی بعضی از کنترل ها به نمایش در می آید . خوب همانطور که گفته شد خاصیت ها می توانند هم در زمان طراحی نرم فازار و هم در زمان اجرای آن و در واقع از طریق کد ها تغییر داده شوند . ما در این جلسه با کد ها سر و کار نداریم ، بلکه می خواهیم خاصیت Caption این بر چسبی را که ساخته ایم عوض کنیم . پس به پنجره properties  که در مورد آن قبلا توضیخ داده شده می رویم . در این پنجره یک لیست وجود دارد که از دوستون و تعداد زیادی ردیف تشکیل شده . در ستون اول یا همان ستون سمت چپ خاصیت و در ستون سمت راست مقدار و محتوای آن خاصیت قرار گرفته است . خوب گفتیم برای آن که خاصیت های یک کنترل را ببینیم باید آن را انتخاب کنیم . مراحل زیر را دنبال کنید تا تغییرات لازم اعمال شود :

1-) خوب برچسب با همان Label1 را از طریق لیست باز شوی بالای پنجره properties و یا با کلیک کردن روی خودش به حالت انتخاب در آورید . می بینید که لیست خاصیت ها و مقادیر آن ها در پنجره Properties نمایان می شود در ضمن نام این کنترل یعنی Label1 هم در لیست باز شوی این پنجره قرار گرفته است .

2-) روی خاصیت caption کلیک کرده و در خانه روبروی آن که مخصوص مقدار و محتوای  این خاصیت است کلمه Hello را تایپ کنید . می بینید که متن رویlabel  در حالت طراحی هم تغییر می کند .

3-) در مرحله بعد می خواهیم برنامه Trace یا آزمایش کنیم . و ببینیم در حالت اجرا چه وضعی دارد . کافیست دکمه مثلث آبی رنگی را که در نوار ابزار بالای صفحه قرار دارد و مانند دکمه پخش ، رادیو ضبط است را کلیک کنید. نام این دکمه start یا همان شروع است . اکنون محیط ویژوال بیسیک کمی تغییر می کند و فرمی دقیقا مانند آن چیزی که در مرحله طراحی داشتید روی صفحه نمایان می شود ( و البته بدون آن نقطه های سیاه به ظاهر مزاحم ، که بعدا در مورد آن ها مفصل صحبت خواهم کرد . ) . خوب برنامه شما در محیط ویژوال بیسیک در زمان Trace باید چیزی مانند این عکس باشد .

خوب برای بازگشت به محیط ویژوال بیسیک باید دکمه End یا همان پایان را که در کنار دکمه اجرا ( همان مثلث آبی پخش معروف ) قرار دارد کلیک کنید . حالا به محیط ویژوال بیسیک باز می گردید . در درجه اول پروژه خود را به همان طریقی که گفتم ذخیره کنید ، یا با کلیک کردن روی دکمه ای که عکس یک دیسکت روی آن است و در نوار ابزار قرار دارد روند ذخیره پروژه خود را همان طور که قبلا گفته شد دنبال کنید .

خوب سعی کنید این برنامه را در شکل های مختلف تمرین کنید . در برنامه بعد تک تک اجزای ویژوال بیسیک و همچنین مقدمه ای از کدنویسی را توضیح خواهم داد .

(ادامه در دروس بعدی ... )

قدم اول، نصب ویژوال بیسیک.

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

فکر کنم تمام نسخه‌هایی که تو ایران یافت میشه از یک جایی مثل چین یا مالزی اومده، تازه اون هم نسخه قفل شکسته است.
ولی فکر نکنید فرقی میکنه‌ها، اگه کلی پول بدین نسخه اصلیش رو بخرید فقط یه حسن داره و اون اینه که اگه یه وقت در موقص نصب یا کار مشکلی داشتید میتونید زنگ بزنید ماکروسافت و از گروه خدمات پشتیبانی ماکروسافت کمک بخواین.

ما نسخه 6 ویژوال بیسیک رو نصب می‌کنیم. این نسخه رو توی بازار می‌تونید در یک سی‌دی بخرید که در مجموعه کاملی به نام Visual Studio 98 یافت می‌شود.

شکل 2-1
ویژوال بیسیک را می‌توانید در مجموعه ویژوال استودیو پیدا کنید.

مجموعه Visual Studio یک سری برنامه داره مثل فاکس پرو و ویژوال سی و ویژوال بیسیک که ما فقط ویژوال بیسیک اون رو می‌خوایم.

این رو هم از قبل بدونید که این مجموعه ناقصه. یعنی فایلهای راهنما (Help) در این مجموعه وجود نداره. اگه این مجموعه رو بخواین باید دوباره برین بازار و مجموعه MSDN رو بگیرید. (این مجموعه کل کتابخانه راهنمای برنامه‌نویسان ماکروسافته که توی بازار ایران در بسته‌های 4 سی‌دی تا 8 سی‌دی دیده شده.)

ولی من توصیه نمیکنم چون هم باید کلی پول بالاش بدین هم اینکه اگه دارین این نوشته‌ها رو می‌خونید یعنی که به اینترنت دسترسی دارین و می‌تونید کلی مثال آماده و راهنماهای عالی توی اینترنت پیدا کنید.

یک راه ساده‌تر هم داره. از یکی از دوستاتون که ویژوال بیسیک رو داره بگیرین نصب کنید و بعد پسش بدید. توی اکثر سی‌دی‌های مجموعه برنامه که فروخته میشه هم یک ویژوال بیسیک کوچولو یافت همی‌شود که اون هم خوبه اگه نصب کنید کفایت امر می‌کند.

نصب آغاز شد.
با قرار دادن سی‌دی درون دستگاه و یا دو بار کلیک کردن بر روی آیکون برنامه نصب ویژوال استودیو برنامه نصب ظاهر می‌شود.

مراحل نصب تقریبا سر راست و مشخصه

1- بعد از شروع نصب و یکی دو مرحله فشار دادن دکمه Next و قبول کردن مفاد قرارداد ماکروسافت (I Accept the agreement) و وارد کردن شماره سریال از شما نوع نصب پرسیده می‌شود. در این مرحله نصب اختصاصی (Custom) را انتخاب کرده و دکمه Next را فشار دهید.

شکل 2-2
گزینه نصب اختصاصی (Custom) را انتخاب کنید.

2- پس از چند مرحله به صفحه‌ای وارد می‌شوید که گزینه‌های نصب را می‌توان انتخاب نمود. در این صفحه تنها مواردی که لازم است انتخاب باشد عبارتند از:  Visual Basic, Data Access, Tools
دقت کنید که گزینه Tools بطور کامل نصب گردد. (اگر گزینه‌ای بصورت خاکستری باشد به معنی نصب بخشی از آن و اگر سفید و علامت خورده باشد به معنی نصب کامل می‌باشد. در این بخش با یکبار برداشتن تیک کنار Tools و دوباره قرار دادن آن Tools بطور کامل نصب می‌گردد.)

شکل 2-3
گزینه‌های مورد نیاز (Visual Basic, Data Access, Tools)

3- پس از چند لحظه صبر برنامه نصب به پایان رسیده و ممکن است از شما برای شروع مجدد ویندوز سوال کند که بهتر است قبل از هر کاری ویندوز را ریست کرد.

شکل 2-4
پس از چند لحظه صبر ویژوال بیسیک نصب می‌شود.

ویژوال بیسیک نصب شده است.
آخرین نکته هم اینکه اگر در موقع نصب از شما در مورد نصب Visual Source Safe سوال کرد حتما نصب نکنیدش، کلا چیز بیخودیه.

شروع به کار
در قسمت بعد شروع به برنامه‌نویسی با ویژوال بیسیک می‌کنیم.