Logika "Run Control Panel Programs"
Bagaimana sebenarnya windows dan filenya bekerja ? apa saja file-file yang berperan penting dalam mengeksekusi suatu aplikasi ? berikut secara sederhana alur program yang dirancang oleh Muhammad Javaid dari Pakistan menggunakan code pemograman visual basic.
Author: Muhammad Javaid
Category: Miscellaneous
Type : Snippets
Difficulty: Beginning
email : Javaidshpk@yahoo.com
Address : Hyderabad Pakistan
Version Compatibility: Visual Basic 5 Visual Basic 6
More information: This program is used to use the programs you can run from the control panel. See comments for more details.
This code has been viewed 77205 times.
Instructions: Copy the declarations and code below and paste directly into your VB project.
' Add all these lines or any of these into your command button to show these control panel icons.
' To Display the Control Panel
Call Shell("rundll32.exe shell32.dll,Control_RunDLL", _
vbNormalFocus)
' To Display the Accessibility Properties
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl", vbNormalFocus)
' To Display Add/Remove Programs
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)
'To Show the Display Settings Background Tab
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)
' To Show the Display Settings Screensaver Tab
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)
'To Show the Display Settings Appearance Tab
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)
'To Show the Display Settings (Settings Tab)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)
'To Display Internet Properties
Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", vbNormalFocus)
'To Display Regional Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)
'To Display the Joystick Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)
'To Display the Mouse Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)
'To Display the Keyboard Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)
'To Display Printers Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)
'To Display Fonts
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)
'To Display Multimedia Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus)
'To Display Modem Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
'To Display Dial-Up Networking Wizard
Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)
'To Display System Properties
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)
'To Run 'Add New Hardware' Wizard
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)
'To Display 'Add New Printer' Wizard
Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus)
'To Display Themes Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL themes.cpl", vbNormalFocus)
'To Display Time/Date Settings
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)
sumber : http://www.freevbcode.com
0 comments: