下面是引用w791212w于2008-09-23 20:35发表的 VB6web抓图:
我参考的网站http://www.blueshop.com.tw/board/show...0080817215842IQS
可是我抓下来是有啦832B一点都不像图的大小...也打不开
我抓的图位子在:http://140.111.90.8/ac/index.php...how&blogId=432
不知道大大能帮我解决吗?这实在太诡异了
一点都不诡异，我分析给你参考
----------你要捉图的网页程式码--------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0060)
http://140.111.90.8/ac/index.php...how&blogId=432 -->
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<META content="MSHTML 6.00.2900.2523" name=GENERATOR></HEAD>
<BODY><IMG src="index_php.files/index.gif"></BODY></HTML>
----------你要捉图的网页程式码--------------------
----------你参考要捉图的程式码--------------------
Dim Bilden() As Byte
Bilden() = Inet1.OpenURL("
http://140.111.90.8/ac/index.php...how&blogId=432", icByteArray)
Open "C:\432.jpg" For Binary Access Write As #1
Put #1, , Bilden()
Close #1
-----------你参考要捉图的程式码-------------------
因为C:\432.jpg 副档名是图档型态
所以 icon 是图档的 icon
如果你把 jpg 改成 txt
就会得到一个错误的提示文字档(请注意红色的部份)
-----------改成txt后的档案内容-------------------
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DT...sitional.dtd">
<html xmlns="
http://www.w3.or.../xhtml">
<head>
<title>HTTP Error 403</title>
</head>
<body>
<h1>Error 403</h1>
<p>We're sorry, but we could not fulfill your request for
/ac/index.php?op=AuthImageShow&blogId=432 on this server.</p>
<p>You do not have permission to access this server.</p>
<p>Your technical support key is: <strong>3cf4-0f6a-17f4-e8c8</strong></p>
<p>You can use this key to <a href="
http://www.ioerror.us/bb2-support...0f6a-17f4-e8c8[/url] this problem yourself</a>.</p>
<p>If you are unable to fix the problem yourself, please contact <a href="[url=mailto:admin+
nospam@nospam.yourblog.com]admin">mailto:admin+
nospam@nospam.yourblog.com">admin[/url] at yourblog.com</a> and be sure to provide the technical support key shown above.</p>
-----------改成txt后的档案内容-------------------
至于要捉图片验证码
就要看网页是否有防止站外提交
不然你可以用 WebBrowser 来试试取得Document
