میهن پرست

ثبت سايت در گوگل Google

طرح ساخت اين سايت توسط دو دانشجو بنامهاي Larry Page و Sergey Brin در يکي از خوابگاههاي دانشگاه استانفورد پي ريزي شد و بعد از مدتي به بزرگترين و محبوبترين موتور جستجو ( search engine ) در دنيا تبديل شد که در حال حاضر بيش از هشت ميليارد صفحه وب را در پايگاه داده اي ( database ) خود جمع آوري کرده که توسط يک الگوريتم منحصر بفرد و با سرعت بسيار بالا خدمات جستجو را براي کاربران انجام ميدهد تمام اين فرآيندها داخل يک شبکه با بيش از هزار کامپيوتر انجام ميشود. البته اين سايت به غير از جستجو، خدمات ديگري هم انجام ميدهد که ميتوانيد به آدرس www.google.com مراجعه کنيد.

ثبت سايت در Google

يکي از راههاي بالا بردن ترافيک يک سايت، ثبت آن در گوگل ميباشد که براي اينکار شما ميتوانيد به آدرس www.google.com/addurl.html مراجعه و سايت خود را ثبت کنيد. دقت کنيد که داخل فرم مخصوص در آن صفحه آدرس کامل سايت را بهمراه پيشوند http:// بايد وارد کنيد و در ضمن نيازي به ثبت همه صفحات نيست و فقط صفحه اصلي يا همان homepage کافي است چون گردشگر گوگل بنام Googlebot بقيه محتواي سايت را از همان صفحه اول پيدا ميکند. پس فراموش نکنيد که صفحه اصلي شما بايد به همه نقاط سايت لينک داشته باشد.

بعد از ثبت سايت ممکن است مدتي در حدود يکماه طول بکشد تا در جستجوها صفحات شما نمايش داده شود.

رتبه بندي صفحات يک سايت ( Page Ranking )

يکي از نکاتي که خيلي بايد دقت کنيد، رعايت کردن اصول و قوانين گوگل ميباشد تا صفحات سايت شما در رتبه هاي اوليه هنگام جستجو قرار گيرد. پس از يافتن سايت شما توسط Googlebot ، صفحات تجزيه تحليل ميشوند و در يک الگوريتم، رتبه ميگيرند. براي بالا بردن اين رتبه، نکات زير را بايد رعايت کنيد:

نکات لازم در مورد طراحي

صفحات سايت بايد داراي لينکهاي منظم باشد تا دسترسي را به کليه نقاط سايت آسان کند.
بطور حتم يک صفحه بنام site map ( نقشه سايت ) درست کنيد و کليه لينکهاي سايت را در آن قرار دهيد و اگر بيشتر از صد لينک داريد، بقيه را در يک صفحه ديگر قرار دهيد.
داخل هر صفحه از مطالبي استفاده کنيد که با عنوان صفحه و کلمات کليدي( keywords ) مرتبط باشد.
کلمات کليدي را که در متاتگ مشخص کرده ايد بايد در همان صفحه بکار برده شود.
بطور حتم از نشان دادن کلمات کليدي، بصورت متن استفاده کنيد بجاي بکار بردن تصوير.
در خصوصيت alt تگها از توضيحات مرتبط با عنوان صفحه و محتواي صفحه استفاده کنيد.
اصول بکار بردن صحيح کدهايHTML را رعايت کنيد.
صفحات پويا ( dynamic pages ) يعني صفحاتيکه در آدرس آنها علامت ? است، براحتي صفحات معمولي ليست نميشوند.
در هر صفحه کمتر از صد لينک بکار بريد .

نکات فني

گردشگر گوگل ( Googlebot ) با جاوااسکريپت، کوکي ها، session ID ، DHTML ويا Flash مشکل دارد.
از وجود If-Modified-Since HTTP header در وب سرور سايت خود اطمينان حاصل کنيد چون اين ويژگي تغييرات سايت شما را به گردشگرها اعلان ميکند.
از فايل متنيrobots.txt در دايرکتوري سايت خود استفاده کنيد و دقت کنيد که از Googlebot crawler در آن فايل جلوگيري نشده باشد.
با متخصصين سرور مشورت کنيد تا از نرم افزارهاييکه از فعاليت گردشگرها جلوگيري ميکند، استفاده نشود.

پس از رعايت کردن اين نکات به آدرس http://www.google.com/addurl.html مراجعه کنيد و سايت خود را در آن ثبت کنيد.

نکات ديگري هم هست که توسط متخصصان سايت گوگل توصيه ميشود،

صفحات را براي استفاده کاربر بسازيد نه براي موتورهاي جستجو.
از حقه هايي براي بالا بردن رتبه سايت دوري کنيد.
از گذاشتن لينک سايتهايي که در رتبه بندي شما اثر منفي دارند بپرهيزيد، مانند سايتهايي که روي اصول طراحي نشده اند و يا فعاليتهاي غيرقانوني انجام ميدهند مثل web spammer ها.
از بکارگرفتن برنامه هايي که بصورت غيرقانوني سايت شما را ثبت و رتبه آنرا بالا ميبرند دوري کنيد مانند برنامه WebPosition Gold .
از لينکها يا متنهاي پنهان استفاده نکنيد.
صفحات را با متنهاي بيربط پر نکنيد.
از بکار بردن متنهاي تکراري يا تکرار صفحات با يک مضمون پرهيز کنيد.
براي يافتن سريعترسايت شما، لينک خود را در سايتهاي معروف قرار دهيد.

