1、locate the favorites folder Dim R As Long Dim sPath As String Dim IDL As ITEMIDLIST Const NOERROR = 0 Const MAX_LENGTH = 260 R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL) If R = NOERROR Then sPath = Space$(MAX_LENGTH) R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath) If R Then Speci
2、alFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1) End If=全屏是的,webbrowser本生是一个控件, 你要它全屏,就是要它所在的窗体全屏, 可以用setwindowlong取消窗体的 title, 用Call ShowWindow(FindWindow(Shell_traywnd, ), 0) 隐藏tray,就是下边那个包含开始那一行. 用Call ShowWindow(FindWindow(), 9) 恢复. 够详细了吧.然后在form1.windowstate = 2 就可以了.=选择网页上的内容。Private Sub
3、Command1_Click()请先选中一些内容Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULTMsgBox Clipboard.GetText用IE来下载文件Private Declare Function DoFileDownload Lib shdocvw.dll (ByVal lpszFile As String) As Long Dim sDownload As String sDownload = StrConv(Text1.Text, vbUnicode) Call DoFileDownload(sDownl
4、oad)Private Sub Form_Load()Text1.Text = http:/www.chat.ru/softdaily/fo-ag162.zipForm1.Caption = Audiograbber 1.62 FullText2.Text = =我要动态加载和删除WebBrowser控件应该怎么做? Form1.Controls.Add shell.explorer.2NewWeb, Form1 With Form1!NewWeb .Visible = True .Width = 10000 .Height = 10000 .Left = 0 .Top = 0 .Naviga
5、te2 End WithPrivate Sub Command2_Click() Controls.Remove Form1!newwebForm1.Controls.Add , newweb(newweb.Count), Form1newweb(newweb.Count) .Width = 1000 .Height = 1000 .Left = newweb(newweb.Count - 1).Left + newweb(newweb.Count - 1).Width.Navigate2 为什么他说我这一行错误13 类型不匹配?ps:我在form中已经有了一个newweb(0)控件先为一个W
6、ebBrowserDim i As IntegerPrivate Sub AddWeb_Click() For i = 1 To 10 Load NewWeb(i) NewWeb(i).Top = i * 100 NewWeb(i).Left = i * 100 NewWeb(i).Visible = True Next iPrivate Sub DelWeb_Click() Unload NewWeb(i)=一个把页面保存为MHT(即MHTML)文件1、谢谢楼上几位大侠!我现在将 pcwak(书剑狂生MS MVP) 大侠提供的资料贴出来,以供大家参考:我终于找到一个把页面保存为MHT(即MH
7、TML)文件的方法了!首先,在工程中必须要引用一个库:Library CDOD:WINNTSystem32cdosys.dllMicrosoft CDO for Windows 2000 Library其次,需要Stream对应的接口的支持,如果你一时找不到就使用支持这个的较新的ADO就行了,如Library ADODBProgram FilesCommon Filessystemadomsado15.dllMicrosoft ActiveX Data Objects 2.5 Library代码如下,十分简单(同时由于流的特点,显示在实际应用中没必要象本例中那样把文件保存到磁盘上就可直接转换为
8、字符串或字节数组什么的处理的。另,对于Microsoft CDO for Windows 2000 Library这个库,在WIN98中要怎么使用还没试过,感兴趣的朋友可以试试并跟帖,以丰富完善其内容:) Reference to Microsoft ActiveX Data Objects 2.5 Library Reference to Microsoft CDO for Windows 2000 LibraryDim iMsg As New CDO.MessageDim iConf As New CDO.ConfigurationDim objStream As ADODB.Stream
9、With iMsg.CreateMHTMLBody , _domainusername, _passwordSet objStream = .GetStreamCall objStream.SaveToFile(f:test.mht, adSaveCreateOverWrite)End With2、首先加入对ADODB和CDO(Microsoft CDO for Windows 2000 Library,对应文件名为CDOSYS.dll)的引用 Dim message As New CDO.message Dim Outstream As ADODB.Stream On Error GoTo
10、myerr1 Call message.CreateMHTMLBody(, CDO.CdoMHTMLFlags.cdoSuppressNone, Set Outstream = message.GetStream Call Outstream.SaveToFile(c:, ADODB.SaveOptionsEnum.adSaveCreateOverWrite) MsgBox 完成 Exit Submyerr1: Set message = Nothing Set Outstream = Nothing=请问高手们怎样在WebBrowser控件调用收藏夹和在收藏夹里添加收藏Option Expl
11、icit Dim ObjSUH As New ShellUIHelper ObjSUH.AddFavorite CSDN Set ObjSUH = Nothing取得网页中特定的链接 WebBrowser1.Navigate Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Dim a For Each a In WebBrowser1.Document.All If a.tagname = A Then If a.href = a.Click NextPrivate m_bDone
12、 As Boolean If m_bDone Then Dim doc As IHTMLDocument2 Set doc = WebBrowser1.Document Dim aLink As HTMLLinkElement Set aLink = doc.links(0) aLink.ClickPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) m_bDone = TrueThe following code can be used to query and delete files
13、 in the internet cache (including cookies). A demonstration routine can be found at the bottom of this post. Note, the enumerated type eCacheType is not supported in Excel 97, but can be changed to a list of Public Constants eg. Public Const eNormal = &H1&.-Types, consts and structuresPrivate Const
14、ERROR_CACHE_FIND_FAIL As Long = 0Private Const ERROR_CACHE_FIND_SUCCESS As Long = 1Private Const ERROR_FILE_NOT_FOUND As Long = 2Private Const ERROR_ACCESS_DENIED As Long = 5Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122Private Const MAX_CACHE_ENTRY_INFO_SIZE As Long = 4096Private Const LMEM_
15、FIXED As Long = &H0Private Const LMEM_ZEROINIT As Long = &H40Public Enum eCacheTypeeNormal = &eEdited = &H8&eTrackOffline = &H10&eTrackOnline = &H20&eSticky = &H40&eSparse = &H10000eCookie = &H100000eURLHistory = &H200000eURLFindDefaultFilter = 0&End EnumPrivate Type FILETIMEdwLowDateTime As LongdwH
16、ighDateTime As LongPrivate Type INTERNET_CACHE_ENTRY_INFOdwStructSize As LonglpszSourceUrlName As LonglpszLocalFileName As LongCacheEntryType As LongType of entry returneddwUseCount As LongdwHitRate As LongdwSizeLow As LongdwSizeHigh As LongLastModifiedTime As FILETIMEExpireTime As FILETIMELastAcces
17、sTime As FILETIMELastSyncTime As FILETIMElpHeaderInfo As LongdwHeaderInfoSize As LonglpszFileExtension As LongdwExemptDelta As Long-Internet Cache APIPrivate Declare Function FindFirstUrlCacheEntry Lib Wininet.dll Alias FindFirstUrlCacheEntryA (ByVal lpszUrlSearchPattern As String, lpFirstCacheEntry
18、Info As Any, lpdwFirstCacheEntryInfoBufferSize As Long) As LongPrivate Declare Function FindNextUrlCacheEntry Lib FindNextUrlCacheEntryA (ByVal hEnumHandle As Long, lpNextCacheEntryInfo As Any, lpdwNextCacheEntryInfoBufferSize As Long) As LongPrivate Declare Function FindCloseUrlCache Lib (ByVal hEn
19、umHandle As Long) As LongPrivate Declare Function DeleteUrlCacheEntry Lib DeleteUrlCacheEntryA (ByVal lpszUrlName As String) As Long-Memory APIPrivate Declare Function LocalAlloc Lib kernel32 (ByVal uFlags As Long, ByVal uBytes As Long) As LongPrivate Declare Function LocalFree Lib (ByVal hMem As Lo
20、ng) As LongPrivate Declare Sub CopyMemory Lib RtlMoveMemory (pDest As Any, pSource As Any, ByVal dwLength As Long)Private Declare Function lstrcpyA Lib (ByVal RetVal As String, ByVal Ptr As Long) As LongPrivate Declare Function lstrlenA Lib (ByVal Ptr As Any) As LongPurpose : Deletes the specified internet cache fileInputs sCacheFile The name of the cache fileOutputs Returns True on success.Author Andrew BakerDate 03/08/2000 19:14NotesRevisionsFunction InternetDeleteCache(sCacheFile As String) As BooleanInternetDeleteCache = CBool(Delete
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1