test

test test test

  
نویسنده : محمد ; ساعت ۱۱:۳٠ ‎ق.ظ روز دوشنبه ٢۳ آبان ،۱۳۸٤

دومين جديد

بينندگان عزيز توجه داشته باشند، سايت ما از اين به بعد در آدرس www.sma-soft.ir قابل دسترسی بوده و ديگر در آدرس www.sma-soft.com موجود نمی باشد.

  
نویسنده : محمد ; ساعت ۱۱:۱٧ ‎ق.ظ روز دوشنبه ۱٦ آبان ،۱۳۸٤

دومين جديد

سلام به همه دوستان

سايت ما از اين به بعد در آدرس www.sma-soft.ir قابل دسترسی خواهد بود.

 

  
نویسنده : محمد ; ساعت ٥:٠۳ ‎ب.ظ روز شنبه ۳ بهمن ،۱۳۸۳

www.sma-soft.com

www.sma-soft.com

سایت جدیدم رو راه اندازی کردم.

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

از این به بعد مطالبم رو اونجا می نویسم.

در ضمن اگر دیدید لینک بعضی از برنامه های این وبلاگ خراب است، از سایت اصلی دانلود کنید.

 

www.sma-soft.com

 

 

  
نویسنده : محمد ; ساعت ۳:٤۳ ‎ق.ظ روز سه‌شنبه ٢٧ امرداد ،۱۳۸۳

هشدار!

هشدار!

 

جديدا در برخي از سايتها و وبلاگها، به اسم Smart-PS، ويروس و تروجان براي دانلود مي گذارند.

يادتون باشه که اين برنامه پولي است و از هيچ سايتي قابل دريافت نيست.

و اگر هم جايي اون رو براي دانلود ديديد، مطمئن باشيد که با دانلود کردنش خودتون هک مي شيد و پسوردتون براي صاحبان اون سايتها و وبلاگ ها ميره.

پس مواظب باشيد که چيزي به اسم Smart-PS از جايي دانلود نکنيد.

اگر هم قرار باشه اين برنامه براي دانلود گذاشته بشه، در همين سايت و وبلاگ گذاشته مي شه. يا در سايتي که من تاييدش کنم.

در ضمن براي خريد اين برنامه به لينک زير مراجعه کنيد:

همه چيز در اينجا توضيح داده شده است.

Buy Smart-PS

  
نویسنده : محمد ; ساعت ٦:۱٧ ‎ق.ظ روز سه‌شنبه ۱۳ امرداد ،۱۳۸۳

استفاده از شيء فرم در توابع و زيربرنامه ها

استفاده از شيء فرم در توابع و زيربرنامه ها

 

همان طور که مي دانيد براي راحتتر شدن کد نويسي، از توابع و زير برنامه ها استفاده مي شود.

در VB وقتي در کد مربوط به يک فرم، يک تابع تعريف مي کرديد، از درون آن تابع مي توانستيد به فرم و اشياء آن دسترسي داشته باشيد.

مثال:

 

Public Sub SetCaption()

Caption = "This is a testion"

Text1.Text = "This is a new testion"

End Sub

 

Private Sub Command1_Click()

SetCaption

End Sub

همانطور که مي بينيد، در تابع SetCaption نيازي نيست که ما عبارت Form1 را ذکر کنيم. و وقتي مي گوئيم Caption = ... در واقع مثل اين است که بنويسيم Form1.Caption = ... . و همچنين Text1 که يک شيء وابسته به Form1 است.

 

اما اگر دقت کرده باشيد، در دلفي چنين چيزي نيست. يعني اگر شما يک procedure يا function در يونيت فرم خود تعريف کنيد، براي دسترسي به اشياء و خواصيت هاي فرم خود، بايد اسم فرم را ذکر کنيد. همان مثال در دلفي:

 

procedure SetCaption;

begin

Caption:='This is a testion';

Text1.Text:='This is a new testion';

end;

چنانچه کد زير را بنويسيد، برنامه ي شما به خطا برخواهد خورد.

براي رفع اين خطا 3 راه وجود دارد. يکي اين که اول تک تک اشياء کلمه ي Form1 را اضافه کنيم ( که البته راه حلي غير منطقي است ! )

در اين صورت کد ما به شکل زير در مي آيد:

 

procedure SetCaption;

begin

Form1.Caption:='This is a testion';

Form1.Text1.Text:='This is a new testion';

end;

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

 

procedure SetCaption;

begin

with Form1 do

begin