اين نکته را به خاطر بسپاريد که اگر از اصول غير قانوني استفاده کنيد، يا سايت شما ليست نخواهد شد و يا اگر ليست شده باشد ، حذف ميشود و امکان بازگشت مجدد هم براي آن سايت وجود نخواهد داشت

+ نوشته شده در 2006/8/22ساعت 17:55 توسط حسين زارعي |

کد جاوا اسکريپ java لرزش هنگام ورود به سايت

لرزش هنگام ورود به سايت ( کد جاوا )

parent.moveBy(-i,0);
parent.moveBy(0,-i);
parent.moveBy(-i,0);
parent.moveBy(0,i);
parent.moveBy(i,0);
parent.moveBy(0,-i);
parent.moveBy(-i,0);
parent.moveBy(0,i);
parent.moveBy(i,0);
parent.moveBy(0,-i);
parent.moveBy(-i,0);
parent.moveBy(0,-i);
parent.moveBy(i,0);
parent.moveBy(0,i);
parent.moveBy(i,0);
parent.moveBy(0,i);
         }
      }
   }

}
// End -->

</SCRIPT>
<p align="center"><font size="7" color="#FF0000">salam irani</font></p>

+ نوشته شده در 2006/8/22ساعت 17:19 توسط حسين زارعي |

کسب در آمد از طریق اینترنت (تجارت الکرونیک)

آموزش ثبت نام وقسمت های مختلف سایتهایی که میتوانید از آنها برای پول درآوردن استفاده کنید

در ادامه بعد از باز کردن حساب به معرفی چند سايت میپردازم که میتوانید از این سایتها برای پول درآوردن استفاده کنید.

1-  بر روی سایتهای زیر جهت ثبت نام کلیک کنید.

************************************************************

حداقل پرداختی این سایت 500 دلار و به ازای هر ایمیل به شما مبلغ 5 دلار پرداخت میکند

http://www.500cents-500dollars.net/pages/index.php?refid=meysamzandy

*****************************************************************

حداقل پرداختی این سایت 6000 دلار میباشد و به ازای هر ایمیل به شما مبلغ 30 دلار پرداخت میکند

http://www.30dollarsmail.com/pages/index.php?refid=meysamzandy

****************************************************************

حداقل پرداختی این سایت نیز 2000 دلار میباشد و به ازای هر ایمیل به شما مبلغ 15 دلار پرداخت می کند

http://www.maystromails.com/pages/index.php?refid=meysamzandy

*********************************************************************

هر یک از سایت های زیر نیز دارای حداقل پرداختی خوبی می باشد ولی به ازای هر ایمیل مبلغ پایین تر پرداخت میکنند

http://www.ourpaidmail.com/pages/index.php?refid=meysamzandy

http://www.1-800-mail.com/pages/index.php?refid=meysamzandy

http://www.MayaPaid4Mail.com/pages/index.php?refid=meysamzandy

*********************************************************************

2- در سایت مورد نظر روی لینک یا گزینه Sing Up کلیک کرده و در صفحه بعد ایمیل خود را وارد کنید و بر روی دکمه زیر آن کلیک کنید.

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

4- فرم ثبت نام را پر کرده و

من هر كدام از اين قسمت ها را كه در بالا نوشته شده و به درد شما مي خورد را در پايين توضيح داده ام . دقت كنيد كه بسيار ساده است . من اول قسمت هاي مهم تر را توضيح مي دهم:

Operating Room (Paid-2-Click)1

با كليك بر روي اين قسمت صفحه اي مي آيد كه هر روز تعدادي تبليغ (بنر) جديد به آن اضافه مي شود و در پايين هر تبليغ هم نوشته كه با كليك بر روي آن چقدر به دست مي آوريد . توجه كنيد كه هيچ وقت دو تبليغ را با هم باز نكنيد زيرا در غير اين صورت پول ان تبليغ را به شما نمي دهد.بر روي هر تبليغ كه كليك مي كنيد صفحه جديدي باز ميشود كه در بالاي سمت چپ آن نوشته شده كه شما بايد چند ثانيه صبر كنيد بعد از سپري شدن اين مدت متن گوشه سمت چپ بالاي صفحه عوض ميشود و نوشته مي شود:

Your account has been credited.

Thank you!

وقتي اين نوشته را در بالاي سمت چپ صفحه ديديد به اين معني است كه پول آن تبليغ به حساب شما اضافه شده است و مي توانيد بر روي تبليغ ديگري كليك كنيد. هر تبليغي هم كه پولش به حساب شما اضافه مي شود خود به خود از ليست تبليغ ها حذف ميشود. هر وقت هيچ تبليغي براي كليك كردن موجود نباشد شما اين نوشته را خواهيد ديد:

Sorry, no ads are available for you to click on this page at this time

Paid2Search

كار كردن در اين قسمت هم دقيقاً مثل همان قسمت قبلي است.

CLICK 4 Points

كار كردن در اين قسمت هم دقيقا مثل دو قسمت قبلي است . هنگامي كه پولتان را تحويل مي گيريد point ها تبديل به cent شده و به حساب شما واريز ميشود . (وقتي پولتان به 40$ رسيد پولتان كه در dollars factory در آورديد به حسا ب e-gold شما واريز ميشود.)

Storage Room (Inbox)(0)1

