网页 抓取 innertext 试题(MainForm.frm文件代码ConfigForm.bas文件软件运行需要在当前目录新建一个目录)
优采云 发布时间: 2022-04-15 14:13网页 抓取 innertext 试题(MainForm.frm文件代码ConfigForm.bas文件软件运行需要在当前目录新建一个目录)
UrlX是我使用windows xp操作系统抓取网页外部链接时开发的一款简单软件。它可以在不弹窗的情况下浏览大部分网页，并对网页上可以使用的外部链接进行分析和爬取。. 虽然我用的是VB，但其实我并没有系统地学习过VB。所以很多函数写出来都是牵强的。
MainForm.frm 文件代码
<p>VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form MainForm
ClientHeight = 9900
ClientLeft = 60
ClientTop = 345
ClientWidth = 9375
Icon = "MainForm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 9900
ScaleWidth = 9375
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame4
Caption = "历史链接"
Height = 2535
Left = 0
TabIndex = 12
Top = 7320
Width = 9375
Begin VB.ListBox HisUrls
Height = 2220
Left = 120
TabIndex = 13
Top = 240
Width = 9135
End
End
Begin VB.Frame Frame3
Caption = "获取链接"
Height = 3135
Left = 0
TabIndex = 8
Top = 4080
Width = 9375
Begin VB.ListBox GetUrls
Height = 2760
Left = 120
TabIndex = 9
Top = 240
Width = 9135
End
End
Begin VB.Frame Frame2
Caption = "工作页面"
Height = 3255
Left = 0
TabIndex = 7
Top = 720
Width = 9375
Begin SHDocVwCtl.WebBrowser WorkPage
Height = 2895
Left = 120
TabIndex = 10
Top = 240
Width = 9135
ExtentX = 16113
ExtentY = 5106
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
End
Begin VB.Frame Frame1
Height = 615
Left = 0
TabIndex = 1
Top = 0
Width = 9375
Begin VB.CommandButton Command6
Caption = "H"
Height = 255
Left = 120
TabIndex = 11
ToolTipText = "主页"
Top = 240
Width = 375
End
Begin VB.CommandButton Command5
Caption = "S"
Height = 255
Left = 8880
TabIndex = 6
ToolTipText = "设置"
Top = 240
Width = 375
End
Begin VB.CommandButton Command4
Caption = "X"
Height = 255
Left = 8520
TabIndex = 5
ToolTipText = "停止"
Top = 240
Width = 375
End
Begin VB.CommandButton Command3
Caption = "R"
Height = 255
Left = 8160
TabIndex = 4
ToolTipText = "刷新"
Top = 240
Width = 375
End
Begin VB.CommandButton Command2
Caption = ">"
Height = 255
Left = 840
TabIndex = 3
ToolTipText = "前进"
Top = 240
Width = 375
End
Begin VB.CommandButton Command1
Caption = "
