关于抓图程序的思路问题 一般来讲,我们抓图都是 得句柄 在 GETDC可是,我想写个抓网页的东西, 输入一个网址就把图抓回来,也就是说,不显示出来,在后台把图抓到,这有什么思路吗 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 BHO可以截获到输入网址的动作,你在抓图就是了. 楼上,谢谢回复,你误解了.我的程序是,在我的程序中只需输入一个网址就可以得到图片,我现在用的是 Set oBrow = New InternetExplorer oBrow.Width = 1024 oBrow.Height = 768 oBrow.Visible = True oBrow.Navigate "www.baidu.com" lHlandle = oBrow.hwnd lHlandle = FindWindowEx(lHlandle, 0, "Shell DocObject View", vbNullString) Do Sleep 500 DoEvents hWeb = FindWindowEx(lHlandle, 0, "Internet Explorer_Server", vbNullString) If hWeb <> 0 Then Exit Do Loop Do While oBrow.Busy Sleep 500 DoEvents Loop Set oBrow = Nothing SourceDC = GetDC(lHlandle) DestDC = CreateCompatibleDC(SourceDC) Bhandle = CreateCompatibleBitmap(SourceDC, 1024, 768) SelectObject DestDC, Bhandle BitBlt DestDC, 0, 0, 1024, 768, SourceDC, 0, 0, &HCC0020 Wnd = Screen.ActiveForm.hwnd OpenClipboard Wnd EmptyClipboard SetClipboardData 2, Bhandle CloseClipboard Picture1.Picture = Clipboard.GetData() SavePicture Picture1.Picture, "c:\a.jpg" DeleteDC DestDC ReleaseDC Dhandle, SourceDC这样 如果 oBrow.Visible = False 就抓不到了. 在没有打开网页的情况下抓人家的图,这叫偷拍。楼上说得对,Internet上的图片都可以按鼠标右键得到,可用Internet控件从链接地址下载。 貌似www.mndsoft.com里面有这个软件的源码……………… 门禁刷卡方式调出数据? **********我是做开发的,现在主攻3DMAX,做三维动画,大家说有前途吗,招这方面的都是什么公司,工资高吗,谢谢了 Excel进程问题. 用data控件向access中写记录老是出错! 苦练成正果,欢迎各位大虾、朋友参观我的软件。 一个关于文件二进制码(.wav)的小问题? 如何用VB语言来实现CRC校验函数? 朋友会的话,请回复好么?谢谢!!! 一个编辑框的问题,帮个忙! 如何让PictureBox向鼠标点击的地方移去 各位大神,vb通过USB和泰克MDO3032示波器进行通讯 VB6如何控制当前打开的EXCEL的工作簿间的切换? 四年没来了,散分
我的程序是,在我的程序中只需输入一个网址就可以得到图片,
我现在用的是 Set oBrow = New InternetExplorer
oBrow.Width = 1024
oBrow.Height = 768
oBrow.Visible = True
oBrow.Navigate "www.baidu.com"
lHlandle = oBrow.hwnd lHlandle = FindWindowEx(lHlandle, 0, "Shell DocObject View", vbNullString)
Do
Sleep 500
DoEvents
hWeb = FindWindowEx(lHlandle, 0, "Internet Explorer_Server", vbNullString)
If hWeb <> 0 Then Exit Do
Loop
Do While oBrow.Busy
Sleep 500
DoEvents
Loop
Set oBrow = Nothing
SourceDC = GetDC(lHlandle)
DestDC = CreateCompatibleDC(SourceDC)
Bhandle = CreateCompatibleBitmap(SourceDC, 1024, 768)
SelectObject DestDC, Bhandle
BitBlt DestDC, 0, 0, 1024, 768, SourceDC, 0, 0, &HCC0020 Wnd = Screen.ActiveForm.hwnd
OpenClipboard Wnd
EmptyClipboard
SetClipboardData 2, Bhandle
CloseClipboard Picture1.Picture = Clipboard.GetData()
SavePicture Picture1.Picture, "c:\a.jpg"
DeleteDC DestDC
ReleaseDC Dhandle, SourceDC这样 如果 oBrow.Visible = False 就抓不到了.
楼上说得对,Internet上的图片都可以按鼠标右键得到,可用Internet控件从链接地址下载。