网站源码_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢&&源码搜搜[中文]，大家一起找最好的开源代码。
&&请提交您认为需要收录的源码网站。
获取 窗口 信息
内容索引:C#源码,网络相关,域名查询 C# 根据域名获取IP地址的小程序，输入你的域名，即可查询出该域名对应的IP地址，类似使用PING命令的功能，程序编译环境是VS2005，源程序的方法都是基础知识，对学习C#很有帮助。标签：C#, 网络相关&评论：0条
pactet.rar - C#开发的远程启动计算机及获取远程计算机IP-C# development of a long range your computer and access to remote computers IP标签：Others, CSharp&评论：0条
内容索引:C#源码,图形图像,摄像头,抓图,截屏 C#写的超简单的摄像头视频获取源代码，还可以完成视频截图，www.codefans.net编辑机没有摄像头，因此抓到的图片是一片空白，不知道能不能抓到图像，不过程序在VS2005下编译顺利，需要用的朋友自己下载重新编译一下，必竟是能看懂的程序，应该不错的。标签：图形图像, C#&评论：0条
getlist.rar - 用于获取系统中可用的驱动器列表，vb.net资源-For the acquisition system available in the list of drives, vb.net resources标签：vb, .net&评论：0条
内容索引:C#源码,系统相关,鼠标钩子 C#写的一个小程序，获取鼠标在屏幕上移动的位置，有人称它为“鼠标钩子”。这个程序其实对C#学习的朋友很管用，演示截图如上，在VS2005下顺利编译。标签：C#, 系统相关&评论：0条
GetFolderFileIcon.ra - C#代码 获取文件的图标 示例-C# code access to the document icon Example标签：Others, CSharp&评论：0条
内容索引:C#源码,系统相关,图标,文件关联 C#编程实现获取软件相关联的图标，输入扩展名就可显示出该扩展使用的图标。主要是运用API函数的SHGetFileInfo()，代码不复杂，你应该能看懂。标签：C#, 系统相关&评论：0条
Arcmapvideo.rar - 基于arengine开发的网络视频，可实时获取网络视频、图像等-Arengine developed a network-based video, real-time access to network video, images, etc标签：Visual C++, CSharp&评论：0条
APISource.zip - 一个C# 的api小实例.挺有用的.获取系统的Api等等.-A C# Small example of the api. Quite useless. Api acquisition system and so on标签：Others, CSharp&评论：0条
CPU_Mac_IP_hard.rar - C#中获取CPU序列号、网卡Mac地址、IP地址、硬盘序列号-C# Get CPU serial number, network cards Mac address, IP address, hard drive serial number标签：Others, CSharp&评论：0条
VedioCapture.zip - C#编写的摄像头获取程序。可以提取代码成为功能组件-C# Prepared camera access procedures. Code can be extracted as a functional component标签：Others, CSharp&评论：0条
Ex07_03.rar - 获取磁盘属性，非常好的参考代码，欢迎下载，免费使用，多多交流-Access to the disk properties, a very good reference code, welcome to download, free, more exchanges标签：Others, CSharp&评论：0条
TSP.rar - 利用C#画完全图，获取鼠标位置，响应鼠标事件-The use of C# Painting complete graph to obtain the mouse position, in response to mouse events标签：Others, CSharp&评论：0条
remoteaccesstocomput - 获取远程计算机硬盘信息 C#版-remote access to computer hard drives, C# version标签：Others, CSharp&评论：0条
huoqucpuxinxi.rar - 获取cpu相关信息，运用c#编写，绝对实用-Cpu access to relevant information, the use of c# development, the absolute utility标签：Visual C++, CSharp&评论：0条
ExIfMetaData.rar - 这是用于C#调用，是关于获取图片EXIF信息的一个源代码。-This is for the C# Call is on access to a picture EXIF information source标签：Others, CSharp&评论：0条
FileAttr.rar - 获取文件的各种属性.对于文件进行查看.对初学者有所帮助.-Access to document the various attributes. To view the document. Be helpful for beginners标签：Others, CSharp&评论：0条
DNSName.rar - 简单的程序 可以获取dns名字 代码简单 初学者可下而学之-simple procedures can access dns simple code name under which beginners can be acquired标签：Others, CSharp&评论：0条
accesstothelocalcomp - 获取地址，可以通过几种方法查询ip地址和主机名称！-access addresses by several methods for ip addresses and host names!标签：Others, CSharp&评论：0条
HTMLCODE.rar - 用C#编写简单获取得网页的HTML的程序-With C# Prepared a simple HTML page to obtain the procedure标签：Others, CSharp&评论：0条
CopyRight (&)
All Rights Reserved&求vb源代码：编写一个程序，能搜索并查看局域网的计算机IP，中断某计算机与公网的连接。详细代码，并注释_百度知道
求vb源代码：编写一个程序，能搜索并查看局域网的计算机IP，中断某计算机与公网的连接。详细代码，并注释
中断某计算机与公网的连接怎么办？
提问者采纳
检查本地计算机IP
确定网络范围，。，，然后一个一个PING过去。IP在线的获取MAC和计珐涪粹皇诔郝达酮惮捆算机名称~！
提问者评价
谢了，再问一下：中断某计算机与公网的连接怎么办？
其他类似问题
按默认排序
其他1条回答
你这种需求网管软件了~~里面涉及到的技能比较多~我建议还没下个免费的用用的吧~~如:网络终结者,网络法官,聚生网珐涪粹皇诔郝达酮惮捆管什么的~~
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用vb怎么编写一个获取网站数据的小程序求过程谢谢！_百度知道
用vb怎么编写一个获取网站数据的小程序求过程谢谢！
caption显示获取的数据 谢谢啦 ，还有一个web控件 ，label。通过点击一下command，label在新建工程里有一个command
提问者采纳
需要分析网页源代码，所以具体网站具体分析，很难有通用代码
比如获取这个备案号
被百度吞了，在WebBrowser1_DocumentComplete事件中写上：label1=webbroswer1.document.getelementbyid(&bottom_container&).getelementsbytagname(&span&)(0).innerTEXT
有时间吗 大神加我，好好请教你 &谢谢谢谢
提问者评价
谢谢 以后有问题就找你啦
其他类似问题
小程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁从网页源代码获取 特定内容_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：54,642贴子：
从网页源代码获取 特定内容收藏
加载这个网页已经在text2的文本框中得到源代码， 下面是部分代码&TD style=&BORDER-BOTTOM: windowtext 0.5 BORDER-LEFT: windowtext 0.5 BACKGROUND-COLOR: HEIGHT: 12.75 BORDER-TOP: BORDER-RIGHT: windowtext 0.5pt solid& class=xl25 height=17&&P align=center&&FONT size=3 face=楷体_GB2312&张学军&/FONT&&/P&&/TD&&TD style=&BORDER-BOTTOM: windowtext 0.5 BORDER-LEFT: BACKGROUND-COLOR: BORDER-TOP: BORDER-RIGHT: windowtext 0.5pt solid& class=xl25&&P align=center&&FONT size=3 face=楷体_GB2312&免疫学&/FONT&&/P&&/TD&&TD style=&BORDER-BOTTOM: windowtext 0.5 BORDER-LEFT: BACKGROUND-COLOR: BORDER-TOP: BORDER-RIGHT: windowtext 0.5pt solid& class=xl24&&P align=center&&FONT size=3 face=楷体_GB2312&巨噬细胞的信号传导&/FONT&&/P&&/TD&&TD style=&BORDER-BOTTOM: windowtext 0.5 BORDER-LEFT: BACKGROUND-COLOR: BORDER-TOP: BORDER-RIGHT: windowtext 0.5pt solid& class=xl25&&P align=center&&FONT size=3 face=楷体_GB42520&/FONT&&/P&&/TD&&/TR&&TR style=&HEIGHT: 12.75pt& height=17&如何在text3中获得 张学军
免疫学 巨噬细胞的信号传导 022-
这种操作建议用正则表达式，我把以前开发积累下来的代码贴出来，供大家参考交流。把下面的代码粘贴到模块中（需要引用【Microsoft VBScript Regular Expression 5.5】）：*---------------------------------------------------------------*基于正则表达式的与HTML相关的常用的操作函数*----------------------------------------------------------------Private Type tagProperty
Prop As String
Value As StringEnd TypePublic Type tagImg
src As String
alt As String
title As StringEnd TypePublic Type tagAnchor
href As String
title As String
Text As StringEnd TypePrivate Function RegExpMatch(ByRef srcText As String, _
ByRef ptrn As String, _
Optional ByVal gb As Boolean = False, _
Optional ByVal ic As Boolean = False, _
Optional ByVal ml As Boolean = False) As MatchCollection
Dim objRE As RegExp
Set objRE = New RegExp
With objRE
.Global = gb
.IgnoreCase = ic
.MultiLine = ml
.Pattern = ptrn
Set RegExpMatch = .Execute(srcText)
Set objRE = Nothing
End FunctionPrivate Function RegExpReplace(ByRef srcText As String, _
ByRef ptrn As String, _
Optional ByVal gb As Boolean = False, _
Optional ByVal ic As Boolean = False, _
Optional ByVal ml As Boolean = False, _
Optional ByVal replaceText As String = &&) As String
Dim objRE As RegExp
Set objRE = New RegExp
With objRE
.Global = gb
.IgnoreCase = ic
.MultiLine = ml
.Pattern = ptrn
Let RegExpReplace = .Replace(srcText, replaceText)
Set objRE = Nothing
End FunctionPrivate Function RegExpTest(ByRef srcText As String, _
ByRef ptrn As String, _
Optional ByVal ic As Boolean = False, _
Optional ByVal ml As Boolean = False) As Boolean
Dim objRE As RegExp
Set objRE = New RegExp
With objRE
.IgnoreCase = ic
.MultiLine = ml
.Pattern = ptrn
Let RegExpTest = .Test(srcText)
Set objRE = Nothing
End Function*提取成对出现的HTML标签（如&a&..&/a&）Private Function RegExpParsePairedHtmlTag(ByRef srcText As String, ByRef tagName As String) As MatchCollection
Dim ptrn As String
ptrn = &&(& & tagName & &)(\s+[a-z-]+\s*=\s*(?:&&[^&&]*&&|*[^*]**|[^\s&]+))*\s*&[\s\S]*?&/\1\s*&&
Set RegExpParsePairedHtmlTag = RegExpMatch(srcText, ptrn, True, True, False)End Function*提取自闭和的HTML标签（如&img ... /&）Private Function RegExpParseSelfClosingHtmlTag(ByRef srcText As String, ByRef tagName As String) As MatchCollection
Dim ptrn As String
ptrn = &&& & tagName & &(\s+[a-z-]+\s*=\s*(?:&&[^&&]*&&|*[^*]**|[^\s&]+))*\s*/?&&
Set RegExpParseSelfClosingHtmlTag = RegExpMatch(srcText, ptrn, True, True, False)End Function*获取某个HTML标签的全部属性和值Private Function RegExpGetTagProperties(ByRef srcText As String, ByRef tagProp() As tagProperty) As Boolean
Dim mc As MatchCollection
Dim ptrn As String
Dim iEqual As Integer
Dim sProp As String, sValue As String
ptrn = &[a-z-]+\s*=\s*(?:&&[^&&]*&&|*[^*]**|[^\s&]+)&
Set mc = RegExpMatch(srcText, ptrn, True, True)
If mc.Count Then
Dim i As Integer
ReDim tagProp(0 To mc.Count - 1)
For i = 0 To mc.Count - 1
iEqual = InStr(1, mc.Item(i).Value, &=&)
sProp = RegExpReplace(Left$(mc.Item(i).Value, iEqual - 1), &\s*&)
sValue = RegExpGetTagPropertyValue(mc.Item(i).Value, sProp)
tagProp(i).Prop = sProp
tagProp(i).Value = sValue
RegExpGetTagProperties = True
RegExpGetTagProperties = False
Set mc = Nothing
End Function*获取指定的HMTL标签属性值Private Function RegExpGetTagPropertyValue(ByRef srcText As String, ByRef sProp As String) As String
Dim mc As MatchCollection
Dim ptrn As String, sValue As String
ptrn = sProp & &\s*=\s*(?:&&[^&&]*&&|*[^*]**|[^\s&]+)&
Set mc = RegExpMatch(srcText, ptrn, False, True, False)
If mc.Count Then
sValue = RegExpReplace(mc.Item(0).Value, sProp & &\s*=\s*&, False, True)
If Asc(sValue) = 34 Or Asc(sValue) = 39 Then
*第一个字符为单引号或双引号
sValue = Mid$(sValue, 2, Len(sValue) - 2)
sValue = &&
Set mc = Nothing
RegExpGetTagPropertyValue = sValueEnd Function*去掉两边的任何空白字符Private Function RegExpRemoveSideWhiteChar(ByRef srcText As String) As String
Dim sText As String
sText = RegExpReplace(srcText, &^\s+&)
sText = RegExpReplace(sText, &\s+$&)
RegExpRemoveSideWhiteChar = sTextEnd Function*获取标签内的HTMLPrivate Function RegExpGetTagInnerHtml(ByRef srcText As String, _
ByRef tagName As String, _
Optional ByVal bRemoveSideWhiteChar As Boolean = False) As String
Dim sHtml As String
sHtml = RegExpReplace(srcText, &&& & tagName & &(\s+[a-z-]+\s*=\s*(?:&&[^&&]*&&|*[^*]**|[^\s&]+))*\s*&&, False, True)
sHtml = RegExpReplace(sHtml, &&/& & tagName & &\s*&&, False, True)
RegExpGetTagInnerHtml = IIf(bRemoveSideWhiteChar, RegExpRemoveSideWhiteChar(sHtml), sHtml)
End Function*获取标签内的文本Private Function RegExpGetTagInnerText(ByRef srcText As String, _
ByRef tagName As String, _
Optional ByVal bRemoveSideWhiteChar As Boolean = False) As String
Dim sText As String
sText = RegExpGetTagInnerHtml(srcText, tagName, True)
sText = RegExpReplace(sText, &&[a-z0-9]+([\s]+[a-z-]+[\s]*=[\s]*(?:&&[^&&]*&&|*[^*]**|[^\s&]+))*[\s]*&[\s\S]*?&/[a-z0-9]+[\s]*&&, True, True)
RegExpGetTagInnerText = IIf(bRemoveSideWhiteChar, RegExpRemoveSideWhiteChar(sText), sText)End Function
*提取网页内的全部链接Private Function RegExpParseAnchors(ByRef srcText As String, ByRef Anchor() As tagAnchor) As Boolean
Dim mc As MatchCollection
Dim tagProp() As tagProperty
Dim i As Integer, j As Integer
Dim sProp As String
Set mc = RegExpParsePairedHtmlTag(srcText, &a&)
If mc.Count Then
ReDim Anchor(0 To mc.Count - 1)
For i = 0 To mc.Count - 1
If RegExpGetTagProperties(mc.Item(i).Value, tagProp) Then
For j = LBound(tagProp) To UBound(tagProp)
sProp = LCase$(tagProp(j).Prop)
If StrComp(sProp, &href&) = 0 Then
Anchor(i).href = tagProp(j).Value
ElseIf StrComp(sProp, &title&) = 0 Then
Anchor(i).Title = tagProp(j).Value
Anchor(i).innerText = RegExpGetTagInnerText(mc.Item(i).Value, &a&, True)
Anchor(i).innerHTML = RegExpGetTagInnerHtml(mc.Item(i).Value, &a&, True)
RegExpParseAnchors = True
RegExpParseAnchors = False
Set mc = Nothing
End Function*提取网页内的全部图片Private Function RegExpParseImages(ByRef srcText As String, ByRef Img() As tagImg) As Boolean
Dim mc As MatchCollection
Dim tagProp() As tagProperty
Dim i As Integer, j As Integer
Dim sProp As String
Set mc = RegExpParseSelfClosingHtmlTag(srcText, &img&)
If mc.Count Then
ReDim Img(0 To mc.Count - 1)
For i = 0 To mc.Count - 1
If RegExpGetTagProperties(mc.Item(i).Value, tagProp) Then
For j = LBound(tagProp) To UBound(tagProp)
sProp = LCase$(tagProp(j).Prop)
If StrComp(sProp, &src&) = 0 Then
Img(i).src = tagProp(j).Value
ElseIf StrComp(sProp, &alt&) = 0 Then
Img(i).alt = tagProp(j).Value
ElseIf StrComp(sProp, &title&) = 0 Then
Img(i).Title = tagProp(j).Value
RegExpParseImages = True
RegExpParseImages = False
Set mc = Nothing
End Function*提取日期Private Function RegExpParseDate(ByRef srcText As String) As String
Dim mc As MatchCollection
Set mc = RegExpMatch(srcText, &([0-9]{4,}[-/年])*(0*[1-9]|1[0-2])[-/月](0*[1-9]|[1-2][0-9]|3[0-1])日*&)
If mc.Count Then
RegExpParseDate = mc.Item(0).Value
RegExpParseDate = &&
Set mc = NothingEnd Function*提取数字Private Function RegExpParseNumber(ByRef srcText As String) As String
Dim mc As MatchCollection
Set mc = RegExpMatch(srcText, &[0-9]+&)
If mc.Count Then
RegExpParseNumber = mc.Item(0).Value
RegExpParseNumber = &&
Set mc = NothingEnd Function
按照你的需求，你就可以这样写代码：将上面你贴出来的文本传给参数Html，核心代码如下：Private Sub ParseExample(ByRef Html As String,ByRef colInfo As Collection)
Dim mc As MatchCollection
Dim ma as Match
Set colInfo = Nothing
Set mc = RegExpParsePairedHtmlTag(Html,&p&)
If mc.Count Then
Set colInfo = New Collection
For Each ma In mc
colInfo.Add RegExpGetTagInnerText(ma.Value,&p&,True)
*colInfo返回的就是你要提取的数据End Sub
【Public Type tagAnchor
href As String
title As String
Text As StringEnd TypePrivate Function RegExpMatch(ByRef srcText As String, _】贴上来的时候排版乱了，这边End Type后面明显少了个换行符，应该看得出来的
我想说，用webbrowser控件加载这部分代码，然后用对象可以直接得到
正则提取。二楼大神给的源码实在有些看不懂，通过XMLhttp获取源码，再通过正则提取文字。提取&font&&/font&间的内容。
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或}