UC知道vb取图片大小问题 高手来
来源：百度知道 编辑：UC知道 时间：2024/06/27 07:26:12
比方说http://www.baidu.com/ 百度这个网站
今后上面不是有个图片吗 用红字写着百度，我想用vb写个简单的程序，浏览这个网址，当网页全部打开后，在编辑框自动显示着张图片的大小，
注意：我说的大小是这张图片占用的空间(如：1023个字节。123KB)，不是这个图片的长宽。。
如果这个功能实现不了，那您也可以这样，打开网页后，自动把图片保存在硬盘特定的目录下，然后取它的大小，显示在编辑框上，然后在删除这张图片，不过我不希望用这种方法，程序运行费时间。
今后上面不是有个图片吗 用红字写着百度，我想用vb写个简单的程序，浏览这个网址，当网页全部打开后，在编辑框自动显示着张图片的大小，
注意：我说的大小是这张图片占用的空间(如：1023个字节。123KB)，不是这个图片的长宽。。
如果这个功能实现不了，那您也可以这样，打开网页后，自动把图片保存在硬盘特定的目录下，然后取它的大小，显示在编辑框上，然后在删除这张图片，不过我不希望用这种方法，程序运行费时间。
呵呵,只是取图的大小而已嘛..
Private Sub Command1_Click()
MsgBox FileSize$("http://www.baidu.com/img/logo.gif")
End Sub
Function FileSize$(Url$) '或取网络文件大小
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", Url, True
XmlHttp.SEnd
If XmlHttp.ReadyState = 4 Then FileSize = XmlHttp.getResponseHeader("Content-Length")
Set XmlHttp = Nothing
End Function