IE相关的API

最新推荐文章于 2025-03-27 16:42:40 发布

原创最新推荐文章于 2025-03-27 16:42:40 发布 · 2.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#api #ie #function #command #string #path

Visual Basic 专栏收录该内容

25 篇文章

订阅专栏

这篇博客介绍了如何使用API函数与IE交互，包括启动Internet控制面板、连接对话框、安全设置对话框、组织收藏夹等操作。提供了VBA代码示例来演示如何调用这些功能。

Public Const MAX_PATH = 260
Public Const CSIDL_FAVORITES = &H6

Public Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function LaunchSiteCertDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function OpenFontsDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long
Public Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" (ByVal hwndParent As Long, ByVal lpszPath As String) As Long
Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long

'--------------------------------------------------

Private Sub Command1_Click()
　　Dim rc As Long
　　
　　rc = LaunchInternetControlPanel(Me.hWnd)
　　Debug.Print GetLastError
　　If rc = 0 Then
　　　　MsgBox "LaunchInternetControlPanel failed!", vbExclamation
　　End If
End Sub

Private Sub Command2_Click()
　　Dim rc As Long
　　
　　rc = LaunchConnectionDialog(Me.hWnd)
　　Debug.Print GetLastError
　　If rc = 0 Then
　　　　MsgBox "LaunchConnectionDialog failed!", vbExclamation
　　End If
End Sub

Private Sub Command3_Click()
　　Dim rc As Long
　　Dim strFavPath As String * MAX_PATH
　　
　　SHGetSpecialFolderPath Me.hWnd, strFavPath, CSIDL_FAVORITES, False
　　rc = DoOrganizeFavDlg(Me.hWnd, strFavPath)
　　Debug.Print GetLastError
　　If rc = 0 Then
　　　　MsgBox "DoOrganizeFavDlg failed!", vbExclamation
　　End If
End Sub

Private Sub Command4_Click()
　　Dim rc As Long
　　
　　rc = LaunchSiteCertDialog(Me.hWnd)
　　Debug.Print GetLastError
　　If rc = 0 Then
　　　　MsgBox "LaunchSiteCertDialog failed!", vbExclamation
　　End If
End Sub