VB.NET 美化HTML代码
2014-04-14 10:27
232 查看
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim web As New Net.WebClient Dim content As String web.Headers("Content-Type") = "application/x-www-form-urlencoded" web.Headers("Referer") = "http://tool.lu/html/" content = web.UploadString("http://tool.lu/html/ajax.html", "operate=beauty&code=" & Uri.EscapeDataString(RichTextBox1.Text)) content = Replace(content, "{""status"":true,""message"":"""",""text"":""", "") content = Replace(content, """}", "") content = System.Text.RegularExpressions.Regex.Unescape(content) RichTextBox1.Text = content End Sub
相关文章推荐
- [VB.NET源码]界面美化(免费界面控件)
- [原创]VB.net技巧之一 -------美化DataGrid格式
- [VB.NET]VB.net中winForm的dataGrid如何只能选择单行
- VB.NET DMO SQL SERVER备份恢复
- [VB.NET]急死!2005中如何更新数据源,老鸟帮帮手,立马揭帖
- VB.net 打包安装 部署
- [VB.NET]对xml表的增删改查实现
- [VB.net]飞龙·网页及贴吧操作II
- [VB.NET]DataGridView二次数据填充问题
- [VB.NET]我是新手,想让高手帮忙解决个问题
- vb.net中的正则用法
- [VB.NET]关于datagridview的两个问题!
- VB.net webbrowser 如何实现自定义下载 IDownloadManager
- VB.NET面向对象的实现(六)
- 从VB 6到VB.NET——窗体特殊应用
- 一个VB.NET与C#代码在线互转的网站
- [VB.NET].net2005中Splitter问题求助
- VB.NET Socket 入门(尚未整理完...)
- System.Predicate 通用类 vb.net c#
- VB.NET的AES加密