اين قسمت پر سود ترين جاي اين سايت است . اينجا همان جايي است كه يك نسخه از ايميل هاي فرستاده شده از طرف سايت براي شما را نگهداري ميكند . كار كردن در اين قسمت بسيار به كار با ايميل خودتان شباهت دارد .اين سايت روزانه 10 تا 30 ايميل يا در مواردي تعدادي بيشتربراي شما ارسال مي كند كه هر كدام ازآنها حاوي يك لينك 2 تا 6 سنتي است. وقتي وارد اين قسمت مي شويد ليست ان ايميل ها را مي بينيد . براي باز كردن هر كدام روي اسمش كليك كنيد .يك صفحه جديد باز مي شود كه در تمام متن آن فقط يك خط آبي رنگ هست و شما بايد روي آن خط كليك كنيد . بعد از كليك روي خط آبي رنگ يك صفحه جديد ديگر باز مي شود ، در بالاي سمت چپ آن نوشته شده كه شما بايد چند ثانيه صبر كنيد.بعد از سپري شدن اين مدت متن گوشه سمت چپ بالاي صفحه عوض مي شود و نوشته مي شود:

Thank you!

Your account has been credited.

وقتي اين نوشته را در بالاي سمت چپ صفحه ديديد به اين معني است كه پول خواندن آن ايميل به حساب شما اضافه شده است و مي توانيد ايميل ديگري را باز كنيد .هر ايميلي را هم كه پولش به حساب شما اضافه مي شود از ليست ايميل ها حذف(Delete) كنيد . اين را هم اضافه كنم كه در روز هاي اوليه شروع به كار تعداد كمتري mail دريافت مي كنيد ولي به مرور تعداد انها افزايش مييابد .

نكته مهم : ايميلهاي آن تا 10 روز مدت دارند و بعد از 10 روز خود به خود از inbox پاك مي شوند يعني شما قبل از گذشتن 10 روز از تاريخ ايميل مي توانيد پول خواندن آن را نصيب خودتان كنيد و بعد از 10روز خود به خود پاك مي شود.

Referral Room

در اين قسمت اين نوشته ها را مي بينيد:

To Refer other users, please use the following URL OR the following banner code.

URL: http://www.500cents-500dollars.net/pages/index.php?refid=meysamzandy

آدرسي كه داخل مستطيل است،آدرسي است كه شما مي توانيد براي معرفي كردن اعضاي جديد به سايت از آن استفاده كنيد.يعني به هر كس از دوستانتان كه مي خواهيد اين سايت را معرفي كنيد اين آدرس را بدهيد تا وقتي آنها در سايت ثبت نام مي كنند مشخص باشد كه شما آنها را معرفي كرده ايد.علت معرفي اعضاي جديد به سايت هم اين است كه از زير گروه هاي اول،دوم،سوم و چهارم به ترتيب هشت، پنج، يك و يك درصد از در آمدي كه آنها كسب مي كنند به شما هم پرداخت مي شود.

(اگر كمي با ماشين حسابتان ور بريد خواهي ديد كه درآمدتان بعد از چند ماه چه مقدار خواهد شد.)*البته اين رو هم نبايد فراموش كنيد كه ميزان درامد شما رابطه مستقيم با تلاش و كارايي شما دارد و اينكه چند نفر را توانسته ايد به اين كار تشويق كنيد راز موفقيت شما خواهد بود.

Earnings Panel

با كليك بر روي اين قسمت وضعيت پولي كه شما از اين سايت درآورده ايد و همچنين وضعيت زيرگروه هايتان را خواهيد ديد.يعني صفحه دريافت هاي شما است.

اين سايت چند روز قبل از شروع سال 2004 فعال شده و تا به حال خيلي عالي كاركرده است و درعرض 11روز حدود2860 نفر عضو شده اند. پس فرصت رااز دست ندهيد و در اين سايت كه به نظر من بهترين سايت در نوع خود است عضو شويد .

* نكته براي راهنمايي : تبليغاتي كه شما مي توانيد بر روي آنها كليك كنيد به غير از ميل هايي كه سايت مي فرستند تعداد زيادي حدود ساعت 5:5 الي 7:5 صبح در قسمت paid to click و paid to search اين سايتها ظاهر مي شوند و در ساعات ديگر روز تعداد كمتري تبليغ مي آيد.

تذکر : در نامه هايی که برای شما ارسال می شه ، فقط بر روی لينکهايی کليک کنيد که شکل کلی اونها شبيه لينک زير هست:

http://www.500cents-500dollars.net/scripts/runner.php?EA=20041015186377606

کليک بر روی ديگر لينکها سودی برای شما نداره!

با تشکر امیدوارم همیگی موفق باشید

+ نوشته شده در 2006/8/19ساعت 16:22 توسط حسين زارعي |

آموزش ساخت حساب رایگان در ایگولد E-Gold

افتتاح حساب الکترونيکی ايگولد

افتتاح حساب اينترنتی ايگولد
آموزش ایجاد حساب اینترنتی ایگولد

در صورتي كه هرگونه مشکل يا سوالی داشتيد می توانيد از طريق ايمل و يا گذاشتن پيغام در زير و يا از طريق سرويس ياهو مسنجر با من در ميان بگذاريد.
باز هم منتظر معرفي سايت هاي معتبر ديگر باشد.

ايگولد چيست؟

ايگلد (ايگولد) چيست؟

ايگلد (ايگولد) يك سيستم اينترنتي است كه جهت افتتاح حساب در آن نيازي به داشتن اعتبار نيست. مبالغي كه در حساب ايگلد (ايگولد) واريز مي شود، بصورت وزني و بر اساس قيمت فلزات ( طلا )‌ قابل محاسبه است. مثلا اگر هر اونس طلا 370 دلار باشد و شما بخواهيد 370 دلار به حساب خود واريز نماييد در حقيقت يك اونس طلا در حساب شما وجود دارد. حال اگر قيمت طلا تغيير نمايد اعتبار شما نيز تغيير مي كند.

