جستجوی مطالب

لیست مقالات

لوگوی دوستان

پیوندها

گفتگوی آنلاین

دنیای ویژوال بیسیک

به نام آفریننده ایران زمین

فرا رسیدن نوروز باستانی ,  یاد آور شکوه ایران و یادگار جمشید جم

 بر همه ایرانیان پاک پندار , راست گفتار و نیک کردار خجسته باد

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

در انتظار وب سایتی بی نظیر , با محتوا و جذاب باشید

شاد و پیروز باشید

.:. فروشگاه آنلاین ایران زمین .:.

 قابل توجه بازدیدکنندگان :

این وبلاگ با تمامی امکانات و مطالب و سورس کد ها و برنامه های جانبی به فروش میرسد

جهت دریافت اطلاعات بیشتر  مشخصات خود را در قسمت نظرات درج کنید تا در اسرع وقت

با شما تماس گرفته شود

شاید این آخرین مطلب در رابطه با ویروس نویسی و غیره باشه . حس میکنم که نوشتن و ننوشتن این مطالب برای کسی جالب نیست . . . حداقلش که خودم این طوری فکر میکنم . . . چرا که جز ۳-۴ تن از بازدیدکنندگان که نظرات خودشونو نسبت به مطالب و وب سایت مطرح کرده اند , بقیه فقط درخواست برنامه و پروژه وغیره بوده که خوشبختانه تا الان به  تمامی برنامه  ها و پروژه های درخواستی و سوالات رسیدگی شده  دیگه سرتونو درد  نیارم بریم سراغ شاید آخرین مطلب :

چون مباحث پایگاه داده خیلی داغ شده بود.گفتم یک کم از این موضوع فاصله بگیرم.چوم اکثر افراد بازدید کننده کار پایگاه داده را به صورت حرفه ای دنبال نمیکنند.و اکثراً متمرکز بر روی کدهای سیستمی و API هستند.این مطلب هم برای کارهای شبکه نیز مفید میباشد.چون کارش تشخیص اتصال به اینترنت است.از طرفی هم به درد طرف داران کرم بلستر است که با تشخیص اتصال به اینترنت عملیات مخرب خود را انجام میدهد.خلاصه اینکه این مطلب به مفید برای زیر و درشت و حرفه ای و غیر حرفه ای است 

ابتدا این توابع و تعاریف را در داخل ماژول قرار دهید.

این هم یک برنامه واقعا عالی که برای ویروس نویسها نوشتم چون یه مدت پیش یک دوستی میخواستند ویروسی بنویسد که یک فایل را در سراسر پوشه های یک داریو کپی کنداین برنامه را مناسب دیدم.این برنامه را بعد از چند مدت تونستم API اون را گیر بیارم و خیلی ساده برنامه را بنویسم که بتونه کلیه پوشه ها و زیر پوشه داخل یک داریو را بیرون بکشه و در یک لیست باکس نمایش بده بعد از اون دیگه کار ساده هست با یک حلقه for ساده یک فایل را در سراسر این مسیر ها کپی کنید. اما چگونه؟ تابع GetFileAttributes که در هسته مرکزی واقع شده و به صورت زیر تعریف میشه این عمل را امکان پذیر میکنه .در مرحله بعد یک تابع نوشتم که این Api را با گرفتن مسیر و دیگر بخشها فراخوانی میکند.و کد اجرای تابع هم در کلیک یک دکمه واقع شده در ضمن این که یک لیست باکس کوچیک هم برای نمایش نتایج به فرم اضافه کنید .سپس هر کاری دوست داشتید با نتایج جستجو انجام دهید.در واقع این اساس کار ویروس Folder.htt هست که خودش را در همه جا تکثیر میکنه.در مطالب بعدی هم نحوه برنامه نویسی مقیم در حافظه را که در توابع اصلی بدون دید کاربر هست آموزش خواهم داد. در آخر هم این نکته را اضافه کنم که نوشتن ویروس کار پسندیده و جالبی نیست و این نکته فقط جنبه آموزشی داشت.

