‘壹’ vb 快速的取得网页源码和提取其中内容
如下函数可以实现你要的功能：
Function TestRegExp(ByVal myString$, ByVal myPattern$, Optional myMark$ = "gimt", Optional myRepString$)
If myString = "" Or myPattern = "" Then
TestRegExp = ""
Debug.Print "数据不能为空"
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
' 正则式
objRegExp.Pattern = myPattern
'IIf(InStr(myPattern, "s") <> 0, "", myPattern)
' 是否区分大小写
objRegExp.IgnoreCase = IIf(InStr(LCase$(myMark), "i") > 0, True, False)
' 是否全局
objRegExp.Global = IIf(InStr(LCase$(myMark), "g") > 0, True, False)
' 是否换行
objRegExp.MultiLine = IIf(InStr(LCase$(myMark), "m") > 0, True, False)
If objRegExp.Test(myString) Then
If InStr(myMark, "r") > 0 Then
Debug.Print "正在替换"
RetStr = objRegExp.Replace(myString, myRepString)
Debug.Print IIf(RetStr <> "", "替换结果" & Left(RetStr, 10), "没搜索到可替换字符")
Else
Debug.Print "正在搜索"
Set colMatches = objRegExp.Execute(myString) ' Execute search.
'MsgBox colMatches.Count
For Each objMatch In colMatches ' Iterate Matches collection.
'RetStr = RetStr & objMatch.FirstIndex
RetStr = RetStr & objMatch.Value & vbCrLf
Next
Debug.Print IIf(RetStr <> "", "搜索结果" & Left(RetStr, 10), "没搜索到匹配结果")
End If
Else
RetStr = ""
Debug.Print "没找到任何匹配结果,请检查正则式的是否正确"
End If
TestRegExp = RetStr
End Function
‘贰’ 用VB制作一个记事本 完整的源代码 界面设计
其实不就是一个简单的文本编辑器吗？http://www.moon-soft.com/download/download.asp?id=1952&no=0
下载看看
‘叁’ VB：如何通过VB获取某个网站的所有页面源代码
两种实现方式：
1、先用WebBrowser控件、iNet控件或xmlhttp组件获取网站首页代码（这个网上有一大堆介绍，就不啰嗦了），然后分析代码，找出其中的超链接，然后再逐个获取其页面代码，这里要注意的是，要区分外链和内链，外链就不要去获取代码了（否则的话如果网站上有个网络的链接，那么你的程序就要去获取网络的页面了）；另外还要控制获取的层数（比如说一级子页面是第二层，二级子页面是第三层），否则的话遇到大型网站你的程序很可能进入死循环。
2、利用浏览器的缓存来获取，主要是IE的缓存。windows系统有专门的对IE缓存进行读写操作的API函数。要想获取某个网站的源码，可以用IE打开这个网站，然后把里面的链接都手工点击一遍，使页面代码能被IE自动放入缓存文件夹中即可。当然，如果网站比较大，这个过程可能会比较繁复。然后再通过程序遍历IE的整个缓存系统，把与该网站相关的所有资源都提取出来。通过这种方法，不但可以提取HTML代码，还有js代码、css代码，以及页面上的所有图片、动画、视频等资源。我个人比较喜欢这种方法。
‘肆’ 这些vb源码什么意思
这段代码应该这样理解：
窗体上有三个文本框。在第一个文本框里输入需要执行的代码，在第二个文本框里输入需要返回的代码，然后点击按钮1
这时候就执行你列出的程序：首先在str字符串中生成一段“函数”的代码如下：
Function ReturnThis（）
……'这里就是Text1的内容
ReturnThis = ……'这里就是 Text2的内容
End Function
再下面一段就是执行这段函数代码了（具体地说很复杂，但我还是先说说）
这样的代码经常会出错，所以先设置错误收集（ On Error GoTo Err_Exit
），这里你抄写错误，在最后多了个冒号。
然后创建一个对象，设置这个对性的语言属性为vb脚本语言，设置对象的代码，执行这个对象并将结果写入text3，释放这个对象。
再下面，就是上面出错的时候的处理了。实质就是在立即窗口实处错误代码（Sc.Error.Number）和错误提示（Sc.Error.Description）、错误位置（Sc.Error.Line ）
另说一下你研究的比较深了，已经不是新手。
‘伍’ 求vb.net的源代码，最好说明其解决问题，越多越好，满意加50分。
下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nianxian As Integer '年限变量
Dim dingcun As Integer '定存变量
Dim fuli_big As Long '大复利
Dim fuli_small As Long '小复利
Dim i As Integer '循环变量
Dim DATAstring As String '数据字符串
nianxian = Val(年限_TextBox.Text)
dingcun = Val(定存_TextBox.Text)
DATAstring = ""
For i = 1 To nianxian
fuli_small = dingcun * (1 + 0.1875)
dingcun = fuli_small
fuli_big = fuli_big + fuli_small
DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)
'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)
Next
'fuli_big = fuli_small
TextBox1.Text = DATAstring
结果_TextBox.Text = Str(fuli_big) + "元"
End Sub
‘陆’ 什么是VB源码
这个词分为两部分来解释。
第一、VB
VB可以是指一种计算机语言，是Visual Basic的缩写，由美国微软公司开发；也可以指用来进行VB语言开发的开发平台，比如MicroSoft Visual Basic 6.0
计算机语言分为最早的也是最基本的机器语言（二进制语言）、低级语言（汇编）、高级语言（VB、C、C++、C#）。其中执行效率最高的是机器语言，它不需要编译可以直接被机器读懂。效率最低的是高级语言，它需要经过编译甚至多次编译才能转变为机器语言。但是高级语言是最接近自然语言的（如：英语），因此被广泛的使用。
第二、源码
类似的，用英语书写的可以用来交流的文字片断叫做文章，那么用VB语言来书写的可以被计算机编译平台理解的文字片断就叫做VB代码了。
那么如果有一个程序，是使用VB语言来写成的，那么这些VB语言就叫做该程序的VB源码
不知道这样解释楼主能不能理解
‘柒’ 请问如何用VB获取网页源码
使用Inet控件获取网页源码。
Internet Transfer 控件实现了两种广泛使用的 Internet 协议： 超文本传送协议（HyperText Transfer
Protocol）(HTTP) 和文件传送协议（File Transfer Protocol） (FTP)。使用 Internet Transfer
控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。
PrivateSubCommand1_Click()
DimstrhtmlAsString
DimSTRURLAsString
STRURL="http://www..com"
strhtml=Inet1.OpenURL(STRURL)
Text1=strhtml
EndSub
‘捌’ VB怎样设计一简易UI
可以试试用VB的shell 函数运行程序
Shell("craft_oper.exed:dataTester_barcode1.XML")
‘玖’ 高中VB编程的一些源代码
uEnd是用户定义捕捉VB输出框(MsgBox)按下按钮事件一个变量.即你的原代码 MsgBox "您确定要离开吗?", vbYesNo + vbQuestion, "离开程序"
执行按vbYes或vbNo按钮的结果参数值返回给程序以便执行下一代码.当然你不用这变量也能做到,但按钮需按两次:
Private Sub Command2_Click()
MsgBox "您确定要离开吗?", vbYesNo + vbQuestion, "离开程序"
If MsgBox("您确定要离开吗?", vbYesNo + vbQuestion, "离开程序") = vbYes Then
End
End If
End Sub
uEnd = MsgBox("您确定要离开吗?", vbYesNo + vbQuestion, "离开程序")
上句代码实际上可看作VB输出框执行结果赋值于uEnd, = 号在VB6.0中本身就应该看为赋值号.而且程序代码简洁明了,不易写错.
下面参考MSDN的有关MsgBox说明:
MsgBox 函数
在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。
MsgBox 函数示例
本示例使用 MsgBox 函数，在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”，MsgBox 函数的返回值视用户按哪一个钮而定。本示例假设 DEMO.HLP 为一帮助文件，其中有一个内容代码为 1000。
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "MsgBox Demonstration" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If
感谢你发的短消息!
该回答在由回答者修改过
‘拾’ VB怎么获取网页源码
1）使用MICROSOFT INTERNET TRANSFER CONTROL的，代码如下：
Dim strhtml As String
Dim STRURL As String
STRURL="http://www.sijiqing.com"
strhtml = Inet1.OpenURL(STRURL)
2）用System.Net命空间下的HttpWebRequest来取得，代码如下：
Dim url As String=" http://mgxx520.blog.com.cn" ' 网址
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与 Internet资源建立持久连接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码.