براي چه از حساب ايگلد (ايگولد) استفاده كنيم؟

اكثر سايتهاي اينترنتي به خصوص سايتهاي مالي و تبليغاتي دنيا ايگلد (ايگولد) را مي پذيرند و شما به راحتي مي توانيد تبادلات مالي خود را از طريق ايگلد انجام دهيد. در لينک زير ليست تعدادي از شركتهايي كه كارت اعتباري ايگلد را مي پذيرند ديده مي شود:

Http://www.e-gold.com/unsecure/thelist.htm#merchantandrog

بهترين گزينه براي كساني كه كارتهاي اعتباري ندارند، استفاده از ايگلد است.

Batch Number چيست؟

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

Passphrase چيست؟ در صورت فراموش كردن كلمه عبور چه بايد كرد؟

كلمه عبور حساب ايگلد (ايگولد) است كه در ايميل تاييد افتتاح حساب نيز ارسال نمي شود و بنابراين نبايد فراموش شود. چنانچه كلمه عبورتان را فراموش كنيد بايد با آدرسmailto:Passphares@e-gold.comm مكاتبه نماييد و در عنوان ايميل شماره حساب خود را بنويسيد. معمولا ادامه كار از طريق آدرس پستي شما انجام مي گيرد.

نحوه واريز پول به حساب ايگلد (ايگولد) چگونه است؟

معمولا از دو طريق امكان پذير است :

1- انتقال پول از يك حساب به حساب ديگر كه دركمتر از چند ثانيه صورت مي گيرد.

2- استفاده از سايتهاي واسطه و بانكها با استفاده از حساب ارزي.

نحوه خارج كردن پول از حساب ايگلد (ايگولد) چگونه است؟

معمولا از دو طريق امكان پذير است :

1- استفاده از سايتهاي واسطه و بانكها با داشتن حساب ارزي

2- فروش به حساب ايگلد (ايگولد) ديگران

چرا اعتبار حساب ايگلد (ايگولد) همواره تغيير مي كند؟

اعتبار حساب شما بسته به ميزان طلايي است كه در حساب شما وجود دارد و با توجه به قيمت جهاني طلا ميزان اعتبار شما به مقدار جزئی، كم و زياد مي شود.

آيا داشتن حساب ايگلد (ايگولد)هزينه دارد؟ ( هزينه هاي جديد ايگلد (ايگولد) از ابتداي سال 2004 )

بله. كلا دو نوع هزينه وجود دارد:

1- Agio: هزينه ماهيانه كه به صورت يك درصد موجودي با ميانگين روزانه كسر مي شود.

2- Spends fee: يك درصد مبادلات تا حداكثر 50 سنت

نكته مهم:‌چنانچه پولي در حسابتان وجود داشته باشد نبايد در آخر ماه ميلادي حسابتان صفر باشد زيرا اگرهزينه ماهانه از حسابتان برداشت نشود، حسابتان بسته خواهد شد.

SSL چيست؟

مربوط به امنيت سايت ميباشد كه براي اطلاعات بيشتر ميتوانيد از لينك زير استفاده كنيد.

www.e-gold.com/nuseeure/aboutssl.htm/

Turing Number چيست؟

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

منبع: سايت ايگولد ايران

*******************************

افتتاح حساب ايگولد

برای افتتاح حساب الكترونيكی ايگولد اينجا كليك كنيد

آموزش افتتاح حساب

********************************

+ نوشته شده در 2006/8/19ساعت 14:53 توسط حسين زارعي |

سورس vb يا Visual basic

فرم شيشه اي در ويژوال بيسيک

اطلاعات زير را در يک ماژول قرار دهيد:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = &H2

Private Const WS_EX_LAYERED = &H80000

Public Function Trans(ByVal hwnd As Long, Perc As Integer) As Long

Dim Msg As Long
On Error Resume Next
If Perc < 0 Or Perc > 255 Then
Trans = 1
Else
Msg = GetWindowLong(hwnd, GWL_EXSTYLE)
Msg = Msg Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, Msg
SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA
Trans = 0
End If
If Err Then
Trans = 2
End If

End Function

اطلاعات زير را در فرم اصلي قرار دهيد :

Private Sub Form_Load()
VScroll1.Value = 260
End Sub

Private Sub VScroll1_Scroll()
Trans Form1.hwnd, VScroll1.Value
End Sub

نکته : شما در اين برنامه به يک اسکورال نيز نيازمنديد.

+ نوشته شده در 2006/8/17ساعت 10:7 توسط حسين زارعي |

سورس vb يا Visual basic

گرفتن تمامی لیبل های CD Rom ها

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByValnBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Command1_Click()
allDrives$ = Space$(64)
ret& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
allDrives$ = Left$(allDrives$, ret&)
Do
pos% = InStr(allDrives$, Chr$(0))
If pos% Then
JustOneDrive$ = Left$(allDrives$, pos% - 1)
allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))
DriveType& = GetDriveType(JustOneDrive$)
If DriveType& = 5 Then
MsgBox UCase$(JustOneDrive$) & " is a CD Drive "
End If
End If
Loop Until allDrives$ = ""
End Sub

+ نوشته شده در 2006/8/17ساعت 10:2 توسط حسين زارعي |

سورس vb يا Visual basic

