I call add to favorite window of IE in my own web browser but i wanna remove message of (Internet Explore will add this page in ur favorite list) and want to write my own message.
Printable View
I call add to favorite window of IE in my own web browser but i wanna remove message of (Internet Explore will add this page in ur favorite list) and want to write my own message.
VB Code:
Option Explicit Public Enum SpecialShellFolderIDs CSIDL_DESKTOP = &H0 CSIDL_INTERNET = &H1 CSIDL_PROGRAMS = &H2 CSIDL_CONTROLS = &H3 CSIDL_PRINTERS = &H4 CSIDL_PERSONAL = &H5 CSIDL_FAVORITES = &H6 CSIDL_STARTUP = &H7 CSIDL_RECENT = &H8 CSIDL_SENDTO = &H9 CSIDL_BITBUCKET = &HA CSIDL_STARTMENU = &HB CSIDL_DESKTOPDIRECTORY = &H10 CSIDL_DRIVES = &H11 CSIDL_NETWORK = &H12 CSIDL_NETHOOD = &H13 CSIDL_FONTS = &H14 CSIDL_TEMPLATES = &H15 CSIDL_COMMON_STARTMENU = &H16 CSIDL_COMMON_PROGRAMS = &H17 CSIDL_COMMON_STARTUP = &H18 CSIDL_COMMON_DESKTOPDIRECTORY = &H19 CSIDL_APPDATA = &H1A CSIDL_PRINTHOOD = &H1B CSIDL_ALTSTARTUP = &H1D CSIDL_COMMON_ALTSTARTUP = &H1E CSIDL_COMMON_FAVORITES = &H1F CSIDL_INTERNET_CACHE = &H20 CSIDL_COOKIES = &H21 CSIDL_HISTORY = &H22 End Enum Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As SpecialShellFolderIDs, pidl As Long) As Long Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long) Public Function AddFavorite(SiteName As String, URL As String) As Boolean Dim pidl As Long Dim psFullPath As String Dim iFile As Integer On Error GoTo ErrorHandler iFile = FreeFile psFullPath = Space(255) If SHGetSpecialFolderLocation(0, CSIDL_FAVORITES, pidl) = 0 Then If pidl Then If SHGetPathFromIDList(pidl, psFullPath) Then psFullPath = TrimWithoutPrejudice(psFullPath) If Right(psFullPath, 1) <> "\" Then psFullPath = psFullPath & "\" psFullPath = psFullPath & SiteName & ".URL" Open psFullPath For Output As #iFile Print #iFile, "[InternetShortcut]" Print #iFile, "URL=" & URL Close #iFile End If CoTaskMemFree pidl AddFavorite = True End If End If ErrorHandler: End Function Public Function TrimWithoutPrejudice(ByVal InputString As String) As String Dim sAns As String Dim sWkg As String Dim sChar As String Dim lLen As Long Dim lCtr As Long sAns = InputString lLen = Len(InputString) If lLen > 0 Then For lCtr = 1 To lLen sChar = Mid(sAns, lCtr, 1) If Asc(sChar) > 32 Then Exit For Next sAns = Mid(sAns, lCtr) lLen = Len(sAns) If lLen > 0 Then For lCtr = lLen To 1 Step -1 sChar = Mid(sAns, lCtr, 1) If Asc(sChar) > 32 Then Exit For Next End If sAns = Left$(sAns, lCtr) End If TrimWithoutPrejudice = sAns End Function Private Sub Command1_Click() Dim z As Boolean z = AddFavorite("vbforums", "www.vbforums.com") End Sub
thanks Kunchesm for ur repply and mail, but i thing u didn't understand what my need, i explaine to u again.
I call add to favorite window of IE in my own browser by API, but i wanna remove label text of add to favorite window and wanna write my own text on label box.
Your code is adding site address directly in favorite list.
regards
Babar Khan