VB 版 (精华区)

发信人: student (earth), 信区: VB
标  题: 几个设置IE的API 
发信站: 哈工大紫丁香 (2001年11月25日19:13:04 星期天), 站内信件

Option Explicit
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 hwnd
Parent As Long) As Long
Public Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" (ByVal hwndPa
rent As Long) As Long
Public Declare Function LaunchSiteCertDialog Lib "inetcpl.cpl" (ByVal hwndPa
rent 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 "SHGe
tSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByV
al nFolder As Long, ByVal fCreate As Long) As Long
--------------------------------------------------
FRMMAIN.FRM:
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

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.236.168]