ساختن Screen Saver بوسیله VB

[حامد مصافی]

نحوه ساختن یه اسکرین سیور خیلی راحته فقط کافیه یه فایل اجرایی به روشی که در زیر میگم بسازین
در فایل های اسکرین سیور برای هر عمل یک پارامتر وجود داره ( در VB با تابع command به پارامتر دسترسی پیدا می کنیم )


وقتی بخواد پخش بشه ویندوز پارامتر S/ رو به برنامه ارسال میکنه
وقتی کاربر اسکرین سیور رو نصب میکنه ویندوز پاراکتر P/ رو به برنامه ارسال میکنه
اگه کاربر بخواد تغییراتی در اسکرین سیور اعمال کنه ( وارد قسمت Setting اسکرین سیور بشه ) پارامتری به برنامه ارسال نمیشه

پس باید از کد زیر برای رویداد آغاز فرم استفاده کنیم


Private Sub Form_Load()
Select Case UCase$(Left$(Command$, 2))
Case "/S":
Start ' Starting Screen Saver
Case "/P":
MsgBox "Thank you for instaling this ScreenSaver", vbInformation, "Mandelbort"
Unload Me
Case Else
MsgBox "There is not setting for this Screen Saver", vbInformation, "Mandelbort"
Unload Me
End Select
End Sub



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

یادتون باشه اسکرین سیور رو باید با پسوند scr ذخیره کنین