十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
建议到书店去看看,大一点的书店,这样的书挺多的,网上的大多都不太好,也不完整,最好找那种有开发步骤的,而不是净粘一堆代码的,这种东西有个大体框架,知道怎么个过程就够了,具体开发细节一步步摸索,教程里的东西大多都运行不了,再说一步步照着做也没什么长进
创新互联2013年至今,先为丹阳等服务建站,丹阳等地企业,进行企业商务咨询服务。为丹阳企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
打开VS , 选择VisualBasic -- Web -- ASP.NET Web 应用程序
如下图:
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()
'注意urladress为你上面的网页地址。
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Label1.Text = Regex.Match(sr.ReadToEnd, "回答采纳率").ToString
'sr。readtoend读取网页流到末尾,即使用正则表达式从网页流中提取“回答采纳率”,赋值给Label1.Text ‘没有则为空
sr.Dispose() '关闭流
End Sub'要提取什么东西用正则表达式最好
End Class
首先要添加一个Microsoft
Web浏览器
控件
sub
page_load()
try
AxWebBrowser1.Anchor=AnchorStyles.Top
or
AnchorStyles.Botton
or
_
AnchorStyles.Left
or
AnchorStyles.Right
AxWebBrowser1.Navigate(ComboBox1.Text)'地址栏
catch
ex
as
exception
Msgbox(ex.Message)
end
try
end
sub
sub
ComboBox1_SelectedIndexChanged()
AxWebBrowser1.Navigate(combobox1.text)
end
sub
sub
combobox1_keypress()
if
asc(e.keychar)=system.windows.forms.keys.enter
then
AxWebBrowser1.Navigate(combobox1.text)'响应回车,开始连接
end
if
end
sub
以上是在vb.net环境的代码,在vb中控件的命名肯能有点不同,比如combobox在vb中是combox.