用vb获取任一网页源代码,要完整的!!!,可以用webbrowser控件
展开全部
'你把下面的代码保存为Form1.frm,然后双击打开该文件,运行后按提示即可看到结果。
'呵呵,够详细了,再不会我也没办法了。
'====文件Form1.frm====
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5265
ClientLeft = 60
ClientTop = 450
ClientWidth = 9000
LinkTopic = "Form1"
ScaleHeight = 5265
ScaleWidth = 9000
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 3735
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Top = 480
Width = 8655
End
Begin VB.TextBox Text1
Height = 270
Left = 2040
TabIndex = 1
Text = "我的家"
Top = 120
Width = 4095
End
Begin VB.CommandButton Command1
Caption = "获取HTML源码"
Height = 615
Left = 3480
TabIndex = 0
Top = 4440
Width = 1575
End
Begin VB.Label Label2
Caption = "注意:获取源码之前必须先用IE打开网址,然后输入窗口标题关键字。如www.51.com的标题关键字是:我的家"
Height = 615
Left = 240
TabIndex = 4
Top = 4440
Width = 3135
End
Begin VB.Label Label1
Caption = "请输入IE窗口标题:"
Height = 255
Left = 120
TabIndex = 3
Top = 120
Width = 1815
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Function GetIeHtml(IeTitle As String) As String
Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")
Dim oShellAppWindows: Set oShellAppWindows = oShellApp.Windows
Dim owin
'获取弹出的IE窗口
For Each owin In oShellAppWindows '获取弹出的IE窗口
If LCase(TypeName(owin.Document)) = "htmldocument" And _
InStr(1, owin.LocationName, IeTitle, vbTextCompare) > 0 Then '如果找到符合条件的IE窗口
GetIeHtml = owin.Document.activeElement.Document.documentElement.innerHTML '此句可获得完整html代码
GoTo Mend '退出
End If
Next
Mend:
Set oShellAppWindows = Nothing
Set oShellApp = Nothing
Set owin = Nothing
End Function
Private Sub Command1_Click()
Dim S As String
S = GetIeHtml(Text1.Text) '表示获得标题含有"我的家"的html代码
Text2.Text = S
End Sub
Private Sub Form_Load()
'Shell "explorer.exe ""http://www.51.com/""", vbNormalNoFocus
End Sub
'呵呵,够详细了,再不会我也没办法了。
'====文件Form1.frm====
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5265
ClientLeft = 60
ClientTop = 450
ClientWidth = 9000
LinkTopic = "Form1"
ScaleHeight = 5265
ScaleWidth = 9000
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 3735
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Top = 480
Width = 8655
End
Begin VB.TextBox Text1
Height = 270
Left = 2040
TabIndex = 1
Text = "我的家"
Top = 120
Width = 4095
End
Begin VB.CommandButton Command1
Caption = "获取HTML源码"
Height = 615
Left = 3480
TabIndex = 0
Top = 4440
Width = 1575
End
Begin VB.Label Label2
Caption = "注意:获取源码之前必须先用IE打开网址,然后输入窗口标题关键字。如www.51.com的标题关键字是:我的家"
Height = 615
Left = 240
TabIndex = 4
Top = 4440
Width = 3135
End
Begin VB.Label Label1
Caption = "请输入IE窗口标题:"
Height = 255
Left = 120
TabIndex = 3
Top = 120
Width = 1815
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Function GetIeHtml(IeTitle As String) As String
Dim oShellApp: Set oShellApp = CreateObject("Shell.Application")
Dim oShellAppWindows: Set oShellAppWindows = oShellApp.Windows
Dim owin
'获取弹出的IE窗口
For Each owin In oShellAppWindows '获取弹出的IE窗口
If LCase(TypeName(owin.Document)) = "htmldocument" And _
InStr(1, owin.LocationName, IeTitle, vbTextCompare) > 0 Then '如果找到符合条件的IE窗口
GetIeHtml = owin.Document.activeElement.Document.documentElement.innerHTML '此句可获得完整html代码
GoTo Mend '退出
End If
Next
Mend:
Set oShellAppWindows = Nothing
Set oShellApp = Nothing
Set owin = Nothing
End Function
Private Sub Command1_Click()
Dim S As String
S = GetIeHtml(Text1.Text) '表示获得标题含有"我的家"的html代码
Text2.Text = S
End Sub
Private Sub Form_Load()
'Shell "explorer.exe ""http://www.51.com/""", vbNormalNoFocus
End Sub
展开全部
'你把下面的代码保存为Form1.frm,然后双击打开该文件,运行后按提示即可看到结果。
'呵呵,够详细了,再不会我也没办法了。
'====文件Form1.frm====
VERSION
5.00
Begin
VB.Form
Form1
Caption
=
"Form1"
ClientHeight
=
5265
ClientLeft
=
60
ClientTop
=
450
ClientWidth
=
9000
LinkTopic
=
"Form1"
ScaleHeight
=
5265
ScaleWidth
=
9000
StartUpPosition
=
3
'窗口缺省
Begin
VB.TextBox
Text2
Height
=
3735
Left
=
120
MultiLine
=
-1
'True
ScrollBars
=
2
'Vertical
TabIndex
=
2
Top
=
480
Width
=
8655
End
Begin
VB.TextBox
Text1
Height
=
270
Left
=
2040
TabIndex
=
1
Text
=
"我的家"
Top
=
120
Width
=
4095
End
Begin
VB.CommandButton
Command1
Caption
=
"获取HTML源码"
Height
=
615
Left
=
3480
TabIndex
=
0
Top
=
4440
Width
=
1575
End
Begin
VB.Label
Label2
Caption
=
"注意:获取源码之前必须先用IE打开网址,然后输入窗口标题关键字。如www.51.com的标题关键字是:我的家"
Height
=
615
Left
=
240
TabIndex
=
4
Top
=
4440
Width
=
3135
End
Begin
VB.Label
Label1
Caption
=
"请输入IE窗口标题:"
Height
=
255
Left
=
120
TabIndex
=
3
Top
=
120
Width
=
1815
End
End
Attribute
VB_Name
=
"Form1"
Attribute
VB_GlobalNameSpace
=
False
Attribute
VB_Creatable
=
False
Attribute
VB_PredeclaredId
=
True
Attribute
VB_Exposed
=
False
Option
Explicit
Function
GetIeHtml(IeTitle
As
String)
As
Strin
查看原帖>>
'呵呵,够详细了,再不会我也没办法了。
'====文件Form1.frm====
VERSION
5.00
Begin
VB.Form
Form1
Caption
=
"Form1"
ClientHeight
=
5265
ClientLeft
=
60
ClientTop
=
450
ClientWidth
=
9000
LinkTopic
=
"Form1"
ScaleHeight
=
5265
ScaleWidth
=
9000
StartUpPosition
=
3
'窗口缺省
Begin
VB.TextBox
Text2
Height
=
3735
Left
=
120
MultiLine
=
-1
'True
ScrollBars
=
2
'Vertical
TabIndex
=
2
Top
=
480
Width
=
8655
End
Begin
VB.TextBox
Text1
Height
=
270
Left
=
2040
TabIndex
=
1
Text
=
"我的家"
Top
=
120
Width
=
4095
End
Begin
VB.CommandButton
Command1
Caption
=
"获取HTML源码"
Height
=
615
Left
=
3480
TabIndex
=
0
Top
=
4440
Width
=
1575
End
Begin
VB.Label
Label2
Caption
=
"注意:获取源码之前必须先用IE打开网址,然后输入窗口标题关键字。如www.51.com的标题关键字是:我的家"
Height
=
615
Left
=
240
TabIndex
=
4
Top
=
4440
Width
=
3135
End
Begin
VB.Label
Label1
Caption
=
"请输入IE窗口标题:"
Height
=
255
Left
=
120
TabIndex
=
3
Top
=
120
Width
=
1815
End
End
Attribute
VB_Name
=
"Form1"
Attribute
VB_GlobalNameSpace
=
False
Attribute
VB_Creatable
=
False
Attribute
VB_PredeclaredId
=
True
Attribute
VB_Exposed
=
False
Option
Explicit
Function
GetIeHtml(IeTitle
As
String)
As
Strin
查看原帖>>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询