UC知道VB下载网络上图片资源该怎么弄啊
来源：百度知道 编辑：UC知道 时间：2024/09/20 04:12:43
谢谢说一下下，说一下函数和大概用法就Ok了
谢谢
谢谢
我刚在写这个程序。写了不一半多一点了。这个能取到图片路径了。
Private Sub Command1_Click()
a = ww.Document.body.innerHTML
shou = InStr(a, "来源: 宁波装饰网 浏览次数")
shou = InStr(shou, LCase(a), "pic/") + 4
dizhi = "http://www.cnbzs.com/pic/" & Mid(a, shou, 16)
SavePicture dizhi, "c:\1.jpg"
End Sub
Private Sub Form_Load()
ww.Navigate "http://www.cnbzs.com/ybf/ny_4378.htm"
End Sub
ww 为WebBrowser1控件。