مخفی و آشکار نمودن یک برنامه از محیط وی بی

[nazanin_90]

سلام
می خواهم یک برنامه دیگر که در حال اجرا است را از محیط ويبی مخفی یا آشکار کنم
با تشکر

[program2vb]

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

سلام با استفاده از تابع api میتونین این کارو بکنین هندل اون برنامه رو بگیرین و بعد مخفی یا آشکار یا غیر فعال یا فعال و یا ..... کنید ..

مثال :


Private Win As Long
Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32.dll" (ByVal hwndChild As Long, ByVal hwndNewParent As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_NCLBUTTONDOWN = &HA1
Const LP_HT_CAPTION = 2
Const RAS95_MaxEntryName = 256
Const RAS_MaxPhoneNumber = 128
Const RAS_MaxCallbackNumber = RAS_MaxPhoneNumber
Const UNLEN = 256
Const PWLEN = 256
Const DNLEN = 12

Private Sub Command1_Click()
Dim wts As Long
wts = FindWindowA(vbNullString, "windows task manager")
SetParent wts, Me.hwnd: ShowWindow wts, 0
End Sub



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

[nazanin_90]

سلام با استفاده از تابع api میتونین این کارو بکنین هندل اون برنامه رو بگیرین و بعد مخفی یا آشکار یا غیر فعال یا فعال و یا ..... کنید ..

مثال :


Private Win As Long
Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32.dll" (ByVal hwndChild As Long, ByVal hwndNewParent As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_NCLBUTTONDOWN = &HA1
Const LP_HT_CAPTION = 2
Const RAS95_MaxEntryName = 256
Const RAS_MaxPhoneNumber = 128
Const RAS_MaxCallbackNumber = RAS_MaxPhoneNumber
Const UNLEN = 256
Const PWLEN = 256
Const DNLEN = 12

Private Sub Command1_Click()
Dim wts As Long
wts = FindWindowA(vbNullString, "windows task manager")
SetParent wts, Me.hwnd: ShowWindow wts, 0
End Sub



با استفاده از کد بالا اگه تسک منجر باز باشه مخفی میشه .......
موفق و پیروز باشید در پناه خدا ... یاعلی
با سلام
امتحان کردم نشد از SetParent wts, Me.hwnd: ShowWindow wts, 0
خطا میگیره
تشکر

[setroyd]

Private Sub Command1_Click()
App.TaskVisible = False
End Sub
با این کد از قسمت application تسک منیجر حذف میشه .

[nazanin_90]

Private Sub Command1_Click()
App.TaskVisible = False
End Sub
با این کد از قسمت application تسک منیجر حذف میشه .
سلام
صرفاً بستن تسک منیجر مد نظرم نیست ؛ همانطورکه عرض کردم میخواهم هر برنامه دیگری که بازاست یا به عبارتی در حال اجرا است را مخفی و آشکار کنم،مثل یک برنامه اکسس.
متشکرم