سایت های سورس وی بی یا ویژوال بیسیک

http://www.freevbcode.com

http://www.vbcode.com
http://www.coderoom.com

http://www.vbaccelerator.com

+ نوشته شده در 2006/8/17ساعت 0:24 توسط حسين زارعي |

سورس دلفی یا delphi

رستار کردن ويندوز

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_REBOOT,0);
end;

+ نوشته شده در 2006/8/17ساعت 0:19 توسط حسين زارعي |

سورس دلفی یا delphi

چگونه عکس پشت زمينه ويندوز را عوض کنيم.

program wallpapr;

uses
  Registry, WinProcs;

procedure SetWallpaper( 
            sWallpaperBMPPath : String; 
            bTile : boolean );
var
  reg : TRegIniFile;
begin
  //
  // change registry
  //
  // HKEY_CURRENT_USER
  //   Control Panel\Desktop
  //     TileWallpaper (REG_SZ)
  //     Wallpaper (REG_SZ)
  //
  reg := TRegIniFile.Create( 
           'Control Panel\Desktop' );
  with reg do
  begin
    WriteString( '', 'Wallpaper',  
      sWallpaperBMPPath );
    if( bTile )then
    begin
      WriteString( 
        '', 'TileWallpaper', '1' );
    end else
    begin
      WriteString( 
        '', 'TileWallpaper', '0' );
    end;
  end;
  reg.Free;

  //
  // let everyone know that we changed 
  // a system parameter
  //
  SystemParametersInfo( 
    SPI_SETDESKWALLPAPER, 
    0, 
    Nil, 
    SPIF_SENDWININICHANGE );
end;

begin
  //
  // set wallpaper to centered winnt.bmp
  //
  SetWallpaper( 
    'c:\winnt\winnt.bmp', 
    False );
end.

+ نوشته شده در 2006/8/17ساعت 0:14 توسط حسين زارعي |

سورس ویژوال بیسیک یا همون vb خودمون

ساعت عقربه اي آنالوگ

Private Sub Form_Load()
Me.BackColor = vbBlack
End Sub

Private Sub Timer1_Timer()

Form1.Refresh
X = Form1.Width / 2
Y = Form1.Height / 2.2
Circle (X, Y), Y - 200, vbWhite
Circle (X, Y), Y - 220, vbWhite
For i = 1 To 12
Circle (X + (Y - 400) * Cos(i * 22 / 42), Y + (Y - 400) * Sin(i * 22 / 42)), 50, vbRed
Next
h = Hour(Time())
If h > 12 Then
h = h - 12
End If
m = Minute(Time())
s = Second(Time())
Line (X, Y)-(X + (Y - 600) * Cos((66 / 14 + s * (44 / 420))), Y + (Y - 600) * Sin((66 / 14 + s * (44 / 420)))), vbBlue
Line (X, Y)-(X + (Y - 800) * Cos((66 / 14 + m * (44 / 420))), Y + (Y - 800) * Sin((66 / 14 + m * (44 / 420)))), vbYellow
Line (X, Y)-(X + (Y - 1200) * Cos(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420)), Y + (Y - 1200) * Sin(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420))), vbWhite

End Sub

+ نوشته شده در 2006/8/17ساعت 0:4 توسط حسين زارعي |

سورس هاي جديد vb , delphi , java , c

با سلام خدمت تمامی بروبچ

هر کس سورس برنامه ی خاصی رو می خواد نظر بده یا میل بزنه و اون برنامه را به من بگه یا سورس رو براش میل می کنم یا سورس رو توی وبلاگ می ذارم بلاخره سورس گیرتون میاد.

C# , delphi , java , vb ( visual basic) ,c , c++

فقط سورس برنامه های بالا رو لطفا در خواست کنید

بزودی سورس های اچ تی ام ال نیز در وبلاگم قرار می دهم

با آرزوی موفقیت برای شما

+ نوشته شده در 2006/8/16ساعت 23:59 توسط حسين زارعي |

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

در زیر روش هایی برای بالاتر رفتن رتبه ی سایتتان در موتور های جستجو آورده شده است.

بهينه سازي تگ هاي متا (Meta Tags )
زماني بود كه محتویات تگ های متا برای موتورهای جستجو خيلي مهم بودند. با بازگشت به عقب می توان به این موضوع دست یافت که الگوريتم هاي موتور جستجو خيلي كند عمل ميكردند و نميتوانستند متوجه شوند كه یک صفحه از یک وب سایت چه مفهومي را با توجه به محتوا مي رساند. همین موضوع باعث شکل گرفتن ايده اي هوشمندانه در اين زمينه شد و چنین بود که تگ هاي متا بوجود آمدند. وظیفه اصلی آنها این بود كه اطلاعاتي هم چون موضوع اصلی یک صفحه و ... را در مورد محتواي يك صفحه به موتورهاي جستجو اعلام كنند. اين ايده بزرگ نه تنها مانعي در برابر طراحان سايتهاي اينترنتي كه تگهاي متايشان را پر از كلمات كليدي کنند , ايجاد نمي کرد , حتي آنها را تشويق به چنين كارهايي مي نمود.
همين مسائل باعث شد تا موتورهاي جستجو براي جلوگيري از تخلف طراحان سايت در استفاده از کلمات کليدي زياد در تگهاي متا , آنها را ناديده بگيرند و چنين شد که امروزه اكثر تگ هاي متا بي ارزش هستند و موتورهاي جستجو هیچ ارزشی برای آنها قائل نیستند. به طور مثال گوگل از هيچ تگ متايي استفاده نمی کند ( به جز Meta description ) ، به همین دلیل به شما توصیه می شود که اگر به دنبال يك رتبه بالا در گوگل , بوسيله كلمات كاملاً بهينه سازي شده در تگ هاي متا داريد ، خودتان را خسته نكنيد.

