電腦購物天堂

Private Sub txt_URL_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_URL.KeyPress

'txt_URL的按下鍵盤事件
If e.KeyChar = ChrW(13) Then '如果是Enter鍵的話
WebBrowser1.Navigate(sender.Text)
End If
End Sub

1.

If WebBrowser4.Busy = False Then 'BUSY可以判斷網頁是否再跑

End If

2.
Private Sub WebBrowser1_DownloadComplete()
Label1.Text= "完成"
End Sub

我使用WebBroswer將我TextBox的值要傳入WebBroswer的網頁中時,在網頁中的輸入欄卻是亂碼,

若輸入英文就不會有此問題,只有中文搜尋時會產生亂碼,我認為應該是編碼的問題,請問該如何解決?

ex:

WebBrowser2.Navigate("http://tw.lifestyle.yahoo.com/search/srp_combo.html?p=" & TextBox2.Text)
可是傳過去的值如果是中文就會變亂碼...英文就OK

sol:

Dim EncodeText As String = System.Web.HttpUtility.UrlEncode(TextBox1.Text)
WebBrowser1.Navigate("http://tw.lifestyle.yahoo.com/search/srp_combo.html?p=" & EncodeText)

WebBrowser1.Document.Window.ScrollTo(x, y)

WebBrowser1.Document.parentwindow.scrollby 10, 10 'Move
WebBrowser1.Document.DocumentElement.ScrollTop 'Top
WebBrowser1.Document.DocumentElement.ScrollLeft 'Left
WebBrowser1.Document.DocumentElement.ScrollWidth 'Width
WebBrowser1.Document.DocumentElement.ScrollHeight 'Height 

WebBrowser 参数原型：

    WebBrowser1.Navigate [Flags,][TargetFrameName,][PostData,][Headers]

' Navigates to the URL in the address box when
' the ENTER key is pressed while the ToolStripTextBox has focus.
Private Sub toolStripTextBox1_KeyDown( _
    ByVal sender As Object, ByVal e As KeyEventArgs) _
    Handles toolStripTextBox1.KeyDown

    If (e.KeyCode = Keys.Enter) Then
        Navigate(toolStripTextBox1.Text)
    End If

Dim encoding As New System.Text.ASCIIEncoding
                        url = New Uri("http://XXX.XXX.XXX.XXX/alx.asp")
                        Dim getdata As String = "/abbs/wkw/WHD2A03.jsp?sql_conction=from+W.c50+a%2CW.C52+b+where+a.crtid%3D%27KSD%27+AND+a.crtid%3Db.crtid+AND+a.crmyy%3Db.crmyy+AND+a.crmid%3Db.crmid+AND+a.crmno%3Db.crmno+AND+a.ordno%3Db.ordno+AND+trim%28a.cancel%29+is+null++AND+a.upflag%3D%27F%27++AND+a.saledate%3E%3D%270980227%27++AND+a.saledate%3C%3D%270980529%27+&pageTotal=154&pageSize=15&rowStart=1&saletype=5&proptype=C52&court=KSD&order=odcrm&query_type=session&pageNow=2"
                        Dim data As Byte() = encoding.GetBytes(getdata)
                        Dim myRequest As HttpWebRequest = HttpWebRequest.Create(url)
                        webRes = myRequest.GetResponse
                        ReadHisValue(webRes.GetResponseStream)
                        myRequest.Method = "GET"
                        myRequest.ContentLength = data.Length
                        Dim newStream As IO.Stream

Private Sub Command1_Click()
   WebBrowser1.Navigate "http://www.hinet.net"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
   WebBrowser1.SetFocus
   SendKeys "^{End}"
End Sub

GUID磁碟分割表（GUID Partition Table，縮寫：GPT）是一個實體硬碟的分割結構。

它是可延伸韌體介面標準的一部分，用來替代BIOS中的主開機紀錄分割表。

但因為MBR分割表不支援容量大於2.2TB（2.2 × 1012位元組）的分割，

所以也有一些BIOS系統為了支援大容量硬碟而用GPT分割表取代MBR分割表。

GPT分割表支援最多9.4ZB（9.4 × 1021位元組）的硬碟和分割。