WEBBROWSER 技巧Word文档下载推荐.docx
《WEBBROWSER 技巧Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《WEBBROWSER 技巧Word文档下载推荐.docx（22页珍藏版）》请在冰豆网上搜索。
locatethefavoritesfolder
DimRAsLong
DimsPathAsString
DimIDLAsITEMIDLIST
ConstNOERROR=0
ConstMAX_LENGTH=260
R=SHGetSpecialFolderLocation（MDIMain.hwnd,CSIDL,IDL）
IfR=NOERRORThen
sPath=Space$（MAX_LENGTH）
R=SHGetPathFromIDList（ByValIDL.mkid.cb,ByValsPath）
IfRThen
SpecialFolder=Left$（sPath,InStr（sPath,vbNullChar）-1）
EndIf
====================================================================================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
全屏
是的,webbrowser本生是一个控件,你要它全屏,就是要它所在的窗体全屏,可以用setwindowlong取消窗体的title,用CallShowWindow（FindWindow（"
Shell_traywnd"
"
"
）,0）隐藏tray,就是下边那个包含开始那一行.用CallShowWindow（FindWindow（"
）,9）恢复.够详细了吧.
然后在form1.windowstate=2就可以了.
==============================================================================================================
选择网页上的内容。
PrivateSubCommand1_Click（）
'
请先选中一些内容
Me.WebBrowser1.ExecWBOLECMDID_COPY,OLECMDEXECOPT_DODEFAULT
MsgBoxClipboard.GetText
用IE来下载文件
PrivateDeclareFunctionDoFileDownloadLib"
shdocvw.dll"
（ByVallpszFileAsString）AsLong
DimsDownloadAsString
sDownload=StrConv（Text1.Text,vbUnicode）
CallDoFileDownload（sDownload）
PrivateSubForm_Load（）
Text1.Text="
http:
//www.chat.ru/~softdaily/fo-ag162.zip"
Form1.Caption="
Audiograbber1.62Full"
Text2.Text="
================================================================================================================
我要动态加载和删除WebBrowser控件应该怎么做？
Form1.Controls.Add"
shell.explorer.2"
NewWeb"
Form1
WithForm1!
NewWeb
.Visible=True
.Width=10000
.Height=10000
.Left=0
.Top=0
.Navigate2"
EndWith
PrivateSubCommand2_Click（）
Controls.RemoveForm1!
newweb
Form1.Controls.Add"
newweb（newweb.Count）,Form1
newweb（newweb.Count）
.Width=1000
.Height=1000
.Left=newweb（newweb.Count-1）.Left+newweb（newweb.Count-1）.Width
.Navigate2"
为什么他说我
这一行错误13类型不匹配？
ps：
我在form中已经有了一个newweb（0）控件
先为一个WebBrowser
DimiAsInteger
PrivateSubAddWeb_Click（）
Fori=1To10
LoadNewWeb（i）
NewWeb（i）.Top=i*100
NewWeb（i）.Left=i*100
NewWeb（i）.Visible=True
Nexti
PrivateSubDelWeb_Click（）
UnloadNewWeb（i）
=============================================================================================================
一个把页面保存为MHT（即MHTML）文件
1、
谢谢楼上几位大侠！
我现在将pcwak（书剑狂生[MSMVP]）大侠提供的资料贴出来，以供大家参考：
我终于找到一个把页面保存为MHT（即MHTML）文件的方法了!
首先，在工程中必须要引用一个库：
LibraryCDO
D:
\WINNT\System32\cdosys.dll
MicrosoftCDOforWindows2000Library
其次，需要Stream对应的接口的支持，如果你一时找不到就使用支持这个的较新的ADO就行了，如
LibraryADODB
\ProgramFiles\CommonFiles\system\ado\msado15.dll
MicrosoftActiveXDataObjects2.5Library
代码如下，十分简单（同时由于流的特点，显示在实际应用中没必要象本例中那样把文件保存到磁盘上就可直接转换为字符串或字节数组什么的处理的。
另，对于MicrosoftCDOforWindows2000Library这个库，在WIN98中要怎么使用还没试过，感兴趣的朋友可以试试并跟帖，以丰富完善其内容：
）
ReferencetoMicrosoftActiveXDataObjects2.5Library
ReferencetoMicrosoftCDOforWindows2000Library
DimiMsgAsNewCDO.Message
DimiConfAsNewCDO.Configuration
DimobjStreamAsADODB.Stream
WithiMsg
.CreateMHTMLBody"
_
domain\username"
_
password"
SetobjStream=.GetStream
CallobjStream.SaveToFile（"
f:
\test.mht"
adSaveCreateOverWrite）
EndWith
2、
首先加入对ADODB和CDO（MicrosoftCDOforWindows2000Library，对应文件名为CDOSYS.dll）的引用
DimmessageAsNewCDO.message
DimOutstreamAsADODB.Stream
OnErrorGoTomyerr1
Callmessage.CreateMHTMLBody（"
CDO.CdoMHTMLFlags.cdoSuppressNone,"
SetOutstream=message.GetStream
CallOutstream.SaveToFile（"
c:
ADODB.SaveOptionsEnum.adSaveCreateOverWrite）
MsgBox"
完成"
ExitSub
myerr1:
Setmessage=Nothing
SetOutstream=Nothing
=================================================================================================================
请问高手们怎样在WebBrowser控件调用收藏夹和在收藏夹里添加收藏
OptionExplicit
DimObjSUHAsNewShellUIHelper
ObjSUH.AddFavorite"
CSDN"
SetObjSUH=Nothing
取得网页中特定的链接
WebBrowser1.Navigate"
PrivateSubWebBrowser1_NavigateComplete2（ByValpDispAsObject,URLAsVariant）
Dima
ForEachaInWebBrowser1.Document.All
Ifa.tagname="
A"
Then
Ifa.href="
a.Click
Next
Privatem_bDoneAsBoolean
Ifm_bDoneThen
DimdocAsIHTMLDocument2
Setdoc=WebBrowser1.Document
DimaLinkAsHTMLLinkElement
SetaLink=doc.links（0）
aLink.Click
PrivateSubWebBrowser1_DocumentComplete（ByValpDispAsObject,URLAsVariant）
m_bDone=True
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Thefollowingcodecanbeusedtoqueryanddeletefilesintheinternetcache（includingcookies）.Ademonstrationroutinecanbefoundatthebottomofthispost.Note,theenumeratedtypeeCacheTypeisnotsupportedinExcel97,butcanbechangedtoalistofPublicConstantseg.PublicConsteNormal=&
H1&
.
--------------------------Types,constsandstructures
PrivateConstERROR_CACHE_FIND_FAILAsLong=0
PrivateConstERROR_CACHE_FIND_SUCCESSAsLong=1
PrivateConstERROR_FILE_NOT_FOUNDAsLong=2
PrivateConstERROR_ACCESS_DENIEDAsLong=5
PrivateConstERROR_INSUFFICIENT_BUFFERAsLong=122
PrivateConstMAX_CACHE_ENTRY_INFO_SIZEAsLong=4096
PrivateConstLMEM_FIXEDAsLong=&
H0
PrivateConstLMEM_ZEROINITAsLong=&
H40
PublicEnumeCacheType
eNormal=&
eEdited=&
H8&
eTrackOffline=&
H10&
eTrackOnline=&
H20&
eSticky=&
H40&
eSparse=&
H10000
eCookie=&
H100000
eURLHistory=&
H200000
eURLFindDefaultFilter=0&
EndEnum
PrivateTypeFILETIME
dwLowDateTimeAsLong
dwHighDateTimeAsLong
PrivateTypeINTERNET_CACHE_ENTRY_INFO
dwStructSizeAsLong
lpszSourceUrlNameAsLong
lpszLocalFileNameAsLong
CacheEntryType
AsLong
Typeofentryreturned
dwUseCountAsLong
dwHitRateAsLong
dwSizeLowAsLong
dwSizeHighAsLong
LastModifiedTimeAsFILETIME
ExpireTimeAsFILETIME
LastAccessTimeAsFILETIME
LastSyncTimeAsFILETIME
lpHeaderInfoAsLong
dwHeaderInfoSizeAsLong
lpszFileExtensionAsLong
dwExemptDelta
AsLong
--------------------------InternetCacheAPI
PrivateDeclareFunctionFindFirstUrlCacheEntryLib"
Wininet.dll"
Alias"
FindFirstUrlCacheEntryA"
（ByVallpszUrlSearchPatternAsString,lpFirstCacheEntryInfoAsAny,lpdwFirstCacheEntryInfoBufferSizeAsLong）AsLong
PrivateDeclareFunctionFindNextUrlCacheEntryLib"
FindNextUrlCacheEntryA"
（ByValhEnumHandleAsLong,lpNextCacheEntryInfoAsAny,lpdwNextCacheEntryInfoBufferSizeAsLong）AsLong
PrivateDeclareFunctionFindCloseUrlCacheLib"
（ByValhEnumHandleAsLong）AsLong
PrivateDeclareFunctionDeleteUrlCacheEntryLib"
DeleteUrlCacheEntryA"
（ByVallpszUrlNameAsString）AsLong
--------------------------MemoryAPI
PrivateDeclareFunctionLocalAllocLib"
kernel32"
（ByValuFlagsAsLong,ByValuBytesAsLong）AsLong
PrivateDeclareFunctionLocalFreeLib"
（ByValhMemAsLong）AsLong
PrivateDeclareSubCopyMemoryLib"
RtlMoveMemory"
（pDestAsAny,pSourceAsAny,ByValdwLengthAsLong）
PrivateDeclareFunctionlstrcpyALib"
（ByValRetValAsString,ByValPtrAsLong）AsLong
PrivateDeclareFunctionlstrlenALib"
（ByValPtrAsAny）AsLong
Purpose
:
Deletesthespecifiedinternetcachefile
Inputs
sCacheFile
Thenameofthecachefile
Outputs
ReturnsTrueonsuccess.
Author
AndrewBaker
Date
03/08/200019:
14
Notes
Revisions
FunctionInternetDeleteCache（sCacheFileAsString）AsBoolean
InternetDeleteCache=CBool（Delete
升级会员 