如何調用IE菜單”工具”中的internet選項

Option Explicit

 

Private Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long

Private Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long

'調用ie-工具-internet選項對話方塊

Private Sub Command1_Click()

    Dim rc As Long

    rc = LaunchInternetControlPanel(Me.hWnd)

    If rc = 0 Then

        MsgBox "LaunchInternetControlPanel failed!", vbExclamation

    End If

End Sub

'調用ie-工具-internet選項對話方塊中的串連

Private Sub Command2_Click()

    Dim rc As Long

    rc = LaunchConnectionDialog(Me.hWnd)

    If rc = 0 Then

        MsgBox "LaunchConnectionDialog failed!", vbExclamation

    End If

End Sub

'shell方式調用ie-工具-internet選項對話方塊

Private Sub Command3_Click()

Shell "C:/windows/control.exe Inetcpl.cpl ", vbNormalFocus

End Sub