Caption:='This is a testion';

Text1.Text:='This is a new testion';

end;

end;

حکم with را حتما آشنايي داريد. بنابراين ديگر آن را توضيح نمي دهيم.

و اما راه حل سوم که بهترين راه حل است، استفاده از قسمتهاي public و يا private در فرم است. اگر به تعريف يک فرم نگاه کنيد، اين را مي بينيد:

 

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

در قسمتهاي public و private شما مي توانيد توابع و زيربرنامه هاي دلخواه خود را براي فرم مورد نظر تعريف کنيد. بدين صورت که ابتدا تعريف تابع همراه با پارامترهاي آن را نوشته و سپس در قسمت implementation، کد اصلي تابع را مي نويسيد.

حال مثال قبلي را براي قسمتهاي public و private مي زنيم:

 

  Public

      Procedure SetCaption;

 

در اينجا زيربرنامه ي SetCaption را تعريف کرده ايم. سپس در قسمت implementation چنين مي نويسيم:

Procedure TForm1.SetCaption;

Begin

Caption:='This is a testion';

Text1.Text:='This is a new testion';

End;

 

همانطور که مشاهده مي کنيد، در کد اصلي تابع، ذکر کردن اسم فرم ضروريست. چنانچه در اينجا کلمه ي TForm1 را حذف کنيم، برنامه با خطا مواجه خواهد شد.

 

حال اين سوال پيش مي آيد که تفاوت دو قسمت public و private در چيست؟

تفاوت آنها در اين است که توابعي که در قسمت public مي نويسيد، عمومي بوده و از ديگر يونيتهايي که از اين يونيت استفاده مي کنند (uses)، قابل صدا کردن مي باشد. ولي توابع و زيربرنامه هايي که در قسمت private مي نويسيد، فقط از دورن يونيت همان فرم قابل دسترسي مي باشد.

 

 

  
نویسنده : محمد ; ساعت ۳:۳٧ ‎ق.ظ روز دوشنبه ۱٢ امرداد ،۱۳۸۳

سوالات پرسيده شده در مورد Smart-PS

سوالات پرسيده شده در مورد Smart-PS

 

در اين مدت که من هيچ مطلبي پست نمي کردم، تعداد زيادي از دوستان سوالاتي از من پرسيدند که من لازم مي دونم جوابش رو اينجا براي همه بنويسم.

 

سوال – آيا موقع فرستادن پسورد، پنجره PM آن قابل ديدن است؟

جواب – خير. PM به صورت مخفي ارسال شده و قرباني متوجه آن نمي شود.

 

سوال – آيا PM ارسال پسورد، در Message Archive قرباني ثبت مي شود؟

جواب – خير.

 

سوال – آيا موقع تايپ کردن پسورد توسط قرباني، توپي هاي پسورد کوچک مي شوند؟

جواب – در اين ورژن بله. ولي در ورژن بعدي يعني 1.2 ديگر اين طور نيست.

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

 

سوال – اگر اين ورژن را خريده باشيم، براي ورژن بعدي بايد دوباره پول بدهيم؟

جواب – تنها تفاوت قيمت دو ورژن را مي پردازيد. نه کل مبلغ را.

 

سوال – آيا اين برنامه توانايي ارسال Dialup Pass هم دارد؟

جواب – خير.

 

سوال – حجم سرورش چند است؟

جواب – ً 20 کيلوبايت.

 

سوال – با چه زباني نوشته شده است؟

جواب – سرور آن با دلفي 6 و Creator آن با ويژوال بيسيک 5.

 

سوال – چنان چه قبلا کسي با اين برنامه هک شده باشد، وقتي ما نيز آن را هک کنيم چه مي شود؟

جواب – در اين صورت، آن قرباني متعلق به شما مي شود. يعني ديگر پسورد وي براي هکر قبلي نمي رود.

 و آخرين سروري که روي آن کامپيوتر اجرا شده باشد کار گذاشته خواهد شد.

 

سوال –چه کسي اين برنامه رو نوشته؟ (واقعا جاي تاسفه که بعضي ها اين سوال رو مي پرسند)

جواب – من (sma_soft) اين برنامه رو نوشتم.

 

در ضمن عزيزاني که در خارج از کشور هستند، اگر يک آشنا در ايران داشته باشند مي توانند اين برنامه را بخرند.

 

  
نویسنده : محمد ; ساعت ٦:٥۸ ‎ب.ظ روز دوشنبه ٢٩ تیر ،۱۳۸۳

