vb采集源码
㈠ 在哪里可以找到免费的VB游戏源代码下载点
在寻找免费的VB游戏源代码时，你可以访问VB在线网站（http://www.vbzx.net/SoftList/vbzx_SoftList_8_1.asp），该网站提供了丰富的资源。维维软件园（http://www.vvsoft.net/sort/350_1.htm）也是一个不错的选择，它专门收录了各类VB游戏源代码。
如果你的目标是开发Direct接口的游戏，那么建议多关注CSDN（https://blog.csdn.net/tag/2211）和MSDN（https://docs.microsoft.com/en-us/windows/win32/directx），这两个平台提供了大量关于Direct接口的开发资源和官方文档。
除此之外，微软的官方网站也是获取VB游戏开发资料的好去处。微软官网不仅提供了详细的教程，还经常更新最新的开发工具和技术指南，帮助开发者掌握最新的技术动态。
在开发过程中，你还可以利用搜索引擎查找更多的资源。使用关键词如“VB游戏源代码”、“Direct接口游戏开发”等，可以找到更多相关的讨论和教程。记得检查代码的版权信息，确保你下载和使用的代码没有侵权问题。
另外，参与开源项目也是一个不错的选择。GitHub等平台上有很多开源的游戏项目，你可以从中学习他人的开发经验和技巧。参与开源项目还能提高你的编程技能，让你在实践中不断进步。
总之，通过多种渠道寻找和学习VB游戏源代码，结合官方文档和社区支持，可以让你在游戏开发的道路上更加顺利。希望你能够开发出令人满意的VB游戏！
㈡ 如何用vb webbrowser获取带框架网页的全部源代码
获取第1个框架的源代码：
WebBrowser1.Document.frames(0).Document.documentElement.outerHTML
遍历框架就可以得到所有的（WebBrowser1.Document.frames(0).count框架个数） ；
㈢ VB：如何通过VB获取某个网站的所有页面源代码
两种实现方式：
1、先用WebBrowser控件、iNet控件或xmlhttp组件获取网站首页代码（这个网上有一大堆介绍，就不啰嗦了），然后分析代码，找出其中的超链接，然后再逐个获取其页面代码，这里要注意的是，要区分外链和内链，外链就不要去获取代码了（否则的话如果网站上有个网络的链接，那么你的程序就要去获取网络的页面了）；另外还要控制获取的层数（比如说一级子页面是第二层，二级子页面是第三层），否则的话遇到大型网站你的程序很可能进入死循环。
2、利用浏览器的缓存来获取，主要是IE的缓存。windows系统有专门的对IE缓存进行读写操作的API函数。要想获取某个网站的源码，可以用IE打开这个网站，然后把里面的链接都手工点击一遍，使页面代码能被IE自动放入缓存文件夹中即可。当然，如果网站比较大，这个过程可能会比较繁复。然后再通过程序遍历IE的整个缓存系统，把与该网站相关的所有资源都提取出来。通过这种方法，不但可以提取HTML代码，还有js代码、css代码，以及页面上的所有图片、动画、视频等资源。我个人比较喜欢这种方法。
㈣ 如何用vb webbrowser获取带框架网页的全部源代码
你的代码写错了啊 知道吗
网页打开后：下面的代码可以取得源码，并放入srcTxt变量。
Private Sub InstallCount() 这样的统计
On Error Resume Next
Call TextHide
Call WebHide
'-------------------------MAC
Dim strComputer
Dim mac
Dim smac
㈤ 用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