از این به بعد اگر برنامه خاصی به نظرم رسید براتون میذارم و بقیه مطالب رو اینجا مینویسم

http://360.yahoo.com/profile-O.jRQos8crSBrMgslTwT.vXmruXw

خوشحال میشم به من سربزنید....

اگر برنامه خاصی مورد نظرتون بود حتما به من بگید. توی ۳۶۰ هم که درخواست کنید اینجا براتون مینویسم....

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

Const SC_MONITORPOWER = &HF170&
Const MON_OFF = 2&
Const WM_SYSCOMMAND = &H112

Private Sub Command1_Click()
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MON_OFF
End Sub

یک برنامه نویس خوب همیشه باید امکان تمام اشتباهات اپراتور رو در نظر بگیره. یکی از معمول ترین این اشتباهات تایپ حروف درکادرهایی هست که فقط باید توی اونها عدد نوشته بشه. چنانچه مایل هستین که text box شما فقط عدد قبول کنه میتونید از کد زیر استفاده کنید:

Private Sub Text1_Keypress(KeyAscii As Integer)
Dim str As String

str=".0123456789"
If KeyAscii>26 then
   If Instr(str,chr(KeyAscii))=0 Then
       KeyAscii=0
   End if
End If
End Sub

من دوباره میخوام اینجا مطلب بنویسم! خوشحالین ؟ نه!؟؟ به هرحال چه خوشحال باشین چه نباشین! من اومدم!

برای مدتی به علت زیاد شدن حجم کارهام باید باهاتون خداحافظی کنم! میدونم که چیزی از شروع وبلاگ نگذشته! ولی دیگه کاریش نمیشه کرد....

به امید دیدار دوباره در اولین فرصت.....

امروز تصمیم گرفتم یه کار جالب برای شما انجام بدم!! از همین امروز تا ۱۰ روز آینده به قید قرعه برای ۲ نفر از کسانی که از سنگهای آرامش بخش و یا اسپوتا دوست من خرید کنند یک پروژه وی بی مجانی انجام میدم! البته شرط اینه که پروژه اختصاصی و غیر قابل فروش باشه! روش قرعه کشی هم بعدا اعلام میشه!! هر کسی هم به من اعتماد نداره شرکت نکنه!! به هرحال خرید سنگهای آرامش بخش خودش یه برگ برنده است! حالا اگه توی قرعه کشی هم برنده شدید که چه بهتر!

خوب اینم یه جور تبلیغه دیگه! همینه که هست!

هر کسی میخواد با شماره مسئول فروش سنگهای آرامش بخش تماس بگیره... ایشان خودشون در مورد خواص اسپوتا هم به شما توضیح میدن.

آقای شعبانی     شماره تماس: ۰۹۱۲۳۳۶۳۸۵۴

سلام دوستان

شاید تا حالا شده که میخواهید نام یک سری فایل (مثل عکسهای موجود توی یک فولدر) رو به صورت سریال در بیارید.

این سورس برنامه ای هست که باهاش میشه این کارو خیلی راحت انجام داد.

البته این نمونه کوچیکی از نرم افزاره که امیدوارم خودتون بتونید تغییرات دلخواه رو روش بدین.

موقع استفاده از این برنامه مواظب فایلهای سیستم باشید! یه وقت اسم اونا رو تغییر ندین!!

لینک دانلود سورس برنامه:

http://rapidshare.com/files/35703596/File_Renamer.rar.html

آیا تا بحال چراغهای سنگ نمک را دیده و یا از خواص آن چیزی شنیده اید؟

امروز میخواهیم شما را بیشتر با این سنگ و خواص آن آشنا کنیم.

چراغ سنگ نمک ساخته شده از سنگ نمک طبیعی میباشد. تشکیل این سنگ بیش از دویست میلیون سال به طول می انجامد.

