سلام عزیزان.
چه جوری میتونیم توی یه فرم دکمه ی ضربدر مربوط به بستن فرم رو خاموش کنیم؟
Printable View
سلام عزیزان.
چه جوری میتونیم توی یه فرم دکمه ی ضربدر مربوط به بستن فرم رو خاموش کنیم؟
خاموش کردنش رو نمی دونم. ولی اگه خاصیت ControlBox رو False کنی. این دکمه حذف میشه. البته با این کار کل دکمه ها (max و min) حذف میشن.
خسته نباشی دوست عزیز.
این رو که دیگه همه میدونن.
ولی بازم دستت درد نکنه.
حالا یعنی هیچ راهی وجود نداره؟
راه که داره. چون اینجانب دیدم. فکر کنم خودتون هم دیده باشین. مثال بارزش ویروس بلستر و اون پنجره پیغامی که نشون داده میشه.
اگه دقت کرده باشین دکمه close اون غیر فعاله.
به نظر من توی توابع api باید جستجو کنی. راهشو پیدا کردی ما رو هم بی نصیب نذار.
بله.نقل قول:
منظور من هم دقیقا ویروس بلستر هست.
میخوام یکی مثل اون رو خودم بسازم.:31:
حالا که یکم دارم VB یاد میگیرم میبینم ویروس بلستر با اون همه شهرتش فقط از چند کد ساده درست شده.
پس زدم تو خال.
ای شیطون. حالا که فکر می کنم میبینم بقیه سوالاتت هم که مطرح کردی، مربوط میشه به همین موضوع.
این همه بلستر ملت و اذیت کرد و کاربرا به نویسندش هر چی که از دهنشون در میومد گفتن، کافی نبود.
اگه هدفت فقط بالا بردن سطح علمیته، موفق باشی. ولی اگه می خوای ملت رو اذیت کنی، ایشالا که نتونی بنویسی. این همه کار میشه انجام داد. اد باید برید سراغ ویروس نویسی. (بماند که خودم هم برنامه هایی که مینویسم هیچ کدوم انسان دوستانه نیست)
چون تو اون یکی تاپیک، یه اشتباه کردم (کد #C رو گذاشته بودم)، برات کد غیر فعال کردن رو پیدا کردم.
البته اگه قبل از ایجاد این تاپیک یه سرچ کوچولو تو گوگل میکردی، جوابت رو میگرفتی.
این دو تا تابع رو باید declare کنی.
اینم نحوه ی غیر فعال کردن و فعال کردن مجدد.کد:Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd _
As Long, ByVal bRevert As Boolean) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal _
hMenu As Long) As Long
(بذار یه چک بکنم ببینم #C نباشه :31: ... نه خدا رو شکر وی بیه :10: )کد:Public Sub DisableClose(frm As Form, Optional _
Disable As Boolean = True)
'Setting Disable to False disables the 'X',
'otherwise, it's reset
Dim hMenu As Long
Dim nCount As Long
If Disable Then
hMenu = GetSystemMenu(frm.hwnd, False)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or _
MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or _
MF_BYPOSITION)
DrawMenuBar frm.hwnd
Else
GetSystemMenu frm.hwnd, True
DrawMenuBar frm.hwnd
End If
End Sub
راستی ویروس رو که نوشتی، تو قسمت خالقان، باید از منم تشکر کنیا :21: :5: :31:
منبع اون کد رو یادم رفت بگم.
کد:http://www.freevbcode.com/ShowCode.asp?ID=342
راستی، دوست عزیز، اینو یه نگاه بنداز
ببین چه قدر تو نت درباره این مشکل شما مطلب هست.کد:http://www.google.com/search?rls=en&q=disable+close+button+vb6
دستت درد نکنه.کار داد.
اخه ما اگه ویروس ننویسیم چی بنویسیم که به درد بخوره؟
بیام Clone cd بنویسیم یا maya ؟
کدومش رو دوست داری فردا برات بنویسم؟
به هر حال ایرانی جماعت رو برای ویروس نوشتن ساختن.
نه عزیز جون. من نگفتم بیای مایا و این جور چیزا رو بنویسی (کار هر کس نیست خرمن کوفتن ...)
با این حرفت هم مخالفم.
در ضمن ویروس نوشتن هم هنر میخواد.
بعدشم، وی بی بدرد ویروس نویسی نمیخوره، بی خیالش شو.
فایل exe ای که شما با vb ایجاد میکنی، رو هر سیستمی اجرا نمیشه. چون به فایلهایی برای اجرا شدن نیاز داره.
یعنی یا باید به ویروسی شدن کامپیوترهایی که قبلا یه نرم افزار که با vb نوشته شده، روش نصب شده، رضایت بدی.
یا اینکه برا ویروست setup درست کنی. [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]