如何用vb.net獲得網(wǎng)頁的源代碼

Dim url As String=" 網(wǎng)址"

讓客戶滿意是我們工作的目標(biāo)，不斷超越客戶的期望值來自于我們對(duì)這個(gè)行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡(jiǎn)單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴，公司提供的服務(wù)項(xiàng)目有：空間域名、虛擬主機(jī)、營(yíng)銷軟件、網(wǎng)站建設(shè)、城關(guān)網(wǎng)站維護(hù)、網(wǎng)站推廣。

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 獲取或設(shè)置一個(gè)值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網(wǎng)頁源代碼

如何用vb.net獲取網(wǎng)頁源代碼

使用webbrowser控件來加載網(wǎng)頁，然后再

Private

Sub

WebBrowser

1_DocumentCompleted下通過使用WebBrowser1.Document.Body.

InnerHtml

來獲取網(wǎng)頁的源代碼，或使用

WebBrowser1.Document.Body.InnerText來獲取網(wǎng)頁中的文本。之后可以通過字符串控制指令或者

正則表達(dá)式

來精確獲取到你所需的數(shù)據(jù)。

VB.NET的陽歷與農(nóng)歷轉(zhuǎn)換的算法

根據(jù)經(jīng)驗(yàn), 這個(gè)算法非常復(fù)雜. 經(jīng)過查找，終于得到一些資料, 在此愿與大家分享。 首先陰歷以月為基本單位，一個(gè)月以新月出現(xiàn)的那一天為始直至下一個(gè)新月出現(xiàn)的前一天。 由于月亮公轉(zhuǎn)的周期介于29到30天之間，陰歷的一個(gè)月也就由新月出現(xiàn)時(shí)刻的早晚或是29天或是30天。 大月為30天，小月為29天。 與陽歷不同的是，大小月在不同的年中不固定。 如春節(jié)的前一天常稱為大年三十，但有不少年如2000年的陰歷十二月只有29天。 由于十二個(gè)月的時(shí)間較陽歷年即地球繞太陽公轉(zhuǎn)一周的時(shí)間短11天左右. 為了使陰歷年與陽歷年保持相對(duì)穩(wěn)定，每隔兩三年就需要加入一個(gè)閏月。 大約每十九年要加入七個(gè)閏月。 而二十四節(jié)氣則是由地球在繞太陽公轉(zhuǎn)的軌道上的位置確定的。 以每年的冬至為始，每15度為一個(gè)節(jié)氣。 是故二十四節(jié)氣在陽歷的每月中有大概固定的日期。 古時(shí)以二十四節(jié)氣指導(dǎo)農(nóng)耕，這就是陰歷又稱農(nóng)歷的原因。 其中陽歷下半月的十二個(gè)節(jié)氣又稱為中氣。 中氣出現(xiàn)的時(shí)刻和閏月的確定有直接的關(guān)系。 陰歷的計(jì)算有下列四條規(guī)則： 1．所有新月和節(jié)氣出現(xiàn)的時(shí)刻的計(jì)算以東經(jīng)120度即東八區(qū)標(biāo)準(zhǔn)時(shí)為準(zhǔn)。 但計(jì)算1929年以前的陰歷時(shí)應(yīng)以北京即東經(jīng)116度25分的當(dāng)?shù)貢r(shí)為準(zhǔn)。 2．新月出現(xiàn)的一天為一個(gè)月的第一天。 如某個(gè)節(jié)氣的出現(xiàn)時(shí)刻也在這一天，則不論該節(jié)氣的出現(xiàn)時(shí)刻是否比新月晚，一律算落入新的一個(gè)月中。 3．每年的冬至總是落在這年的十一月中。 從一年的冬至的第二天起到下一年冬至這一天止的這段時(shí)間稱為一歲。 如一歲中有十三個(gè)新月出現(xiàn)，則這一歲為閏歲，要加入一個(gè)閏月。 4．閏歲中第一個(gè)沒有中氣的月為閏月。 因?yàn)橐粴q中只有十二個(gè)中氣，所以閏歲中至少有一個(gè)月沒有中氣，也存在有兩個(gè)月沒有中氣的可能性。 但這種情況下只有第一個(gè)沒有中氣的月為閏月。 閏月的前一個(gè)月為幾月則該閏月稱為閏幾月。 根據(jù)以上信息, 我們知道農(nóng)歷是根據(jù)天文觀測(cè)進(jìn)行指定的（也許可以在天文學(xué)的書上找到說明）。 為了簡(jiǎn)化轉(zhuǎn)換計(jì)算, 很多程序人員設(shè)計(jì)了基于"時(shí)間段內(nèi)查表"方法的例程. 更具體的說明和源碼請(qǐng)參考下面這些資料：

網(wǎng)頁題目：vb.net黃歷源碼 黃歷編輯
標(biāo)題URL：http://jinyejixie.com/article6/dosgpog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、標(biāo)簽優(yōu)化、品牌網(wǎng)站設(shè)計(jì)、服務(wù)器托管、動(dòng)態(tài)網(wǎng)站、網(wǎng)站排名

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)