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)
'''' 如果消息不是
上一页 [1] [2] [3] [4] 下一页 | 
