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