VB怎样读取网页的源代码，写到文本框里面

加个webbrowser控件，在该控件里打开网页。

网页代码： <input type="text" name="secanswer" id="uuuu" class="inp" 得到id=xxxxx

'自己在所在的网页找找里面的代码

'用到一个 WebBrowser1 和 command1 控件

Private Sub Command1_Click()

WebBrowser1DocumentAllItem("uuuu")Value = "输入的内容" ‘将xxxx填入（“xxxx”）

END SUB

如下函数可以实现你要的功能：

Function TestRegExp(ByVal myString$, ByVal myPattern$, Optional myMark$ = "gimt", Optional myRepString$)

If myString = "" Or myPattern = "" Then

TestRegExp = ""

DebugPrint "数据不能为空"

Exit Function

End If

'Create objects

Dim objRegExp As RegExp

Dim objMatch As Match

Dim colMatches As MatchCollection

Dim RetStr As String

Set objRegExp = New RegExp

' 正则式

objRegExpPattern = myPattern

'IIf(InStr(myPattern, "s") <> 0, "", myPattern)

' 是否区分大小写

objRegExpIgnoreCase = IIf(InStr(LCase$(myMark), "i") > 0, True, False)

' 是否全局

objRegExpGlobal = IIf(InStr(LCase$(myMark), "g") > 0, True, False)

' 是否换行

objRegExpMultiLine = IIf(InStr(LCase$(myMark), "m") > 0, True, False)

If objRegExpTest(myString) Then

If InStr(myMark, "r") > 0 Then

DebugPrint "正在替换"

RetStr = objRegExpReplace(myString, myRepString)

DebugPrint IIf(RetStr <> "", "替换结果" & Left(RetStr, 10), "没搜索到可替换字符")

Else

DebugPrint "正在搜索"

Set colMatches = objRegExpExecute(myString) ' Execute search

'MsgBox colMatchesCount

For Each objMatch In colMatches ' Iterate Matches collection

'RetStr = RetStr & objMatchFirstIndex

RetStr = RetStr & objMatchValue & vbCrLf

Next

DebugPrint IIf(RetStr <> "", "搜索结果" & Left(RetStr, 10), "没搜索到匹配结果")

End If

Else

RetStr = ""

DebugPrint "没找到任何匹配结果,请检查正则式的是否正确"

End If

TestRegExp = RetStr

End Function

用API 实现是最好的，，新建 模块 写下

Option Explicit

Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0

Public Const INTERNET_OPEN_TYPE_DIRECT = 1

Public Const INTERNET_OPEN_TYPE_PROXY = 3

Public Const scUserAgent = "Microsoft Internet Explorer 60"

Public Const INTERNET_FLAG_RELOAD = &H80000000

Public Declare Function InternetOpen Lib "wininetdll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Public Declare Function InternetOpenUrl Lib "wininetdll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Declare Function InternetReadFile Lib "wininetdll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetCloseHandle Lib "wininetdll" (ByVal hInet As Long) As Integer

Public Function GetUrlStr(URL As String) As String '调用时 URL 参数一定要带 >

以上就是关于VB怎样读取网页的源代码，写到文本框里面全部的内容，包括:VB怎样读取网页的源代码，写到文本框里面、vb 快速的取得网页源码和提取其中内容、vb高手进来下 获取网页源码好点的方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！