36.htm

vb功能实例介绍。详细、很好的实例说明。

<p>几个设置IE的API   </p>
<p>作者：edyang</p>
<p>邮箱：[e-mail]</p>
<p></p>
<p>Option Explicit</p>
<p></p>
<p>Public Const MAX_PATH = 260</p>
<p>Public Const CSIDL_FAVORITES = &H6</p>
<p></p>
<p>Public Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long</p>
<p>Public Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long</p>
<p>Public Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long</p>
<p>Public Declare Function LaunchSiteCertDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long</p>
<p>Public Declare Function OpenFontsDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long</p>
<p>Public Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" (ByVal hwndParent As Long, ByVal lpszPath As String) As Long</p>
<p>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</p>
<p></p>
<p>--------------------------------------------------</p>
<p></p>
<p>FRMMAIN.FRM:</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>　　Dim rc As Long</p>
<p>　　</p>
<p>　　rc = LaunchInternetControlPanel(Me.hWnd)</p>
<p>　　Debug.Print GetLastError</p>
<p>　　If rc = 0 Then</p>
<p>　　　　MsgBox "LaunchInternetControlPanel failed!", vbExclamation</p>
<p>　　End If</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command2_Click()</p>
<p>　　Dim rc As Long</p>
<p>　　</p>
<p>　　rc = LaunchConnectionDialog(Me.hWnd)</p>
<p>　　Debug.Print GetLastError</p>
<p>　　If rc = 0 Then</p>
<p>　　　　MsgBox "LaunchConnectionDialog failed!", vbExclamation</p>
<p>　　End If</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command3_Click()</p>
<p>　　Dim rc As Long</p>
<p>　　Dim strFavPath As String * MAX_PATH</p>
<p>　　</p>
<p>　　SHGetSpecialFolderPath Me.hWnd, strFavPath, CSIDL_FAVORITES, False</p>
<p>　　rc = DoOrganizeFavDlg(Me.hWnd, strFavPath)</p>
<p>　　Debug.Print GetLastError</p>
<p>　　If rc = 0 Then</p>
<p>　　　　MsgBox "DoOrganizeFavDlg failed!", vbExclamation</p>
<p>　　End If</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command4_Click()</p>
<p>　　Dim rc As Long</p>
<p>　　</p>
<p>　　rc = LaunchSiteCertDialog(Me.hWnd)</p>
<p>　　Debug.Print GetLastError</p>
<p>　　If rc = 0 Then</p>
<p>　　　　MsgBox "LaunchSiteCertDialog failed!", vbExclamation</p>
<p>　　End If</p>
<p>End Sub  </p>