IE相关的API

王朝vb·作者佚名 2006-01-08

宽屏版字体: 小|中|大|超大

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