سلام عزیزان.
چه جوری میتونیم توی یه فرم دکمه ی ضربدر مربوط به بستن فرم رو خاموش کنیم؟
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 درست کنی. [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام.نقل قول:
فایل های مورد نیاز ویبی رو خود وین xp داره. مگر این که از کامپوننت های خاصی استفاده کرده باشی که اونم میشه تو ریسورس قرار داد تا مجبور نباشی ستاپ بسازی.
اینم حرفیه.
منظورتون از ریسورس، همون سورس هستش دیگه.
چون معنی ریسورس یه چیزه دیگست.
یعنی چی VB برای ویروس نوشتن خوب نیست؟پس چی خوبه؟نقل قول:
میشه در مورد جمله های اخرت توضیح بدی؟من که هرچی میخونم نمیفهمم چی نوشتی.
منظورت چی بود از ایول بابا؟نقل قول:
راستی اساتید؟
هیچ راهی برای اینکه فایل بدون کلیک اجرا بشه وجود نداره؟
یعنی به محض اینکه ویندوز فایل رو شناخت فایل اجرا بشه.
تا اونجایی که من خبر دارم، معمولا با پرل و از اینجور چیزا ویروس مینویسن.
قبول دارم، یه مقدار گنگ نوشتم.
وقتی شما یه برنامه مینویسی (با وی بی) بسته به این که از چه چیزایی توش استفاده کرده باشی. نیاز به یه سری فایل های اضافی برای اجرا شدن داره. اگه نباشن برنامه اجرا نمیشه.
فکر کنم بقیش رو متوجه شدی.
ایشون هم احتمالا قصد بالا بردن تعداد پستهاشون رو دارن. چون تو یه تاپیک دیگه هم که من دیدم، همین جمله رو با همین تعداد نقطه نوشته بودن. حالا الله اعلم، که تو چند تا تاپیک ایول بابا گفتن.
چرا هست.نقل قول:
البته شرایط داره. مثلا فایلت تو یه cd باشه، و با استفاده از فایل autorun.inf برنامه رو اجرا کنی.
یا روشهای دیگه، (من فعلا همین یکی یادم اومد.)
کی میشه فرهنگ سرچ جا بیفته؟؟
کد:Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Sub DisableXbutton(ByVal frmHwnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(frmHwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (frmHwnd)
End If
End Sub
اگه جا میفتاد، چی میشد ...
اینم سوالی که خیلی وقت پیش پرسیده شده بود
کد:http://forum.p30world.com/showpost.php?p=2078713&postcount=7
نقل قول:
این کار هایی که شما میکنید یعنی چه؟
من صد بار گفتم که هیچی حالیم نیست.
این کدها ماله چیه؟من که کدی نخواسته بودم.
سلام.
آقای توکلی سعی کن از کمک های دوستان استفاده کنی. انتظار نداشته باش پروژه آماده برات بنویسن و آپ کنن. خودت هم کمی تلاش کن.
کل اون کدها رو باید کپی کنی داخل یه ماژول.
بعد هر جا که خواستی دکمه غیر فعال بشه، اینو می نویسی.
DisableXbutton form1.hwnd