How to call Internet options in IE menu "Tools"

xiaoxiao2021-03-06  124

Option expedition

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

'Call the IE-Tool -Internet Options dialog

Private submmand1_click ()

DIM RC As Long

Rc = launchinternetControlPanel (me.hwnd)

IF rc = 0 THEN

MsgBox "LaunchinternetControlPanel Failed!", Vbexclamation

END IF

End Sub

'Call the connection in the IE-Tool -Internet Options dialog box

Private sub fascist2_click ()

DIM RC As Long

Rc = launchConnectionDialog (me.hwnd)

IF rc = 0 THEN

MsgBox "launchconnectionDialog failed!", Vbexclamation

END IF

End Sub

'shell mode calls IE-Tool -Internet Options dialog

Private submmand3_click ()

Shell "c: /windows/control.exe inetcpl.cpl", VBNORMALFOCUS

End Sub

转载请注明原文地址:https://www.9cbs.com/read-127074.html

New Post(0)