你用记事本打开你的网族颂站就可以看到<body></body>（这里是衫神显示内容的）
加到前面兆塌郑跟最后面都可以，只要加到<body></body>就可以呢
代码啊……团闹首……我倒是有一塌数个，但是忘记放在硬盘的什么地方了，也没关系，我给你说个方法用inet控件，下面我给你个例子，基本上什么文件都弯锋能下，
Private Sub Command1_Click()
Dim File2() As Byte
File2() = Inet1.OpenURL("http://img.baidu.com/img/logo-zhidao.gif", icByteArray) ' Download file
Open "d:\1.gif" For Binary Access Write As #1 ' Choose local path
Put #1, , File2()
Close #1
End Sub
需要引用Internet Transfer Control控件上面的代码很简单，直接在vb中新建一个工程，在form1上放一个command1按钮，
然后把代码放到command1按钮的单击事件里面就ok了
上面的代码是下载百度知道的logo的。绝对不是病毒，如果不放心的话自己改网址也可以。^-^
"d:\1.gif" 是保存文件的地址，改成自己想保存的地方放j就ok了。
以前写的一个下载文件的函数，使用http，可直接使用灶闹。/旦乱// <summary>
/// 下载文件
/// </summary>
/// <param name="URL">下载文件地址</param>
/// <param name="Filename">模辩档下载后的存放位置</param>
private bool DownloadFile(string URL, string filename)
{
try
{
System.Net.HttpWebRequest Myrq = (System.Net.HttpWebRequest)System.Net.HttpWebRequest.Create(URL)
System.Net.HttpWebResponse myrp = (System.Net.HttpWebResponse)Myrq.GetResponse()
long totalBytes = myrp.ContentLength
System.IO.Stream st = myrp.GetResponseStream()
System.IO.Stream so = new System.IO.FileStream(uppath+"/"+filename, System.IO.FileMode.Create)
long totalDownloadedByte = 0
byte[] by = new byte[1024]
int osize = st.Read(by, 0, (int)by.Length)
int _bl=0
while (osize >0)
{
totalDownloadedByte = osize + totalDownloadedByte
so.Write(by, 0, osize)
int bl=(int)(totalDownloadedByte*100 / totalBytes)
if(bl>_bl)
_bl = bl
osize = st.Read(by, 0, (int)by.Length)
}
so.Close()
st.Close()
myrp.Close()
Myrq.Abort()
return true
}
catch (System.Exception e)
{
//do
return false
}
}
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）