ثابت شدن فرم روی دسکتاپ

[download69]

سلام دوتان

من دارم رویه یه برنامه کار می کنم و تقریباً تمامه ولی تنها مشکلش این است که می خوام وقتی اجرا شد کل صفحه رو بگیره ودیگه تا رمز رو بهش ندیدی اون صفحه نره من تا حدودی موفق بود
حالا وقتی اجرا میشه کل صفح رو می گیره و قادر است که تسک منیجر رو هم ببنده ولی با فشردن کلید ویندوز رو صفحه کلید پنجره ی استارت باز میشه که از انجا میشه میشه به همه جا دسترسی پیدا کرد برای دسترسی به دسکتاپ هم از تسکبار میشه استفاده کرد حالا کمک کنید چطور من این مشکل رو بر طرف کنم

[skh1300]

خیلی متوجه نشدم .برنامتون می خواهید نه به دسکتاپ و نه به استارتاپ دسترسی داشته یعنی در واقع کاربر بجز نرم افزار شما به هیچ چیز دیگه دسترسی نداشته باشه درسته؟
اگه آره
برای از بین بردن نوار تسک بار از کد زیر استفاده کنی

کد php:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Private Sub HideTaskBar()
Dim h As Long
h = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow h, SW_HIDE
End Sub
Private Sub ShowTaskBar()
Dim h As Long
h = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow h, SW_NORMAL
End Sub

Private Sub Command1_Click()
Call HideTaskBar
End Sub

Private Sub Command2_Click()
Call ShowTaskBar
End Sub 


برای غیر فعال کردن دکمه های کیبرد هم می تونی از ضمیمه استفاده کنی
البته باید بفهمی که مثلا برنامه شما الان داره کار می کنه که یه سورس این جوری هم گذاشتن (با این سورس دوم شما خواهید فهمید که فوکوس روی کدام برنامه می باشد.)

[download69]

آره درسته من می خواستم که وقتی برنامه اجرا شد دیگه کاربر به هیچ جا دسترسی نداشته باشه و تا زمانی که رمز را وارد نکند برنامه بسته نشود

دست شما درد نکنه ممنون آقای skh1300

---

کد php:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Private Sub HideTaskBar()
Dim h As Long
h = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow h, SW_HIDE
End Sub
Private Sub ShowTaskBar()
Dim h As Long
h = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow h, SW_NORMAL
End Sub

Private Sub Command1_Click()
Call HideTaskBar
End Sub

Private Sub Command2_Click()
Call ShowTaskBar
End Sub 


این کدی که شما دادین تسکبار رو مخفی می کنی و این خوبه ولی بازم مشکلش اینه که پنجره ی استارت رو نشون میده اگر بشه این پنجره ی استارت هم نشان داه نشه دیگه نور الا نور میشه

[skh1300]

این کدی که شما دادین تسکبار رو مخفی می کنی و این خوبه ولی بازم مشکلش اینه که پنجره ی استارت رو نشون میده اگر بشه این پنجره ی استارت هم نشان داه نشه دیگه نور الا نور میشه

شما از این سورس استفاده کن
قسمت کلاینتش همون کاری هست که می خوای

[download69]

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

[CRazYFULL]

نيازی نيست چيزی رو مخفی کنيد
فرم رو ماکسی مايز کنيد و تو يه تايمر با زمان کم فرم رو On Top کنيد خاصيت BorderStyle فرم رو هم 0 کنيد

[download69]

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

[CRazYFULL]

وقتی فرم رو تو تايمر on top بشه هيچ پنجره نميتونه رو پنجره برنامه بياد

[download69]

وقتی فرم رو تو تايمر on top بشه هيچ پنجره نميتونه رو پنجره برنامه بياد

نحوه ی on top کردن رو لطف می کنید بگید

[download69]

آقا من راه کار رو در این تاپیک پیدا کردم هر کس می خواد میتونه به این تاپیک مراجعه کند
http://www.iranled.com/forum/showthread.php?tid=1049

[PEA]

explorer.exe رو ببندید، تا حدود زیادی مشکل حل می شود،
بعد دستوری بذارید که با زدن پسور دوباره explorer.exe فعال شود...