vb如何保存网页上的图片？

来源：百度知道 编辑：UC知道 时间：2024/05/10 05:04:50
Dim T As StringDim page As DoubleDim tpage As String（通用）Private Sub Command1_Click()page = Text1.Texttpage = Str(page)T = "http://anime.xunlei.com/Collection/origin/" & tpageT = Replace(T, " ", "")WebBrowser1.Navigate2 TText2.Text = TText1.Text = pageEnd SubPrivate Sub Command2_Click()page = page - 1tpage = Str(page)T = "http://anime.xunlei.com/Collection/origin/" & tpageT = Replace(T, " ", "")WebBrowser1.Navigate2 TText2.Text = TText1.Text = pageEnd SubPrivate Sub Command3_Click()page = page + 1tpage = Str(page)T = "http://anime.xunlei.com/Collection/origin/" & tpageT = Replace(T, " ", "")WebBrowser1.Navigate2

How To Programmatically Copy an IMG Element to the Clipboard
function copyImage(sImgID)
{
var ctrlRange = document.body.createControlRange();
ctrlRange.add(document.all(sImgID));
ctrlRange.execCommand("Copy");
}
STDMETHODIMP CMyBrowser::CopyImage(LPDISPATCH pDispDoc, VARIANT vImageID)
{
HRESULT hr = E_FAIL;
IHTMLDocument2* pDoc = NULL;
IHTMLElement* pelmBody = NULL;
IHTMLElement2* pelmBodyTwo = NULL;
IDispatch* pdispImgElement = NULL;
IDispatch* pdispCtrlRange = NULL;
IHTMLElementCollection* pColl = NULL;
IHTMLControlElement* pCtrlElement = NULL;
IHTMLControlRange* pCtrlRange = NULL;
BSTR bstrCommand = SysAllocString(L"Copy");
VARIANT_BOOL vbReturn;
VARIANT vEmpty;
VariantInit(&vEmpty);

if (pDispDoc == NULL)
goto Cleanu