سنگ نمک ابتدا بافت کدر و غیرشفافی دارد. در مراحل شستشو مواد ناخالصی آن شامل: گوگرد، ماسه و مواد آهکی در حد امکان خارج شده تا سنگ نمک نیمه شفاف و بلورینی حاصل شود.

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

آیا تا به حال چیزی از هاله ها شنیده اید؟

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

با استفاده از چراغهای سنگ نمک میتوان این حوزه ها را پاکسازی و آلودگیهای آن را تا حدود بسیار زیادی از بین برد. که این پاکسازی باعث انبساط خاطر، آرامش و سلامتی خواهد شد.

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

کاهش گرفتگی سینوسها

کاهش مشکلات تنفسی و پایین آوردن شدت حمله های آسمی

بالا بردن ظرفیت شش ها

کاهش حساسیت و آلرژی

کاهش سردردهای میگرنی

کاهش اضطراب و نگرانی

ایجاد تمرکز حواس

تقویت سیستم ایمنی بدن

بالابردن سطح هوشیاری

تنظیم فشار خون

تثبیت قوای بدنی

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

رفع نیاز بدن به نمک

جذب جرم ناشی از دود سیگار

از بین بردن بو

با درنظر گرفتن خواص فوق، به ذکر خواص چراغهای ساخته شده از این سنگ مفید و رنگهای مختلف آن میپردازیم.

 به ادامه مطلب توجه کنید....

امروز اتفاقی به وبلاگی برخوردم که سخن از آزادی و مبارزه دانش آموزان میهن بر علیه ظلم و استبداد حکومت اسلامی میگوید!... بد نیست سری به این وبلاگ بزنید....

http://daneshamozanemobarez.blogfa.com

نمیدانم چرا بعضی از هم وطنان ما هنوز منتظر کسی هستند که روزی خواهد آمد و به این بهانه جز به زندگی روزمره خود به هیچ چیز دیگر اعتنا ندارند مگر اعتراضهای مقطعی و سرسری...

و از آن رنج آور تر اینکه هنوز میخواهند ناجی خود را از میان به ظاهر مجاهدانی انتخاب کنند که هنوز اثر دستهای آلوده آنان از مرزهای غم زده میهن آریایی ما و از سینه شکافته شده جوانان مرزبان این میهن پاک نشده و هنوز که هنوز است داغ خاطره برادرکشی آنان  به روی دلهای میهن دوستان مانده است...

چرا باور نداریم که:

کسی نمیاید که مثل هیچ یک از ما نباشد...

کسی نمیاید که ارزش به انتظار ماندن داشته باشد...

کسی نمیاید که تمام غمها و رنجهای این سالیان دراز را به یکباره از خاطر ما پاک کند...

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

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

بیایید تا درهر لحظه از زندگی با چشمانی باز کاوه ای باشیم در دفاع از حقوق هم میهنانمان...

باشد که آرزوی ایرانی آزاد به دست ایرانیان تحقق یابد...

قفل گذاری نرم افزاری معمولا سه مرحله داره

۱- ایجاد کد قفل روی کامپیوتر

۲- فرمول قفل

۳- چکینگ کد در زمان اجرای نرم افزار

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

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

Dim fso As New FileSystemObject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName("c:"))
HDD_Serial = FormatNumber(drv.SerialNumber, 0)

S1=""

For i = 1 To Len(HDD_Serial)
 If Mid(HDD_Serial, i, 1) <> "," Then S1 = S1 + Mid(HDD_Serial, i, 1)
Next i

HDD_Serial = Trim(S1)

Code1 = ( Val(HDD_Serial) * 3 + 1350) / 5

Open "c:\Serial.sn" For Output As #1
 Print #1, Code1
Close #1

عدد Code1 که توی فایل Serial.sn نوشته شده همون کلید شماست برای ورود به نرم افزار. حالا فقط کافیه که موقع اجرای نرم افزار بتونید با همون فرمول این عدد رو چک کنید و بفهمید که keygenerator شما این عدد رو نوشته یا یکی شیطون شده و یه عدد از خودش توی این فایل نوشته!

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