티스토리 툴바

Daum
Tistory
로그인

Vb.net] Disable/enable Command Prompt, Run, Right Click, Etc

2010/08/27 20:08 from 개발업무








Disable Command Prompt:

Shell("REG add HKCUSoftwarePoliciesMicrosoftWindowsSystem /v DisableCMD /t REG_DWORD /d 1 /f", vbNormalFocus) 
 
        MessageBox.Show("Command Prompt is now disabled.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)




Enable Command Prompt:

Shell("REG add HKCUSoftwarePoliciesMicrosoftWindowsSystem /v DisableCMD /t REG_DWORD /d 0 /f", vbNormalFocus) 
 
        MessageBox.Show("Command Prompt is now enabled.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)






Disable Control Panel:

 Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoControlPanel /t REG_DWORD /d 1 /f", vbNormalFocus) 
 
        MessageBox.Show("Control Panel will be disabled after next restart.")




Enable Control Panel:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoControlPanel /t REG_DWORD /d 0 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Control Panel will be enabled after next restart.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)






Disable Folder Options:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoFolderOptions /t REG_DWORD /d 1 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Folder Options will be disabled after next restart.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)




Enable Folder Options:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoFolderOptions /t REG_DWORD /d 0 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Folder Options will be enabled after next restart.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)






Disable Run:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoRun /t REG_DWORD /d 1 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Run Dialog Box will be enabled after next restart.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)




Enable Run:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoRun /t REG_DWORD /d 0 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Run Dialog Box will be enabled after next restart.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)






Disable Right Click:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoViewContextMenu /t REG_DWORD /d 1 /f", vbNormalFocus) 
 
        Shell("REG add HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoViewContextMenu /t REG_DWORD /d 1 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Right Click Context Menu will be enabled after next restart.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)




Enable Right Click:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoViewContextMenu /t REG_DWORD /d 0 /f", vbNormalFocus) 
 
        Shell("REG add HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer /v NoViewContextMenu /t REG_DWORD /d 0 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Right Click Context Menu will be enabled after next restart.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)






Disable Task Bar:

Dim intReturn As Integer = FindWindow("Shell_traywnd", "") 
 
        SetWindowPos(intReturn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 
 
        MsgBox("Taskbar is now disabled.")




Enable Task Bar:

Dim intReturn As Integer = FindWindow("Shell_traywnd", "") 
 
        SetWindowPos(intReturn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) 
 
        MsgBox("Taskbar is now enabled.")






Disable Task Manager:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableTaskMgr /t REG_DWORD /d 1 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Task Manager is now enabled.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)




Enable Task Manager:

Shell("REG add HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystem /v DisableTaskMgr /t REG_DWORD /d 0 /f", vbNormalFocus) 
 
        MessageBoxEx.Show("Task Manager is now enabled.", "Hack Forums - Kink", MessageBoxButtons.OK, MessageBoxIcon.Information)

'개발업무' 카테고리의 다른 글

CodeIgniter 한국사용자 매뉴얼  (0) 2010/09/01
smtp를 이용한 메일보내기  (0) 2010/08/31
Vb.net] Disable/enable Command Prompt, Run, Right Click, Etc  (0) 2010/08/27
인기 있는 버전 관리 시스템  (0) 2010/06/22
ETL의 정의  (0) 2010/06/22
sketchUp  (0) 2010/06/22








Posted by 홍서기 트랙백 0 : 댓글 0

댓글을 달아 주세요