vb抓取网页内容(MainForm.frm文件代码ConfigForm.bas文件软件运行需要在当前目录新建一个目录)
优采云 发布时间: 2021-10-21 16:20vb抓取网页内容(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 = "
