_mastertips.txt

包括各种各样的系统功能

[TIP]control panel shell parameters
Control Panel (CONTROL.EXE)
Control Panel: 
    rundll32.exe shell32.dll,Control_RunDLL

Accessability Settings (ACCESS.CPL) 
Accessability Properties (Keyboard): 
    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1
Accessability Properties (Sound): 
    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2
Accessability Properties (Display): 
    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3
Accessability Properties (Mouse): 
    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
Accessability Properties (General): 
    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5

Add/Remove Programs (APPWIZ.CPL)
Add/Remove Programs Properties (Install/Uninstall): 
    rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
Add/Remove Programs Properties (Windows Setup): 
    rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2
Add/Remove Programs Properties (Startup Disk): 
    rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3

Display Settings (DESK.CPL)
Display Properties (Background): 
    rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0
Display Properties (Screen Saver): 
    rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1
Display Properties (Appearance): 
    rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2
Display Properties (Settings): 
    rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3
Display Properties (Install Screen Saver): 
    rundll32.exe desk.cpl,InstallScreenSaver %1
    (opens .scr at location specified by %1 in preview window)

FindFast Settings (FINDFAST.CPL) 
Find Fast Properties (General): 
    rundll32.exe shell32.dll,Control_RunDLL findfast.cpl

Internet Settings (INETCPL.CPL)
Internet Properties (General): 
    rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0
Internet Properties (Security): 
    rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,1
Internet Properties (Content): 
    rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,2
Internet Properties (Connection): 
    rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,3
Internet Properties (Programs): 
    rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4
Internet Properties (Advanced): 
    rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,5

Regional Settings (INTL.CPL)
Regional Settings Properties (Regional Settings): 
    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0
Regional Settings Properties (Number): 
    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1
Regional Settings Properties (Currency): 
    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2
Regional Settings Properties (Time): 
    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3
Regional Settings Properties (Date): 
    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4
Regional Settings Properties (Input Locales): 
    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,5

Joystick Settings (JOY.CPL)
Joystick Properties (Joystick): 
    rundll32.exe shell32.dll,Control_RunDLL joy.cpl

Mouse/Keyboard/Printers/Fonts Settings (MAIN.CPL)
Mouse Properties: 
    rundll32.exe shell32.dll,Control_RunDLL main.cpl @0
Keyboard Properties: 
    rundll32.exe shell32.dll,Control_RunDLL main.cpl @1
Printers: 
    rundll32.exe shell32.dll,Control_RunDLL main.cpl @2
Fonts: 
    rundll32.exe shell32.dll,Control_RunDLL main.cpl @3

Mail and Fax Settings (MLCFG32.CPL)
Microsoft Exchange/Outlook Properties (General): 
    rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl

Multimedia/Sounds Settings (MMSYS.CPL)
Multimedia Properties (Audio): 
    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0
Multimedia Properties (Video): 
    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1
Multimedia Properties (MIDI): 
    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2
Multimedia Properties (CD Music): 
    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3
Multimedia Properties (Advanced/Devices): 
    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4
 
Sounds Properties: 
    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1

Modem Settings (MODEM.CPL)
Modem Properties (General): 
    rundll32.exe shell32.dll,Control_RunDLL modem.cpl

Network Settings (NETCPL.CPL / NCPA.DLL)
Network (Configuration): 
    Win9x: rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl
    WinNT: rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl
 
Dial-up Networking Wizard
    Win9x: rundll32.exe rnaui.dll,RnaWizard
 
Create Share Dialog
    WinNT: rundll32.exe ntlanui.dll,ShareCreate
Manage Shares Dialog
    WinNT: rundll32.exe ntlanui.dll,ShareManage

ODBC Settings (ODBCCP32.CPL)
ODBC Data Source Administrator (General): 
    rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl

Password Settings (PASSWORD.CPL)
Password Properties (Change Passwords): 
    Win9x: rundll32.exe shell32.dll,Control_RunDLL password.cpl

COM Ports Settings (PORTS.CPL)
COM Ports Properties (General): 
    WinNT: rundll32.exe shell32.dll,Control_RunDLL ports.cpl

Server Properties (SRVMGR.CPL)
Server Properties (General): 
    WinNT: rundll32.exe shell32.dll,Control_RunDLL srvmgr.cpl
Services dialog: 
    WinNT: rundll32.exe shell32.dll,Control_RunDLL srvmgr.cpl Services

System Settings (SYSDM.CPL)
System Properties (General): 
    rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0
System Properties (Device Manager): 
    Win9x: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1
System Properties (Performance): 
    Win9x: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3
    WinNT: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1
System Properties (Environment): 
    WinNT: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2
System Properties (Startup/Shutdown): 
    WinNT: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3
System Properties (Hardware Profiles): 
    Win9x: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2
    WinNT: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,4
System Properties (User Profiles): 
    WinNT: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,5
 
Add New Hardware Wizard: 
    Win9x: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1
Add New Printer Wizard: 
    Win9x: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter

Telephony Settings (TELEPHON.CPL)
Dialing Properties (My Location / Drivers): 
    WinNT: rundll32.exe shell32.dll,Control_RunDLL telephon.cpl

Themes Settings (THEMES.CPL)
Themes Properties (General): 
    rundll32.exe shell32.dll,Control_RunDLL themes.cpl

Time and Date Settings (TIMEDATE.CPL)
Date/Time Properties: 
    rundll32.exe shell32.dll,Control_RunDLL timedate.cpl
Choose Time Zone: 
    rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/f

TweakUI Settings (TWEAKUI.CPL)
TweakUI Dialog (General): 
    rundll32.exe shell32.dll,Control_RunDLL tweakui.cpl