ازكدام تگ هاي متا بايد استفاده كنيد؟
از ديد گوگل اضافه كردن تگ متاي توصيفي (meta description ) منجر به افزايش رتبه صفحات در نتايج موتور جستجو نميشود ، اما اين توصيف ممكن است براي تشریح صفحات در ليست صفحات نتايج جستجو در گوگل مورد استفاده قرار بگيرد. درصورتي كه يك تگ متاي توصيفي جالب بنويسيد و گوگل از آن استفاده كند ( كه ضمانتي نشده است ) ، ممكن است در مقايسه باsnippet ( برای توضیح در مورد Snippet به بخش واژه نامه مراجعه کنید ) که خود گوگل که از متن صفحاتتان بدست ميآورد , از ميزان كليك بالايي برخوردار شويد. تمام ديگر تگ هاي متا ( ازجمله تگ متاي کلمه کليدي ) يا اصلاً در نظر گرفته نميشوند و يا تاثيري در افزايش رتبه صفحات در نتايج موتور جستجو نخواهند داشت. اما ياهو ميگويد در زماني كه صفحه اي را رتبه بندي ميكند از تگ متاي كلمه كليدي استفاده ميكند , از اينرو اضافه كردن اين تگ براي موتور جستجوي ياهو و يا هر موتورجستجوي ديگري كه هنوز از اين متاها استفاده ميکنند , ميتواند مفيد واقع شود. همچنين دايركتوريها و وب سايتهاي ديگري وجود دارد كه به طور خودكار جهت اضافه کردن سايت شما به ليست از اين اطلاعات استفاده مي کنند.

تگ هاي متاي نمونه
در زير شما مجموعه اي از نمونه تگ هاي متا را پيدا خواهيد كرد که براي صفحه اي که ميخواهيد در تمام موتورهاي جستجو فهرست بندي كنيد , نياز است.

< !DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.01 Transitional //EN” “http://www.w3.org/TR/html4/loose.dtd’ >
< HTML >< HEAD >
< TITLE > آموزش بهينه سازي تگ هاي متا در موتورهاي جستجو < / TITLE >
< meta name=”description” content=”create the perfect meta tags for high search engine placement.” >
< meta name=”keywords” content=”keyword1, keyword2, …” >
< meta http-equiv=”content-type” content=”text/html;charset=ISO-8859-1” >
< link rel=”stylesheet” type=”text/css” href=”../seo-gold” media=”all” >
< / HEAD >