جواب به سوالات

جواب به سوالات

 

چه شکلي مي توان با وي بي دات نت فايل اجرايي مستقل ساخت

با VB.NET و در کل زبان هاي دات نت، نمي توان فايل اجرايي مستقل ساخت. و فايل شما براي اجرا شدن، به .NET Framework نياز دارد. که بايد بر روي ويندوز نصب شود. و حدود 30MB جا مي گيرد. و در ضمن در ويندوز 2000 و به بعد کار مي کند. يعني در ويندوز 98 و Me، نمي توان برنامه هايي که با يک زبان دات نت نوشته شده باشند، اجرا کرد.

در Windows Server 2003 ، به طور پيش فرض .NET Framework وجود دارد. بنابراين، اگر فايل مورد نظر شما روي Win2003 اجرا شود، حکم يک فايل مستقل را دارد. اما در غير اين صورت، بايد .NET Framework روي سيستم نصب شود. يعني در ويندوزهاي 2000 و XP.

 

سلام محمد جان من يک برنامه نوشتم ميخوام ايکون اونو از ايکون معمولي ويژوال بيسيک در بيارم بايد چه کار کنم

خيلي راحت. خاصيت Icon رو در فرم خودت تغيير بده و يک آيکون (فايل با پسوند .ico) انتخاب کن. و بعد موقع exe کردن پروژه، در قسمت Options، مي توني آيکون رو انتخاب کني. (اگر چندتا فرم داشته باشه برنامت)

 

 

سلام يک سوالي داشتم مي خواستم بپرسم که با تراژوا ميشه کامپيوتر هايي که در يک کافي نت هست هک کرد يا بايد سرور را به کامپوتر اصلي وارد کرد. منتظر جواب هستم. ممنون باي.

شما از درون کافي نت، مي تونيد کامپيوترهاي ديگر در همون کافي نت رو هک کنيد. ولي از خارج کافي نت، فقط کامپيوتر مرکزي رو ميشه هک کرد. و کامپيوترهاي ديگر که از اينترنت کامپيوتر مرکزي استفاده مي کنند رو نميشه از خارج از اون کافي نت هک کرد.

 

 

 

 

  
نویسنده : محمد ; ساعت ٥:٢٠ ‎ب.ظ روز پنجشنبه ۱۱ تیر ،۱۳۸۳

OpenPassXP

OpenPassXP

این هم برنامه ای برای نمایش دادن پسوردهای ستاره ای و دایره ای در ویندوز XP، 2000 و 2003

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

 

Download OpenPassXP

 

  
نویسنده : محمد ; ساعت ٢:۱٤ ‎ق.ظ روز چهارشنبه ۱٠ تیر ،۱۳۸۳

اثاث کشی تموم شد

بالاخره اثاث کشی تموم شد. هم اکنون مجددا فروش برقرار می باشد.

  
نویسنده : محمد ; ساعت ۸:۳۳ ‎ب.ظ روز سه‌شنبه ٩ تیر ،۱۳۸۳

اثاث کشی

سلام به همه ي دوستان.

 

به علت اثاث کشی، من حدود یک هفته نمی تونم بیام اینترنت. و در این یک هفته، فروش Smart-PS برقرار نمی باشد. ولی ایشالا بعد از این مدت، مجددا فروش برقرار خواهد شد.

 

 

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

 

 

سلام سه تا از شما سوال داشتم: شما چند تا برنامه نويسي بلدين؟ آيا از ويژوال سي پلاس پلاس هم سر رشته دارين؟ آيا بلدين يك پنجره ي جهنده در ويژوال بيسيك با راست كليك تعريف كنيد؟چه طوري؟ ------------شما راههايي براي مستقل ساختن فایلهای اجرایی در ويژوال گفتين.اما راههاي آسونتري هم داره : مثلا بهره گيري از تعريف فرم كه مايكروسافت در زبان مرجعش به اون اشاره كرده است.--------------. به اميد خداي متعال VCB

 

 

1- من با زبانهای Delphi , Visual Basic , ASP , HTML , VBScript , Javascript , Visual C++ , Win32Assembly کار می کنم.

 

2- از Visual C هم بله سررشته دارم. اما زبان اصلی من برای برنامه نویسی ویندوز، دلفی است.

 

3-در مورد پنجره جهنده باید بگم که: در رویداد MouseUp در فرم، این کد را می نویسیم:

 

 

If Button = vbRightButton Then

 

Form2.Show

 