مقدمه : ساختارهاي داده اي از نظر تعداد اعضا به دو دسته استاتيک و ديناميک تقسيم مي شوند . ساختارهاي استاتيک مثل آرايه هاي يک بعدي و آرايه هاي دو بعدي ، تعداد اعضاي آنها در زمان طراحي برنامه مشخص مي شود و در طول اجراي برنامه ثابت است اما تعداد اعضاي ساختارهاي داده اي ديناميک در طول اجراي برنامه تغيير مي کند . ليست پيوندي ( LinkList ) ، پشته ( Stack ) ، صف ( Queue ) و درختهاي باينري ( Tree Binary) ، نمونه هايي از ساختارهاي داده اي ديناميک هستند .
ليست پيوندي شامل مجموعه اي از عناصر داده اي است که اضافه و حذف اعضا در هر جاي ليست ممکن است .
پشته يک ساختار داده اي مهم در کامپايلرها و سيستم هاي عامل است که عمل اضافه و حذف عناصر از ابتداي آن انجام مي شود .صف يک ساختار داده اي است که عمل اضافه کردن از انتها و عمل حذف کردن از ابتداي آن انجام مي شود . درختهاي دودويي براي جستجوي بسيار سريع ، ذخيره سازي داده ها و کامپايل عبارات استفاده مي شوند .

ليست پيوندي :همانطور که گفته شد ليست پيوندي مجموعه اي از يکسري داده است که اين داده ها از نوع اشيا خودارجاعي هستند . ( هر شي خودارجاعي داراي يک متغير نوع variant براي نگهدار مقدار و يک اشاره گر به شي بعدي است ) . هر عضو ليست پيوندي را يک گره گويند . هر ليست پيوندي از طريق يک اشاره گر به اولين گره قابل دسترسي است . گره هاي بعدي از طريق قسمت لينک موجود در هر گره قابل دسترس هستند . همچنين لينک آخرين گره با Nothing تنظيم مي شود که انتهاي ليست را نشان مي دهد .
مزيت اصلي ليست هاي پيوندي نسبت به آرايه اينست که تعداد عناصر ليست پيوندي قابل تغيير است . بعبارت ديگر ليست هاي پيوندي بصورت ديناميک هستند و طول آنها قابل تغيير است اما سايز آرايه ثابت است . ( البته ويژوال بيسطک از آرايه هاي با سايز متغير نيز پشتيباني مي کند اما اين عمل تغيير سايز اتوماتيک نيست .)
عمل درج در ليست پيوندي ساده است و تنها بايستي دو اشاره گر تغيير يابد .
ليست هاي پيوندي را مي توان به سادگي با قراردادن هر عضو جديد در محل صحيح بصورت sortشده نگهداري کرد .  اعضاي ليست پيوندي در حافظه بصورت پيوسته ذخيره نمي شوند بنابراين نمي توان فوراً به هر عضو ليست دسترسي داشت ( بر خلاف آرايه ) .
براي ايجاد ليست پيوندي در ويژوال بيسيک نياز به سه کلاس است :

ابتدا کلاسهايي که در جلسه قبل معرفی شد را به پروژه تان اضافه کنيد . سپس در بخش کدنويسی فرمتان ، ابتدا يک شی از نوع کلاس Clist بصورت زير تعريف کنيد :

Dim list as New Clist

در فرمتان سه CommandButton با نامهای AddFirst ، AddLast و ShowList و نيز يک TextBox با نام ListMember قرار دهيد . کد زير را برای رويداد کليک شدن دکمه AddFirst بنويسيد :

Call list.InsertAtFront(ListMember.text)x

کلاس پشته :همانطور که در بخش قبل گفته شد پشته نوعی ليست پيوندی است که گره هاي جديد فقط به انتهاي آن اضافه شوند . روالهاي اصلي پشته Push و Pop هستند .
Push يک گره جديد به بالاي پشته اضافه مي کند و Pop از بالاي پشته گره اي را حذف کرده و مقدار داده آن را بر مي گرداند .
يک کلاس پشته را با استفاده از کلاس Clist و بصورت زير پياده سازي مي کنيم :

