Các chiêu thức trong lập trình Mở từng hộp thoại trong Control Panel home
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (56.47 KB, 1 trang )
Mở từng hộp thoại trong Control Panel home
Xuất xứ : www.pscode.com
Binh khí sử dụng : Không
Đoạn mã : ( Do có nhiều phần nên tôi chỉ đưa ra Code cơ bản)
'Hộp thoại System Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1",
5)
‘Hộp thoại Add/Remove Programs
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1",
5)
' Hộp thoại Date/Time Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl",
5)
' Hộp thoại Display Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 5)
' Hộp thoại Game Controllers
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", 5)
' Hộp thoại Internet Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0",
5)
' Hộp thoại Keyboard Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", 5)
' Hộp thoại Modem Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", 5)
' Hộp thoại Mouse Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", 5)
' Hộp thoại Multimedia Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0",
5)
' Hộp thoại Network
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", 5)
' Hộp thoại Regional Settings
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)
' Hộp thoại Sounds Properties
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1",
5)
