vb.net当前url vb和vb net

vb.net得到收藏夹中URL文件的URL地址

打开IE浏览器，再打开收藏夹，里面就有你收藏了的一些网址，想看哪个就选中他再右击---属性。就可以知道他的URL地址了

创新互联-专业网站定制、快速模板网站建设、高性价比锡林郭勒盟网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式锡林郭勒盟网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖锡林郭勒盟地区。费用合理售后完善，十年实体公司更值得信赖。

在发送页面用get：如点击button时response.redirect（"接收页的url"?canshu=textbox.text）

；

然后在接收页面用Request.QueryString["canshu"].toString（）；这样就接受到textbox里的值了。

'GET数据通用模板,返回源码

Function DownBitmap(ByVal URL_Post As String, ByVal Referer_Post As String, ByVal Accept_Post As String, ByVal UserAgent_Post As String _

, ByVal KeepAlive_Post As Boolean, ByVal CookieContainer_Post As CookieContainer) As Bitmap

Dim HttpPostUrl As New System.Uri(URL_Post)

Dim reqp As HttpWebRequest

reqp = CType(WebRequest.Create(HttpPostUrl), HttpWebRequest)

reqp.Method = "GET"

reqp.Referer = Referer_Post

reqp.Accept = Accept_Post

reqp.UserAgent = UserAgent_Post

reqp.KeepAlive = KeepAlive_Post

reqp.CookieContainer = CookieContainer_Post '设置Cookie

Dim resP As WebResponse = reqp.GetResponse

Dim bmp As Bitmap = New Bitmap(resP.GetResponseStream)

resP.Close() '关闭

Return bmp

End Function

（转自网络）

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

WebBrowser1.Navigate("")

End Sub

Private Sub WebBrowser1_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.DocumentTitleChanged

Me.Text = WebBrowser1.Document.Url.ToString

End Sub

当前名称：vb.net当前url vb和vb net
文章路径：http://scyanting.com/article/dodopeo.html