DOCTYPE‌ : در واقع يک تگ متا نيست و ضرورتي ندارد كه اين گزينه را به صفحه اي که مي خواهيد در رتبه بندي موتور جستجو موفق باشد , اضافه كنيد ، اما اگر شما بخواهيد كه صفحه اي را با يک validator html ارزيابي كنيد ( مثل http://validator.w3.org ) نياز خواهيد داشت تا اين تگ را در صفحه درست اضافه كنيد.

عنوان (the Title ): اين گزينه نيز يك تگ متا نيست ، اما بعضي اوقات افرادي كه كاملاً کاربرد تگ هاي متا را درك نميكنند , از Title به عنوان يک تگ متا ياد مي كنند. عنوان براي بهينه سازي صفحات خيلي خيلي مهم است , زيرا عنوان را به يک صفحه كامل بهينه سازي شده اختصاص مي دهيم. عنوان بايد شامل مهمترين اصطلاحات آن صفحه و احتمالاً يك يا دو كلمه كليدي مرتبط با آن صفحه باشد. مثلا عنواني که در مثال بالا آورده شده است به صفحات بهينه سازي شده اي در زمينه هاي بهينه سازي تگ هاي متا ، آموزش تگ هاي متا ، آموزش بهينه سازي موتورجستجو ، تگ هاي متاي بهينه سازي موتور جستجو و غيره كمك ميكند. با اضافه كردن تعداد زيادي از كلمات كليدي عنوان صفحه را نا مفهوم نکنيد و مهمتر از آن هيچ گاه بازديدكنندگان بالقوه را فراموش نكنيد. ( آنها مجبورند آن را بخوانند )

تگ متاي توصيفي (the Description meta tag ) : همانطور كه در ابتدا بيان شد , گوگل محتويات تگ متاي توصيفي را پوشش نمي دهد و تاثيري بر روي رتبه بندي صفحه در نتايج موتور جستجو ندارد ، اما ممكن است به عنوان توصيفي در نتايج جستجو مورد استفاده قرار بگيرد. از اينرو بايد يک توصيف از صفحه باشد , نه اينکه آنرا با کلمات کليدي پر کنيد.

تگ متاي كلمات كليدي (the Keywords meta tag ) : اين تگ متا هيچ ارزشي براي گوگل ندارند و احتمالاً براي ديگر موتورهاي جستجوي اصلي نيز ارزش كمي دارد.

مجموعه كاراكتر و فايلهاي خارجي لينكها (the Character set and links external files ) : تگ هاي متا نيستند و بر روي رتبه بندي در موتور جستجو هيچ تاثيري ندارند. مجموعه كاراكتر توسط مرورگرها مورد استفاده قرار ميگيرد , از اينرو مجموعه درستي از كاراكترها براي نمايش دادن صفحه تان مورد استفاده قرار ميگيرد. فايلهاي خارجي مانند Style ها ( فايلهاي Css ) و فايل هاي جاوا اسكريپت خارجي (JS files ) در اينجا به عنوان فايلهاي منبع در نظر گرفته شده اند و بر روي بهينه سازي موتورجستجو تاثيري ندارند ، اما اگر شما بتوانيد بعضي ازجاوا اسكريپت ها را از صفحه تان خارج كنيد , در واقع پهناي باند را ذخيره ميكنید و به اين معني است كه صفحاتتان سريعتر بارگذاري ميشوند.

تگ متاي روبوت : 12 نوع تگ متاي ديگر وجود دارد ،اما به ندرت از آنها براي افزايش دادن رتبه بندي موتورجستجو مورد استفاده قرار ميگيرد. مهمترين تگي كه شما ممكن است بعضي اوقات نيازداشته باشيد تگ متاي Robots است كه مثالي از ان را کشاهده مي کنيد:

< meta name=”robots” content= noindex,nofollow" >

اين تگ ( مثال بالا ) ميتواند جهت جلوگيري كردن از دسترسی اسپايدرهاي موتورجستجو به صفحات اختصاصي موجود در وب سایتتان مورد استفاده قرار بگيرد. مثلا ما کد بالا را در صفحه سبد خريد يک فروشگاه مجازي کرديم , جرا که ما نمي خواستيم كه بازديدكننده از طريق اين صفحات وارد سايت شود ( زيرا در اين صورت سايت به درستي كار نميكند ) . با وارد كردن اين کد در بالاي موتور جستجو اسپايدرها لينكهاي اين صفحه را فهرست بندي يا دنبال نميكنند. تگ متاي Robots ميتواند ازطريق يك فايل robots.txt استفاده شود.

< meta name=”robots” content=”index,follow” >

تگ متاي فوق باعث مي شودکه موتور جستجو صفحه را فهرست بندي كند و تمام لينكهاي آن را دنبال نمايد. اگر اين آن چيزي است كه شما ميخواهيد ( از آنجائيكه به طور پيش فرض اسپايدرهاي موتورجستجو اين کار را به هرحال انجام ميدهند ) از تگ متاي robot استفاده نكنيد.

< meta name=”robots” content=”noindex,follow”>

تگ متاي فوق باعث مي شودکه موتور جستجو اين صفحه را فهرست بندي نكند ، اما لينكها را دنبال ميكند. بعضي از طراحان سايتهاي اينترنتي كه از تكنيكهاي بهينه سازي black hat استفاده ميكنند از اين تگ براي مخفي كردن تكنيكهاي مشكوكشان استفاده ميكنند.

< meta name=”robots” content=”index,nofollow”>

تگ متاي فوق باعث مي شودکه موتور جستجو اين صفحه را فهرست بندي كند ،اما لينكها را دنبال نكند.

< meta name=”robots” content=”noindex,nofollow”>

تگ متاي فوق باعث مي شودکه موتور جستجو اين صفحه را فهرست بندي نكند و لينكها را نيز دنبال نكند. از اين متا معمولا در صفحاتي استفاده كنيد كه نميخواهيد موتورهاي جستجو با آنها ارتباط داشته باشند. درنتيجه تگ هاي متا براي صفحات نتايج موتور جستجو مهم نيستند ، ازاينرو در مورد آنها وقتتان را صرف نكنيد.

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

+ نوشته شده در 2006/8/15ساعت 22:46 توسط حسين زارعي |

کتاب آموزش ترفندهاي اينترنت بسيار جالب

به دوستان توصيه مي کنم حتما اين کتاب را دانلود کنند در اين کتاب ترفندها و نکاتي اومده که حتي اونايي که عند اينترنت هستند شايد ندوند. ضرري نداره دانلودش کنيد حجمش هم کمه.

در ضمن رمز فايل فشرده nimrah.blogfa.com مي باشد.

لینک دانلود

+ نوشته شده در 2006/8/15ساعت 22:0 توسط حسين زارعي |

کتاب الکترونيکي از ويژوال بيسيک VB Visual Basic

با سلام

اینم لینک دانلود برای یک کتاب توپ از vb انشاالله موفق باشید

http://iranmehr.bizhat.com/BOOK/Visual%20Basic%206%7Biranmehr.bizhat.com%7D.zip

+ نوشته شده در 2006/8/2ساعت 17:45 توسط حسين زارعي |

رايت 800 مگابايتي روي cd

درست فهميديد اين امكان وجود داره فقط كافي راهنماي زير رو كه در قالب يك فايل pdf است را دانلود کنید.

رمز فایل فشرده nimrah.blogfa.com می باشد.

http://rapidshare.de/files/27072733/Nimrah.blogfa.com_OverBuring_-6.zip.html

+ نوشته شده در 2006/7/26ساعت 15:11 توسط حسين زارعي |

تايپ فارسي در ويژوال بيسيك

براي فارسي نويسي سورس هاي مختلفي وجود داره ولي اين بهترينه.

براي راهنمايي مي تونيد readme درون فایل را بخوانید.

رمز فایل فشرده nimrah.blogfa.com می باشد.

http://rapidshare.de/files/27072182/nimrah.blogfa.com_FarsiTypeInVb_-5.zip.html

+ نوشته شده در 2006/7/26ساعت 15:6 توسط حسين زارعي |

تغييرات در ريجستري

اين كدها تا حالا در هيچ سايتي نيامده است. براي فعال كردن مقدار كليد را ۱ كنيد و براي غيرفعال كردن مقدار كليد را ۰ كنيد فقط به خاطر داشته باشيد كه اگر كليد وجود نداشت خودتان آن را بسازيد.

براي رفتن به ريجستري در run عبارت regedit را تایپ کنید.

Disable CMD

HKEY_CURRENT_USES/Software/Policies/Microsoft/windows/System/DisableCMD

Disable TaskMgr

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/System/DisableTaskMgr

Disable Add Or Remove Programs

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Uninstall/NoAddRemovePrograms

Disable Changing WallPaper

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/ActiveDesktop

Clear Recent Documents On Exit

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/ClearRecentDocsOnExit

Hide Clock And Lock Button

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/HideClock

Disable Active Desktop

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoActiveDesktop

Disable Add Printer

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoAddPrinter

Disable CD Burning

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoCDBurning

Disable Log Off From Start Menu

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/StartmenuLogoff

Disable Themes Tab

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoThemesTab

+ نوشته شده در 2006/7/26ساعت 10:7 توسط حسين زارعي |

كدهاي جاوا

اينم قولي كه بهتون داده بودم باحالترين كدهاي جاوا حتما دانلودش كنيد . فوق العاده فشرده

رمز فايل فشرده nimrah.blogfa.com است.

http://rapidshare.de/files/27046942/Nimrah.blogfa.com_Java_.zip.html

+ نوشته شده در 2006/7/26ساعت 10:3 توسط حسين زارعي |

خطاي ديد 3

تعداد دايره هاي سياه بيشتره يا سفيد ؟ هر كس مي دونه يه نظر بده.

+ نوشته شده در 2006/7/26ساعت 9:59 توسط حسين زارعي |

آموزش ساخت لودينگ در فلش

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

رمز فایل فشرده nimrah.blogfa.com است.

http://rapidshare.de/files/27046521/Nimrah.blogfa.com_FlashLoading_.zip.html

+ نوشته شده در 2006/7/26ساعت 9:56 توسط حسين زارعي |

خطاي ديد 2

به نقطه وسط خیره شوید و سر خود را جلو و عقب کنید.

+ نوشته شده در 2006/7/26ساعت 9:52 توسط حسين زارعي |

حل مشكل پ ، ژ در كيبورد فارسي مخصوص ويندوز xp

این فایل فشرده را در شاخه ویندوز پوشه system 32 کپی کنید.

راستی تا یادم نرفته باید ویندوز در حالت safe mode بالا اومده باشه.

رمز فایل فشرده nimrah.blogfa.com است.

http://rapidshare.de/files/27045627/Nimrah.blogfa.com_farsiKeyboard_.zip.html

+ نوشته شده در 2006/7/26ساعت 9:42 توسط حسين زارعي |

خطاي ديد 1

اين فيل چند تا پا داره؟

+ نوشته شده در 2006/7/26ساعت 9:38 توسط حسين زارعي |

جدیدترین و کاملترین سورس های دلفی

این سورس با قابلیت جدیدی تا حد خیلی زیادی فشرده شده است.

رمز فایل فشرده nimrah.blogfa.com است.

http://rapidshare.de/files/27045365/Nimrah.blogfa.com_Delphi_.zip.html

+ نوشته شده در 2006/7/26ساعت 9:36 توسط حسين زارعي |

كد جاوا براي نمايش متن در استاتوس بار

این کد خیلی باحاله حتما در سایت یا وبلاگتون ازش استفاده کنید:

+ نوشته شده در 2006/7/25ساعت 15:12 توسط حسين زارعي |

قفل كردن پوشه به راحتي هر چه تمام در ويندوز

براي قفل كردن پوشه نام آن را به متن زير تغيير دهيد:

FileName.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}

