老實(shí)說(shuō)不一定要webBrowser,這是Windows下載文件界面啊,不是VB.Net畫出來(lái)的。
創(chuàng)新互聯(lián)專注于沙市網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供沙市營(yíng)銷型網(wǎng)站建設(shè),沙市網(wǎng)站制作、沙市網(wǎng)頁(yè)設(shè)計(jì)、沙市網(wǎng)站官網(wǎng)定制、小程序制作服務(wù),打造沙市網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供沙市網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。
真的是做下載文件,WebClient.DownloadFile方法就足夠了,調(diào)用方法后會(huì)自動(dòng)彈出Windows下載任務(wù)窗口。
在VS.NET里也提供了一個(gè)com接口,可以直接調(diào)用迅雷的dll,下載文件可以讓你自由選擇是用迅雷下載還是通過(guò)Windows下載任務(wù)來(lái)執(zhí)行下載。
webBroser下載文件
FileInfo?file?=?new?System.IO.FileInfo(Server.MapPath(path));
if?(File.Exists(Server.MapPath(path)))
{
string?name?=?Path.GetFileName(Server.MapPath(path));
//存在文件
Response.Clear();
Response.Buffer?=?false;
//通知瀏覽器下載文件而不是打開?
Response.ContentType?=?"application/octet-stream";
//下載的文件名
Response.AppendHeader("content-disposition",?"attachment;filename="?+?name);
//文件的大小
Response.AppendHeader("Content-Length",???file.Length.ToString());
Response.WriteFile(path);
}
介紹一個(gè)更簡(jiǎn)單的方法給你,從webbrowser獲取點(diǎn)擊的超連接,然后自由選擇下載,先在引用里引用com組件
然后在點(diǎn)擊事件中加代碼
string?url?=?webBrowser1.Document.Links[1].GetAttribute("href");
ThunderAgentLib.AgentClass?agent?=?new??ThunderAgentLib.AgentClass();//創(chuàng)建對(duì)象?
agent.AddTask(url,?"默認(rèn)保存文件名",?"C:\\默認(rèn)路徑",?"",?"",?1,?0,?5);
agent.CommitTasks2(1);//提交
我用的是C#代碼,VB.NET大同小異
VB新勢(shì)力-vb下載 vb6下載 vb教程 vb源碼 vb試題 vb源代碼 vb控件 vb源程序 vb書籍 vb工具 vb6.0下載vb.net教程vb.net源碼
測(cè)試過(guò),可以下載
在HttpWebRequest.GetResponse運(yùn)行完畢之后,就表示網(wǎng)頁(yè)已經(jīng)加載完畢了。
如果是異步獲取HttpWebResponse,那么在HttpWebRequest.EndGetResponse之后也表示網(wǎng)頁(yè)加載完畢了。
Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
'啟動(dòng)一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)
On Error Resume Next
Dim Str_WebContent As String = "請(qǐng)輸入查找網(wǎng)站地址."
Dim wb As WebClient = New WebClient() '//創(chuàng)建一個(gè)WebClient實(shí)例
If mWebsiteUrl.IndexOf("://") 0 Then
'//獲取或設(shè)置用于對(duì)向 Internet 資源的請(qǐng)求進(jìn)行身份驗(yàn)證的網(wǎng)絡(luò)憑據(jù)。(可有可無(wú))
wb.Credentials = CredentialCache.DefaultCredentials
'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。(加@是因?yàn)榫W(wǎng)址中間有"/"符號(hào))
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
'//轉(zhuǎn)換字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent '提取出來(lái)新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時(shí)補(bǔ)充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '
End Function
我不得不說(shuō),樓主很貪心!
“選項(xiàng)卡”的已經(jīng)很不錯(cuò)了,人家勉強(qiáng)可以無(wú)償提供給你
“網(wǎng)頁(yè)縮放”,呵呵,樓主太天真了,人家有也不會(huì)把功能這么完善的給你!
誰(shuí)愿意把自己辛辛苦苦做的東西送給人家呢!
建議樓主還是先去下載一個(gè)單窗口、能前進(jìn)、后退、刷新、地址欄的小作品!然后再在這個(gè)基礎(chǔ)上自己完善一下!
簡(jiǎn)單的可以提供給你,復(fù)雜的也有,但是不免費(fèi)提供!
如果樓主需要簡(jiǎn)單的,可以HI我!
VB.NET2005是visual studo 2005 的一個(gè)組件,即VS2005包括VB.NE5 C# VC++等各種語(yǔ)言,所以你要vb.net 就要下載visual studo 2005,然后根據(jù)需要安裝vb.net就可以了,如果你是剛開始學(xué)的,微軟建議您學(xué)c# 它和vb.net有相同功能,在網(wǎng)頁(yè)上比VB.NET好用
visual studo 2005直接的微軟網(wǎng)站下載就可以了(不管那里搜的結(jié)果都是微軟網(wǎng)站上下載的),再去找一下注冊(cè)碼,這個(gè)你懂的
不過(guò)現(xiàn)在都出2010了,一般都使用VB.NET2008
S2008(2010看下面)微軟官方下載,