close

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

arrow
arrow
    全站熱搜

    pcman 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