در اینجا file name نام فایل شما است که هر چیزی می تواند باشد.

توجه برای باز کردن قفل باید از Dos یا نرم افزارهایی مثل Winner Tweak استفاده کنید.

امیدوارم از این پست استفاده برده باشید در صورت هر گونه مشکل در قسمت نظرات مشکلاتان را بیان فرمایید.

+ نوشته شده در 2006/7/25ساعت 15:0 توسط حسين زارعي |

میهن پرست

ثبت سايت در گوگل Google

کد جاوا اسکريپ java لرزش هنگام ورود به سايت

کسب در آمد از طریق اینترنت (تجارت الکرونیک)

آموزش ساخت حساب رایگان در ایگولد E-Gold

سورس vb يا Visual basic

سورس vb يا Visual basic

سورس vb يا Visual basic

سورس دلفی یا delphi

سورس دلفی یا delphi

سورس ویژوال بیسیک یا همون vb خودمون

سورس هاي جديد vb , delphi , java , c

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

کتاب آموزش ترفندهاي اينترنت بسيار جالب

کتاب الکترونيکي از ويژوال بيسيک VB Visual Basic

رايت 800 مگابايتي روي cd

تايپ فارسي در ويژوال بيسيك

تغييرات در ريجستري

كدهاي جاوا

خطاي ديد 3

آموزش ساخت لودينگ در فلش

خطاي ديد 2

حل مشكل پ ، ژ در كيبورد فارسي مخصوص ويندوز xp

خطاي ديد 1

جدیدترین و کاملترین سورس های دلفی

كد جاوا براي نمايش متن در استاتوس بار

قفل كردن پوشه به راحتي هر چه تمام در ويندوز

پیوندهای روزانه

نوشته های پیشین

آرشیو موضوعی

نویسندگان

پیوندها