ايران ويج

نسخه‌ی کامل: ثابت شدن فرم روی دسکتاپ
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام دوتان

من دارم رویه یه برنامه کار می کنم و تقریباً تمامه ولی تنها مشکلش این است که می خوام وقتی اجرا شد کل صفحه رو بگیره ودیگه تا رمز رو بهش ندیدی اون صفحه نره من تا حدودی موفق بود
حالا وقتی اجرا میشه کل صفح رو می گیره و قادر است که تسک منیجر رو هم ببنده ولی با فشردن کلید ویندوز رو صفحه کلید پنجره ی استارت باز میشه که از انجا میشه میشه به همه جا دسترسی پیدا کرد برای دسترسی به دسکتاپ هم از تسکبار میشه استفاده کرد حالا کمک کنید چطور من این مشکل رو بر طرف کنم
خیلی متوجه نشدم .برنامتون می خواهید نه به دسکتاپ و نه به استارتاپ دسترسی داشته یعنی در واقع کاربر بجز نرم افزار شما به هیچ چیز دیگه دسترسی نداشته باشه درسته؟
اگه آره
برای از بین بردن نوار تسک بار از کد زیر استفاده کنی
کد php:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As LongByVal nCmdShow As Long) As Long
Private Const SW_HIDE 0
Private Const SW_NORMAL 1
Private Sub HideTaskBar()
Dim h As Long
FindWindow("Shell_TrayWnd"vbNullString)
ShowWindow hSW_HIDE
End Sub
Private Sub ShowTaskBar()
Dim h As Long
FindWindow("Shell_TrayWnd"vbNullString)
ShowWindow hSW_NORMAL
End Sub

Private Sub Command1_Click()
Call HideTaskBar
End Sub

Private Sub Command2_Click()
Call ShowTaskBar
End Sub 
برای غیر فعال کردن دکمه های کیبرد هم می تونی از ضمیمه استفاده کنی
البته باید بفهمی که مثلا برنامه شما الان داره کار می کنه که یه سورس این جوری هم گذاشتن (با این سورس دوم شما خواهید فهمید که فوکوس روی کدام برنامه می باشد.)
آره درسته من می خواستم که وقتی برنامه اجرا شد دیگه کاربر به هیچ جا دسترسی نداشته باشه و تا زمانی که رمز را وارد نکند برنامه بسته نشود

دست شما درد نکنه ممنون آقای skh1300
(۲۰-مرداد-۱۳۸۹, ۱۹:۳۰:۱۲)skh1300 نوشته است: [ -> ]
کد php:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As LongByVal nCmdShow As Long) As Long
Private Const SW_HIDE 0
Private Const SW_NORMAL 1
Private Sub HideTaskBar()
Dim h As Long
FindWindow("Shell_TrayWnd"vbNullString)
ShowWindow hSW_HIDE
End Sub
Private Sub ShowTaskBar()
Dim h As Long
FindWindow("Shell_TrayWnd"vbNullString)
ShowWindow hSW_NORMAL
End Sub

Private Sub Command1_Click()
Call HideTaskBar
End Sub

Private Sub Command2_Click()
Call ShowTaskBar
End Sub 

این کدی که شما دادین تسکبار رو مخفی می کنی و این خوبه ولی بازم مشکلش اینه که پنجره ی استارت رو نشون میده اگر بشه این پنجره ی استارت هم نشان داه نشه دیگه نور الا نور میشه
نقل قول: این کدی که شما دادین تسکبار رو مخفی می کنی و این خوبه ولی بازم مشکلش اینه که پنجره ی استارت رو نشون میده اگر بشه این پنجره ی استارت هم نشان داه نشه دیگه نور الا نور میشه
شما از این سورس استفاده کن
قسمت کلاینتش همون کاری هست که می خوای
اون سورسی که در قسمت کلاینت هستش خودش هم مشکل داره و مشکلش اینه که یک صفحه ی شیشه ای روی فرم اصلی رو میگیره و نمی شود هیچ کاری کرد ، من که همه کارش رو تکمیل کردم و فقط بعد از کمک شما برای مخفی کردن تسکبار فقط میمونه مخفی کردن پنجره ی استارت ------------------
نيازی نيست چيزی رو مخفی کنيد
فرم رو ماکسی مايز کنيد و تو يه تايمر با زمان کم فرم رو On Top کنيد خاصيت BorderStyle فرم رو هم 0 کنيد
من تمام این کارایی که گفتید رو قبلاً انجام دادم شاید منظورم رو متوجه نشدید من گفتم که می خوام وقتی برنامه اجرا شد تا رمز را وارد نکنی به هیچ جا دسترسی نداشته باشی
وقتی فرم رو تو تايمر on top بشه هيچ پنجره نميتونه رو پنجره برنامه بياد
(۲۲-مرداد-۱۳۸۹, ۱۶:۳۰:۰۲)CRazYFULL نوشته است: [ -> ]وقتی فرم رو تو تايمر on top بشه هيچ پنجره نميتونه رو پنجره برنامه بياد

نحوه ی on top کردن رو لطف می کنید بگید
آقا من راه کار رو در این تاپیک پیدا کردم هر کس می خواد میتونه به این تاپیک مراجعه کند
http://www.iranled.com/forum/showthread.php?tid=1049
explorer.exe رو ببندید، تا حدود زیادی مشکل حل می شود،
بعد دستوری بذارید که با زدن پسور دوباره explorer.exe فعال شود...