Dim st1翻譯社 st2 As String
Dim start1 As Short = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://www.google.com.tw/#q=visual+basic")
End Sub
ˋ
一般網頁內容都邑以HTML碼來出現，這可以藉由按下F12按鍵，找到該網頁的HTML碼翻譯
(這個程式需要一個TextBox、WebBrowser)
以VB來擷取網頁資料前，必須先認識網頁的HTML碼。
這是google搜索visual basic 的頁面，按下F12後，可以看到它的HTML碼(功課系統不同，出現的畫面會有差別)。
履行成效如下
如果想把網頁的一些文字或圖片擷取下來，除在網頁上拔取後複製下來，也能夠利用VB來履行這個工作翻譯假如設計適當，可以節省很多繁複的進程，也更能天真的應用資料。
這些標籤名稱可以操縱程式找出來。
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
For Each a2 As HtmlElement In WebBrowser1.Document.All
st2 &= a2.TagName & vbNewLine
Next
TextBox1.Text = st2
這些密密層層的內容，天成翻譯公司們需要注意它的標籤(Tagname)，也就是<h3、<div....這些內容。
這些Tagname必然是大寫，也是擷取或控制網頁的重要資料。
End Sub
引用自: https://blog.xuite.net/k0033a/vb2008/200829950-%E4%BB%A5VB%E6%93%B7%E5%8F%96%E7%B6%B2%E9%A0%81%E8%B3有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
