۱۶-اسفند-۱۳۹۰, ۲۲:۲۸:۲۳
سلام بچه ها
کسی سورس کد غیر فعال کردن Task Manager ویندوز Seven رو داره؟
کسی سورس کد غیر فعال کردن Task Manager ویندوز Seven رو داره؟
۱۹-اسفند-۱۳۹۰, ۲۳:۱۶:۱۰
جایی مطلبی ، چیزی پیدا نمیکنم!
یعنی تو این سایت که این همه مدعی داره، یکی نیست که بدونه روش غیر فعال کردن تسک منیجر توی ویندوز 7 چیه؟!!! :-@
یعنی تو این سایت که این همه مدعی داره، یکی نیست که بدونه روش غیر فعال کردن تسک منیجر توی ویندوز 7 چیه؟!!! :-@
۲۱-اسفند-۱۳۹۰, ۰۱:۴۲:۲۲
غیر فعال کردن تسک منیجر در ویندوز 7
بردن برنامه به استارت آپ در ویندوز 7
منبع : http://www.kinga.ir/
کد:
Private Sub DisableTaskManager(ByVal cmd As Integer)
Dim systemRegistry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System")
systemRegistry.SetValue("DisableTaskMgr", cmd)
systemRegistry.Close()
End Sub
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Visual Basic 4 / 5 / 6 Syntax
Public Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
x = SystemParametersInfo(97, 1, CStr(1), 0) 'Disable Ctrl+Alt+Del Keys combination
'Use as in --->>>
If KeyAscii >= vbKeyA And KeyAscii <= vbKeyZ Or KeyAscii >= 97 And KeyAscii <= 122 Or KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyBack Then
'do nothing
Else
KeyAscii = 0 'Disable all other key strokes
End Ifبردن برنامه به استارت آپ در ویندوز 7
کد:
''' Installs an application to start from the registry when Windows starts '''
'''
''' Application's name
''' Full path to the application
''' Install to LM, otherwise install to current user
''' True if successfully installed
''' Compatible with Windows XP and Vista
Public Function StartUpInstall(ByVal AppName As String, ByVal AppPath As String, _
ByVal InstallToLocalMachine As Boolean) As Boolean
'
' Install to registry
' If LM then uses HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
' Otherwise uses HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
'
Dim RegRoot As RegistryKey
Dim RegKey As RegistryKey
Try
If InstallToLocalMachine Then
RegRoot = Microsoft.Win32.Registry.LocalMachine
RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
RegistryKeyPermissionCheck.ReadWriteSubTree, _
Security.AccessControl.RegistryRights.SetValue)
RegKey.SetValue(AppName, AppPath, RegistryValueKind.String)
Return True
Else
RegRoot = Microsoft.Win32.Registry.CurrentUser
RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
RegistryKeyPermissionCheck.ReadWriteSubTree, _
Security.AccessControl.RegistryRights.SetValue)
RegKey.SetValue(AppName, AppPath, RegistryValueKind.String)
Return True
End If
Remove application from the registry:
''' Uninstalls an application not to start from the registry when Windows starts '''
'''
''' Application's name
''' Uninstall from LM, otherwise uninstall from current user
''' True if successfully uninstalled
''' Compatible with Windows XP and Vista
Public Function StartUpUnInstall(ByVal AppName As String, _
ByVal InstallToLocalMachine As Boolean) As Boolean
'
' UnInstall from registry
' If LM then uses HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
' Otherwise uses HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
'
Dim RegRoot As RegistryKey
Dim RegKey As RegistryKey
Try
If InstallToLocalMachine Then
RegRoot = Microsoft.Win32.Registry.LocalMachine
RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
RegistryKeyPermissionCheck.ReadWriteSubTree, _
Security.AccessControl.RegistryRights.SetValue)
RegKey.DeleteValue(AppName, False)
Return True
Else
RegRoot = Microsoft.Win32.Registry.CurrentUser
RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
RegistryKeyPermissionCheck.ReadWriteSubTree, _
Security.AccessControl.RegistryRights.SetValue)
RegKey.DeleteValue(AppName, False)
Return True
End If
Catch ex As Exception
Return False
End Try
End Function
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValueApplication.ProductName, Application.ExecutablePath)
End Sub
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim startup As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup)
IO.File.Copy(Application.ExecutablePath, startup & "\Poise.exe")منبع : http://www.kinga.ir/
۱۶-شهریور-۱۳۹۱, ۱۹:۰۳:۴۰
سلام ...
اگه میشه این مورد رو آپلود کنیم ، من که نتوستم از کد ها استفاده کنم .
اگه میشه این مورد رو آپلود کنیم ، من که نتوستم از کد ها استفاده کنم .