[퍼온글] 윈도우의 제어판을 호출- 살늑대의 홈페이지에서

[타이거팀]

작성자 : 이태희 (thlee@ubc.co.kr) 조회수: 612 , 줄수: 156


'VB의 Shell함수를 사용하여 윈도우의 DLL을 직접실행하여 윈도우의 제어판을 호출할수'할수있다

'먼저 폼하나를 만들고 거기에 listbox를 하나 추가한다음
'아래의 소스를 작성하여 실행하여 본다

Option Explicit

Private Sub Form_Load()

List1.AddItem " 시스탬등록정보"
List1.AddItem " 새하드웨어 추가 마법사"
List1.AddItem " 프린터추가 마법사"
List1.AddItem " 프로그램 추가/삭제 마법사"
List1.AddItem " 윈도우 설치 마법사"
List1.AddItem " 시동디스크작성 마법사 "
List1.AddItem " 날짜/시간"
List1.AddItem " 표준시간"
List1.AddItem " DISPLAY 정보"
List1.AddItem " 화면보호기"
List1.AddItem " 화면배색"
List1.AddItem " 화면설정"
List1.AddItem " 마우스등록정보"
List1.AddItem " 키보드등록정보"
List1.AddItem " 프린터 폴더"
List1.AddItem " 폰트 폴더"
List1.AddItem " 모뎀설치 마법사"
List1.AddItem " 오디오"
List1.AddItem " 비디오"
List1.AddItem " 미디"
List1.AddItem " CD"
List1.AddItem " 멀티미디어 고급"
List1.AddItem " 소리 설정"
List1.AddItem " 네트워크 구성"
List1.AddItem " 프로그램 연결"
List1.AddItem " 암호변경"
List1.AddItem " 국가별 설정"
List1.AddItem " 국가별 설정 숫자"
List1.AddItem " 국가별 설정 통화"
List1.AddItem " 국가별 설정 시간"
List1.AddItem " 국가별 설정 날짜"
End Sub

Private Sub List1_DblClick()
Select Case List1.ListIndex
Case 0
' 제어판폴더를 연다..
Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @0", vbNormalFocus
Case 1
' 새 하드웨어 추가마법사 원도우를 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus

Case 2
' 프린터 추가마법사 원도우를 띄운다..
Shell "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus
Case 3
' 프로그램 추가/삭제 등록정보원도우에서 설치/삭제 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus
Case 4
' 프로그램 추가/삭제 등록정보원도우에서 Windows설치 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2", vbNormalFocus
Case 5
' 프로그램 추가/삭제 등록정보원도우에서 시동디스크 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3", vbNormalFocus
Case 6
' 날짜/시간 등록정보원도우에서 날짜및 시간 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,2", vbNormalFocus
Case 7
' 날짜/시간 등록정보원도우에서 표준 시간 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1", vbNormalFocus
Case 8
' 디스플레이등록정보에서 배경화면원도우를 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus
Case 9
' 디스플레이등록정보에서 화면보호기원도우를 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus
Case 10
' 디스플레이등록정보에서 화면배색원도우를 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus
Case 11
' 디스플레이등록정보에서 설정원도우를 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus
Case 12
' 마우스 등록정보 원도우에서 단추 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus
Case 13
' 키보드 등록정보 원도우에서 속도 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus
Case 14
' 프린터 폴더를 연다..
Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus
Case 15
' 폰트 폴더를 연다.
Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus
Case 16
' 새 모뎀설치 원도우를 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL modem.cpl,,add", vbNormalFocus
Case 17
' 멀티미디어 등록 정보 원도우에서 오디오 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", vbNormalFocus
Case 18
' 멀티미디어 등록 정보 원도우에서 비디오 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1", vbNormalFocus
Case 19
' 멀티미디어 등록 정보 원도우에서 MIDI tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2", vbNormalFocus
Case 20
' 멀티미디어 등록 정보 원도우에서 CD 음악 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3", vbNormalFocus
Case 21
' 멀티미디어 등록 정보 원도우에서 고급 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4", vbNormalFocus
Case 22
' 소리 등록 정보 원도우를 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", vbNormalFocus
Case 23
' 네트워크 원도우에서 네트워크 구성 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus
Case 24
' 연결 프로그램찾기 원도우를 띄운다..
Shell "rundll32.exe shell32.dll,OpenAs_RunDLL readme.tdt", vbNormalFocus
Case 25
' 암호등록정보 원도우에서 암호변경 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus
Case 26
' 국가별 설정 등록정보에서 국가별 설정 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus
Case 27
' 국가별 설정 등록정보에서 숫자 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1", vbNormalFocus
Case 28
' 국가별 설정 등록정보에서 통화 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2", vbNormalFocus
Case 29
' 국가별 설정 등록정보에서 시간 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3", vbNormalFocus
Case 30
' 국가별 설정 등록정보에서 날짜 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4", vbNormalFocus
Case 31
' 시스템 등록 정보 원도우에서 일반 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", vbNormalFocus
Case 32
' 시스템 등록 정보 원도우에서 장치관리자 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", vbNormalFocus
Case 33
' 시스템 등록 정보 원도우에서 하드웨어 구성파일 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2", vbNormalFocus
Case 34
' 시스템 등록 정보 원도우에서 성능 tab을 띄운다..
Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", vbNormalFocus
End Select
End Sub