UPS Settings (UPS.CPL)
Uninteruptable Power Supply Properties (General): 
    WinNT: rundll32.exe shell32.dll,Control_RunDLL ups.cpl

Microsoft Mail Postoffice Settings (WGPOCPL.CPL)
Microsoft Workgroup Postoffice Admin: 
    rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl

Miscellaneous File System Dialogs and Wizards
Open With (File Associations): 
    rundll32.exe shell32.dll,OpenAs_RunDLL d:\path\filename.ext
Run Diskcopy Dialog:
    rundll32.exe diskcopy.dll,DiskCopyRunDll
Run Format Floppy Dialog:
    rundll32.exe shell32.dll,SHFormatDrive     
     (make sure a disk is inserted in Drive A: first!)
Create New Shortcut Wizard:
    rundll32.exe AppWiz.Cpl,NewLinkHere %1
    (creates shortcut at location specified by %1)
Create a Briefcase:
    rundll32.exe syncui.dll,Briefcase_Create
View Fonts:
    rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder
View Printers:
    rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder

[TIP]add a button to the control box


Public Type POINTAPI
    x As Long
    y As Long
    End Type


Public Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long


Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long


Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long


Public Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long


Public Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long


Public Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long


Public Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long


Public Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long


Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long


Public Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)


Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long


Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long


Public Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long


Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Public Const GWL_WNDPROC = (-4)
    Public Const WM_NCPAINT = &H85
    Public Const WM_PAINT = &HF
    Public Const WM_SIZE = &H5
    Public Const WM_NCLBUTTONDOWN = &HA1
    Public Const WM_NCLBUTTONUP = &HA2
    Public Const WM_NCHITTEST = &H84
    Public Const WM_NCACTIVATE = &H86
    Public Const WM_ACTIVATEAPP = &H1C
    Public Const WM_ACTIVATE = &H6
    Public Const WM_NCMOUSEMOVE = &HA0
    Public Const WM_MOUSEMOVE = &H200
    Public Const WM_NCLBUTTONDBLCLK = &HA3
    Public WndProcOld As Long
    Public gSubClassedForm As Form
    Private bPressed As Boolean
    'LOWORD and HIWORD are needed to extract
    '     point values from lParam


Public Function LoWord(ByVal LongVal As Long) As Integer
    LoWord = LongVal And &HFFFF&
End Function


Public Function HiWord(ByVal LongVal As Long) As Integer


    If LongVal = 0 Then
        HiWord = 0
        Exit Function
    End If
    HiWord = LongVal \ &H10000 And &HFFFF&
End Function


Public Function WindProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim lWidth As Long
    Dim POINTS As POINTAPI
    'Draw the button whenever on any event t
    '     hat will cause it to erase


    If wMsg = WM_PAINT Or wMsg = WM_ACTIVATE Or wMsg = WM_ACTIVATEAPP Or wMsg = WM_NCACTIVATE Or wMsg = WM_NCPAINT Or (wMsg = WM_SIZE And wParam <> 1) Then
        DrawControlBox hwnd, RGB(192, 192, 192), vbBlack, RGB(128, 128, 128), vbWhite, RGB(224, 224, 224), 0
    End If
    'Draws an "inverted" form of the button 
    '     when it's pressed


    If wMsg = WM_NCLBUTTONDOWN Then
        lWidth = gSubClassedForm.Width / Screen.TwipsPerPixelX
        MakeClientPoints hwnd, lParam, POINTS


        If (POINTS.x > (lWidth - 80)) And (POINTS.x < (lWidth - 60)) Then
            DrawControlBox hwnd, RGB(192, 192, 192), vbWhite, RGB(224, 224, 224), vbBlack, RGB(128, 128, 128), 1
            bPressed = True
            Exit Function
        End If
    End If
    'Resets the original colors when the mou
    '     se is unpressed


    If wMsg = WM_NCLBUTTONUP Then
        DrawControlBox hwnd, RGB(192, 192, 192), vbBlack, RGB(128, 128, 128), vbWhite, RGB(224, 224, 224), 0
        lWidth = gSubClassedForm.Width / Screen.TwipsPerPixelX
        MakeClientPoints hwnd, lParam, POINTS


        If (POINTS.x > (lWidth - 74)) And (POINTS.x < (lWidth - 60)) Then


            If bPressed = True Then
                bPressed = False
                Call gSubClassedForm.ControlBoxClick
            End If
            Exit Function
        End If
        bPressed = False
    End If


    If wMsg = WM_NCHITTEST And GetAsyncKeyState(vbLeftButton) Then
        lWidth = gSubClassedForm.Width / Screen.TwipsPerPixelX
        MakeClientPoints hwnd, lParam, POINTS


        If (POINTS.x > (lWidth - 74)) And (POINTS.x < (lWidth - 60)) And (POINTS.y < 0) And (POINTS.y > -20) Then
            DrawControlBox hwnd, RGB(192, 192, 192), vbWhite, RGB(224, 224, 224), vbBlack, RGB(128, 128, 128), 1
        Else
            DrawControlBox hwnd, RGB(192, 192, 192), vbBlack, RGB(128, 128, 128), vbWhite, RGB(224, 224, 224), 0
        End If
    End If


    If wMsg = WM_NCLBUTTONDBLCLK Then
        lWidth = gSubClassedForm.Width / Screen.TwipsPerPixelX
        MakeClientPoints hwnd, lParam, POINTS
        If (POINTS.x > (lWidth - 74)) And (POINTS.x < (lWidth - 60)) Then Exit Function
    End If
    WindProc = CallWindowProc(WndProcOld&, hwnd&, wMsg&, wParam&, lParam&)
End Function