سلام به همگی
دارم یه برنامه می نویسم...می خوام وقتی برنامه اجرا میشه به طور اتوماتیک taskmanager و ALT+Tab غیر فعال شه...خیلی خیلی ممنون میشم اگه کد های مربوطه رو برام بذارین:20:
Printable View
سلام به همگی
دارم یه برنامه می نویسم...می خوام وقتی برنامه اجرا میشه به طور اتوماتیک taskmanager و ALT+Tab غیر فعال شه...خیلی خیلی ممنون میشم اگه کد های مربوطه رو برام بذارین:20:
برای بستن تسک منیجر یک تایمر بزار توی فرمت و این کد رو کپی کن قسمت کد نویسی:
کد:Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Timer1_Timer()
On Error Resume Next
Dim handel As Long
handel = FindWindow(vbNullString, "windows task manager")
'Me.Caption = handel
If handel <> 0 Then
SetForegroundWindow handel
SendKeys "%{f4}", 1
End If
End Sub
سلام
می تونی همگام اجرای برنامه یکبار task mgr رو بصورت باینری باز کنی و دیگه نبندیش.
ممکنه یه مقدار اشتباه داشته باشم چون خیلی وقته کار نکردم. ببخشید دیگه!کد:open "c:\windows\task manager.exe" for binary as #1
آدرس فایل تسکمنیجر اینه:
ضمن اینکه من تست کردم بازم باز شد:13:کد:Open "C:\WINDOWS\system32\taskmgr.exe" For Binary As #1
ولی این روشی که من میگم عمرا باز بشه:21:
سلامنقل قول:
ممنون که گفتی (گفته بودم که ممکنه اشتباه بنویسم)
ولی من این روشو تست کردم 100% جواب می ده
کافیه زمانی که برنامه اجرا شود این خط ران بشه. چون فایل باز هستش دیگه task mgr باز نمی شه و شما هم لازم نیست بعد این دستور از close #1 استفاده کنید.
:5:
خیلی ممنون حالا ببینم میشه کد واسه ی غیر فعال کردن alt&tab رو هم بدین؟
Alt و tab رو هر كار كردم نشد
ولي يك كدي هست كه كلا كيبورد رو از كار ميندازه
اون اگر به دردت مي خوره توي انجمن بگرد پيدا مي كني