admin管理员组

文章数量:1516870

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

本文标签： 工具选项对话调用

版权声明：本文标题：IE工具菜单的秘密：一文教你点进Internet选项 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.betaflare.com/biancheng/1771132384a3262100.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。