صف :صف نوعي ساختار داده اي است که گره ها از ابتداي صف ( سر صف head ) حذف مي شوند و از انتهاي صف ( ته صف tail ) اضافه مي شوند . بنابر اين ، صف يک ساختار داده اي FIFO است . صف دارای دو متد به نامهای AddQueue و DelQueue است که اولین متد ، عنصری را به انتهای صف اضافه می کند و دومين متد ، عنصری را از ابتدای صف حذف می کند .
براي ايجاد کلاس Cqueue از کلاس Clist استفاده مي کنيم :

کلاس درختهای جستجوی باينری :برای ايجاد درختهای جستجوی باينری در ويژوال بيسيک نياز به ايجاد دو کلاس داريم :1 - کلاس CTreeNode که هر ند درخت دودويي را توصيف می کند . اين کلاس دارای يک متغير به نام mNodeData از نوع Variant برای نگهداری داده هر گره است . همچنين دارای دو متغير اشاره گر به نامهای mLeft و mRight می باشد که به ترتيب به فرزند چپ و فرزند راست درخت اشاره می کنند . متد Get Data مقدار داده هر گره را بر می گرداند و متد Let Data مقدار داده هر گره را تنظيم می کند .
متد Get Left آدرس فرزند چپ هر گره را برمی گرداند و متد Let Left فرزند چپ هر گره را تنظيم می کند .
متد Get Right آدرس فرزند راست هر گره را برمی گرداند و متد Let Right فرزند راست هر گره را تنظيم می کند .
متد Insert برای اضافه کردن فرزند به يک گره به کار می رود . اگر مقدار گره ای که می خواهيم بعنوان فرزند به درخت اضافه کنيم کوچکتر از مقدار خود گره باشد بعنوان فرزند چپ و در غير اينصورت بعنوان فرزند راست به گره اضافه می شود . اضافه شدن نيز بدين صورت است که ابتدا بررسی می شود آیا گره قبلاً فرزندی داشته است يا نه ؟ اگر نداشته باشد ( mLeft و يا mRight برابر Nothing باشد ) اين گره جديد مستقيماً به گره متصل می شود اما اگر گره قبلاً فرزندی داشته باشد متد Insert برای آن فرزند اضافه می شود و اينکار تا جايی ادامه می يابد که به گره ای برسيم که فرزندی نداشته باشد :

انواع روشهای پيمايش عناصر درخت : ۱ - روش InOrder : در اين روش ابتدا عناصر نيمه سمت چپ درخت ، سپس ريشه و در آخر عناصر نيمه سمت راست درخت نمايش داده می شوند .
۲ - روش PreOrder : در اين روش ابتدا ريشه درخت ، سپس عناصر نيمه سمت چپ و در پايان عناصر نيمه سمت راست درخت نمايش داده می شوند  . ۳ - روش PostOrder : در اين روش ابتدا عناصر نيمه سمت چپ درخت ، سپس عناصر نيمه سمت راست درخت و در پايان ريشه درخت نمايش داده می شوند .
بررسی متدهای کلاس CTree :
متد InsertNode : اگر گره ريشه برابر Null باشد value را برابر مقدار گره ريشه قرار می دهد . در غير اينصورت متد Insert مربوط به گره ريشه فراخوانی می شود .
متد PreorderTraversal : رشته چاپ عناصر ريشه را خالی می کند و سپس متد پيمايش Preorder را فراخوانی می کند .
متد InorderTraversal : رشته چاپ عناصر ريشه را خالی می کند و سپس متد پيمايش Inorder را فراخوانی می کند .
متد PostorderTraversal : رشته چاپ عناصر ريشه را خالی می کند و سپس متد پيمايش Postorder را فراخوانی می کند .
متد Get Output : عناصر پيمايش شده درخت را برمی گرداند .
يک برنامه نمونه : ابتدا کلاسهای CTreeNode و CTree را به پروژه تان اضافه کنيد . سپس متغير زير را در قسمت کدنويسی فرمتان تعريف کنيد :

نرم افزار ضد حشرات

