admin 管理员组

文章数量: 1184232

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里的互联网选项设置 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1771133251a3541161.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。