End If

 

 

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

  
نویسنده : محمد ; ساعت ٥:٢٦ ‎ب.ظ روز چهارشنبه ۳ تیر ،۱۳۸۳

Smart-PS v1.0 is now Ready For Sale

Smart-PS v1.0 is now Ready For Sale

 

بالاخره برنامه ی Smart-PS برای فروش آماده شد.

قیمت این برنامه 5000 (پنج هزار) تومان می باشد.

کسانی که می خواهند این برنامه را بخرند، به آي دي من یعنی sma_soft پی ام بدن.

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

توضیحاتی در مورد این برنامه را اینجا ببینید.

 

با تشکر: SMA Soft

 

  
نویسنده : محمد ; ساعت ٥:٥۸ ‎ب.ظ روز چهارشنبه ٦ خرداد ،۱۳۸۳

Smart-PS v1.0

Smart-PS v1.0 For Sale

 

  
نویسنده : محمد ; ساعت ۳:٠٤ ‎ق.ظ روز یکشنبه ۳ خرداد ،۱۳۸۳

Status Changer 3.0

Status Changer 3.0

 

اینم از Status Changer 3.0 که قرار بود پولی بشه ولی Free شد.

قابلیت های جدید:

برای Invisible , Busy , … از دکمه استفاده شده.

همچنین PM Symbol می تونید تعریف کنید. یعنی بدین صورت که به جای جمله ی پیش فرض I’m Chatting with %d persons، هر جمله ای که خودتون خواستید رو می تونید بذارید. مثلا بدین شکل:

دارم با %d نفر چت می کنم.

اونوقت، هر کسی که جدید به شما PM بده، این متن درون Status شما نمایش داده خواهد شد.

در ضمن این برنامه با Yahoo5 بیشتر سازگار است تا Yahoo6.

Download Now

 

  
نویسنده : محمد ; ساعت ٧:٠۳ ‎ق.ظ روز شنبه ٢ خرداد ،۱۳۸۳

Smart-PS v1.0

Smart-PS v1.0

معرفی برنامه

برنامه ی Smart-PS نسخه ی 1.0 تا چند روز دیگر برای فروش آماده خواهد شد.

با آمدن یاهو مسنجر ورژن 6، تمام برنامه های PS(Password Sender) قدیمی از کار افتادند. و دیگر نمی توانند برای شما پسورد ارسال کنند.

یعنی چنانچه طرف از یاهو مسنجر 6 استفاده کند، دیگر نمی توان با استفاده از این برنامه ها، پسورد وی را پیدا کرد.

Smart-PS این توانایی را دارد که در یاهو مسنجر 6 هم پسورد را برای شما ارسال کند. یعنی برای این برنامه فرقی ندارد که طرف از چه ورژنی از یاهو مسنجر استفاده می کند. و در هر صورت پسورد را برای شما ارسال خواهد کرد. و به قول معروف، این برنامه Backward-Compatible است. چون هنوز تعدادی هستند که از یاهو مسنجر 5 استفاده می کنند.

 

مزیت ها

این برنامه علاوه بر سازگار بودن با یاهو مسنجر 6، مزیتهایی نیز نسبت به PS های دیگر دارد.  که شرح می دهیم:

·         مهمترین مزیت این برنامه این است که شما برای پیدا کردن پسورد طرف، دیگر لازم نیست صبر کنید که طرف یک بار دیگر به مسنجر Login کند. Smart-PS پسورد را همان لحظه برای شما ارسال خواهد کرد. البته پسورد را در دفعات بعدی Login نیز ارسال می کند.

·         Smart-PS دارای قابلیت Custom Icon می باشد. یعنی شما می توانید هر آیکونی که خودتان خواستید برای سرور بگذارید. به عنوان مثال می توانید آیکون برنامه ی Notepad را روی سرور بگذارید. که البته برای این کار نیاز به برنامه ی IconCollector 1.0 دارید. که می توانید آن را از اینجا دانلود کنید:

·         Download IconCollector

·         این برنامه قابلیت رد گم کردن دارد. یعنی برخلاف PS های دیگر که برای رد گم کردن، MessageArchive طرف را به کل پاک می کنند، Smart-PS کاری می کند که اصلا PM مربوط به فرستادن پسورد، در مسج آرشیو ثبت نمی گردد. لذا قابل ردیابی نیست.

·         این برنامه  Unknown Startup  است. یعنی طرف با آوردن MsConfig قادر به پاک کردن Smart-PS از سیستم نیست.

 

 

قابلیت های برنامه