در فصل های سال به خصوص فصل تابستان حشرات هم شروع به فعاليت كرده و با توجه و علاقه حشرات به مانيتور رايانه مشكل ها بسياري براي كاربران به وجود اورده اند بنابراين داشتن يك برنامه براي فراري دادن انها ضروري است.
اصول كار اين برنامه بدین شرح است .. با يد توجه داشت  كه حشرات به خصوص بشه ها به صداي با فركانس 12KHZ  حساسند و در فضاي با اين فركانس صدا قادر به فعاليت نيستند.
من در اين برنامه دقيقا با اين نكته ضعف حشرات سر و كار دارم  تا به نحوي مانع نزدیکی انها به مانيتور شوم تا  براي شما كابران گرامي مشكلي به وجود نياورند.این برنامه با صدایی که تولید میکند اکثر اندام های حشرات را تحت تاثیر قرار داده و باعث فرار حشرات میشود...این برنامه تحت آزمایش نیز قرار گرفته و نتیجه اینکه :

اگر یک مگس را دریک محفظه توری قرار دهید با اجرای برنامه بعد از مدتی مشاهده میکنید که مگس دیگر قادر به پرواز کردن نیست و حرکات غیر طبیعی از او را مشاهده میکنید

اعضای ویژه وب سایت میتوانند به صورت کاملا رایگان تقاضای سورس کد این برنامه را بکنند و بازدیدکنندگان و اعضای عادی که تمایل به خرید سورس کد این برنامه را دارند مبلغ ۵۰۰۰تومان

به حساب مهرداد سلیمی به شماره حساب ۵/۸۱۵۲۰۱  (قرض الحسنه پس انداز) نزد شعبه ۱۲ متری هاشمی (کدشعبه :۶۶۱۳۴) واریز نمایند و سپس تصویر فیش واریزی را به این  ایمیل  ارسال نمایند و حداکثر ظرف ۲۴ ساعت پس از دریافت ایمیل برنامه مورد نظر به ایمیل شما ارسال میگردد

 يک برنامه کامپيوتری ، از مجموعه ای دستورالعمل که نوع و نحوه انجام يک فعاليت را برای کامپيوتر مشخص می نمايند ، تشکيل می گردد. دستورالعمل های نوشته شده بعنوان نمونه ممکن است به کامپيوتر اعلام نمايند  که تعدادی از اعداد را با يکديگر جمع  و يا دو عدد را بايکديگر مقايسه و بر اساس نتيجه  بدست آمده ، اتخاذ تصميم نمايد. دستورالعمل های نوشته شده ، صرفا" برای کامپيوتر قابل فهم و اجراء خواهند بود.کامپيوتر دستورالعمل های نوشته شده را اجراء و ماحصل آن رسيدن به اهدافی خواهد بود که بر اساس آن برنامه طراحی و پياده سازی  شده  است . دستورالعمل ها  ، می بايست با استفاده از يکی از زبانها ی برنامه نويسی نوشته شده ( کد ينگ ) و در ادامه در اختيار کامپيوتر قرار داده شوند. زبانهای برنامه نويسی متعددی نظير : فرترن ، بيسيک ، کوبال ، پاسکال، ،C ، جاوا ، ويژوال بيسيک و  ... وجود دارد.
 برنامه نويسی کامپيوتر ، مشابه آموزش گره زدن کفش به کودکان  است . برای نيل به هدف فوق ، می بايست تمامی مراحل لازم  بصورت شفاف به کودکان آموزش داده شود . کودکان با دنبال نمودن دستورالعمل های ارائه شده ، قادر به گره زدن کفش خود خواهند بود ( روش انجام اين کار برای آنان مشخص شده و بر اساس آن ، امکان نيل به هدف مورد نظر توسط کودکان فراهم می گردد )  . VB.NET ، زبانی است که می توا ن نحوه نيل به يک خواسته را بکمک آن بصورت شفاف ( نظير آموزش گره زدن کفش به کودکان )  مشخص و کامپيوتر با دنبال نمودن مراحل مشخص شده ، خواسته مورد نظر را محقق نمايد. با استفاده از VB.NET ، می توان محصولاتی راايجاد  که زمينه استفاده از آنان  در محيط ويندوز و اينترنت ، وجود خواهد داشت . فراموش نکنيم در زمان فراگيری يک تکنولوژی در ابتدا می بايست شيوه راه رفتن را بياموزيم  و در ادامه اقدام به دويدن نمود .

منوی اصلی