webbrowser 技巧2　（收藏）_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

webbrowser 技巧2　（收藏）

作者：闵涛文章来源：闵涛的学习笔记点击数：2570 更新时间：2009/4/23 15:03:40

t)
    Dim sTemp As String
    Dim outStr As String
    Dim i As Integer
    Dim beginPos As Long
    Dim endPos As Long

    sTemp = WebBrowser1.Document.documentelement.InnerHTML
    ''''Text1.Text = sTemp
    i = 1
    Do While i <> 0
        i = InStr(1, sTemp, "<SCRIPT")
        If i <> 0 Then
            outStr = Left(sTemp, i - 1)
            sTemp = Right(sTemp, Len(sTemp) - i - 6)
            i = InStr(1, sTemp, "</SCRIPT>")
            If i <> 0 Then
                sTemp = Right(sTemp, Len(sTemp) - i - 8)
            End If
            sTemp = outStr & sTemp
        End If
    Loop
    WebBrowser1.Document.write sTemp
    ''''Text2.Text = sTemp
End Sub

=======================================================================

在"通用"里定义dim myhWnd() as long,dim i as integer
然后
dim newWin as form2
set newWin = new form2
newWin.Show
Set ppDisp = newWin.form2.object

redim myhWnd(i) as long
myhwnd(i)=newWin.hwnd
i=i+1

----------------------------------------------------------------

-----------------------------------------------------------------------------------------

===================================================================================
控制字体大小

webbrowser1 ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(4 - Index)

index=0-4表示从最大到最小~~

最小的话,index=4，呵呵

webbrowser1 ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,0
可以遍历页面，也可以~~

如果你只是想得到网页中的所有连接，这样就OK了~~

Option Explicit

Private Sub Command1_Click()
Command1.Enabled = False
WebBrowser1.Navigate2 Text1.Text
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Dim x As Long
List1.Clear

For x = 0 To WebBrowser1.Document.Links.length - 1
List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x
Command1.Enabled = True
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Label3 = Text
End Sub

==================================================================================================
Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
''''Omitted
#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
            AxWebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub AxWebBrowser1_NewWindow2(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) _
        Handles AxWebBrowser1.NewWindow2
            ''''MessageBox.Show(AxWebBrowser1.Height & ":" & AxWebBrowser1.Width)

            ''''MessageBox.Show(doc.body.innerHTML)
            Dim frmWB As Form1
            frmWB = New Form1()

            frmWB.AxWebBrowser1.RegisterAsBrowser = True
            ''''frmWB.AxWebBrowser1.Navigate2("about:blank")
            e.ppDisp = frmWB.AxWebBrowser1.Application
            frmWB.Visible = True
            ''''MessageBox.Show(frmWB.AxWebBrowser1.Height & ":" & frmWB.AxWebBrowser1.Width)
    End Sub

    Private Sub AxWebBrowser1_WindowSetHeight(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetHeightEvent) _
        Handles AxWebBrowser1.WindowSetHeight
            ''''MessageBox.Show("In SetHeight" & Me.Height & ":" & e.height)
            Dim heightDiff As Integer
            heightDiff = Me.Height - Me.AxWebBrowser1.Height
            Me.Height = heightDiff + e.height
    End Sub

    Private Sub AxWebBrowser1_WindowSetWidth(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetWidthEvent) _
        Handles AxWebBrowser1.WindowSetWidth
            ''''MessageBox.Show("In SetWidth" & Me.Width & ":" & e.width)
            Dim widthDiff As Integer
            widthDiff = Me.Width - Me.AxWebBrowser1.Width
            Me.Width = widthDiff + e.width
    End Sub

End Class

===================================================================================================
替换TEXTBOX的菜单。
Public Declare Function GetWindowLong Lib "user32" Alias _
                      "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As
                  Long) _
                      As Long
                  Public Declare Function SetWindowLong Lib "user32" Alias _
                      "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As
                  Long, _
                      ByVal dwNewLong As Long) As Long
                  Private Declare Function CallWindowProc Lib "user32" Alias _
                      "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd
                  _
                      As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal _
                      lParam As Long) As Long
                  Public Function SubClass_WndMessage(ByVal hWnd As _
                      OLE_HANDLE,ByVal Msg As OLE_HANDLE, ByVal wParam As
                  OLE_HANDLE, _
                      ByVal lParam As Long) As Long
                      If Msg <> WM_CONTEXTMENU Then
                          SubClass_WndMessage = CallWindowProc(OldWinProc, _
                              hWnd, Msg,wParam, lParam)
                              '''' 如果消息不是