·         Disable TaskManager

·         Disable Registry

·         Disable MsConfig

·         Disable Yahoo! Save Password

·         Send IP

·         Send OS Name

·         Send Password OnTime

·         Melt After Install

·         Filename After Install

·         Fake Error Message

·         Jpeg , Setup , Custom Icons

·         Binder

·        Unknown Startup

·        No PM in Message Archive

 


 

 

Copyright © 2004 by SMA Soft

www.partiasoft.com

www.smasoft.persianblog.ir

sma_soft@yahoo.com

 

  
نویسنده : محمد ; ساعت ٤:۱٧ ‎ب.ظ روز چهارشنبه ٢۳ اردیبهشت ،۱۳۸۳

گله؟

: محمد

 دوشنبه، 14 اردىبهشت 1383، ساعت 20:49

 

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

 

  E-mail:  mohammad3062@yahoo.com

 URL:  وارد نشده است

 

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

 

و در اینجا یک نکته به همه: اگر سوالی در زمینه ی استفاده از ترانژوا براتون پیش اومد، می تونید اون رو در قسمت آرشیو وبلاگ، آذر و دی ماه 1382 پیدا کنید. یعنی اینجا و اونجا

 

مخصوصا اینجا رو اکیدا توصیه می کنم که حتما بخونید.

 

  
نویسنده : محمد ; ساعت ۱:٠۸ ‎ب.ظ روز دوشنبه ٢۱ اردیبهشت ،۱۳۸۳

آيا پشت خطی داريم؟

آيا پشت خطی داریم؟

اگر شما هم یک خط تلفن دارید و با همون یک خط به اینترنت وصل می شید و همه ش دیگران پشت خط می مونن و اسیر (!) شده اند ، روشهایی وجود داره که بفهمید آیا کسی پشت خط شما هست یا خیر. البته بدون استفاده از سرویس های ویژه ی مخابراتی.

وقتی که کسی در حال تلاش برای گرفتن شماره ی شما باشه و به بوق اشغال بر بخوره، سرعت اینترنت شما کم میشه؛ مسنجر هنگ می کنه و PM ها دیر میرسه؛ به بدبختی می تونید سایت ببینید و …

اگر طرف خیلی مصر باشه و اینترنت شما هم سرعت زیادی نداشته باشه (مثلا 28kbps) حتی ممکنه شما DC بشید.

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

مشخص ترین علامت اون، همین دیر رسیدن PM ها هست. به طوری که یهو 7 – 8 – 10 خط PM جدید پشت سرم هم به شما می رسه.

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

که در این لحظه شما باید از روی جوانمردی، اینترنت رو DC کنید و بذارید طرف حرفشو بزنه  

 

  
نویسنده : محمد ; ساعت ٧:٢۱ ‎ب.ظ روز دوشنبه ۱٤ اردیبهشت ،۱۳۸۳

پسورد

پسورد

بعضی از برنامه هایی که من برای دانلود گذاشتم، برای نصب شدن احتیاج به پسورد دارند.

پسورد همه ی آنها 1 است.

و من همیشه همین پسورد رو برای دانلودها می ذارم.

 

  
نویسنده : محمد ; ساعت ۱:۱٠ ‎ب.ظ روز یکشنبه ٦ اردیبهشت ،۱۳۸۳

بیرون دادن CD Drive در صفحه وب

بیرون دادن CD Drive در صفحه وب

ممکنه شما بعضی سایتها رو دیده باشید که وقتی داخل اونها می شید، CD Drive شما خود به بیرون می آد !

شما هم می تونید در سایت خودتون چنین چیزی رو قرار بدید.

این کار به وسیله ی Vbscript قابل انجام است.

توسط کد زیر:

<SCRIPT language=VBScript>

<!--

Set oWMP = ("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

End If

-->

</SCRIPT>

 

 

یک نمونه از این کد رو می تونید اینجا ببینید.

 

  
نویسنده : محمد ; ساعت ٧:۱۱ ‎ب.ظ روز دوشنبه ۳۱ فروردین ،۱۳۸۳

قالب جدید

قالب جدید

 

بعد از چند وقت قالب وبلاگم رو عوض کردم.

این قالب توسط دوست عزیزم نبی طراحی شده است.

امیدوارم خوشتون بیاد.

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

 

 

  
نویسنده : محمد ; ساعت ٢:٤٥ ‎ب.ظ روز دوشنبه ۳۱ فروردین ،۱۳۸۳

← صفحه بعد