怎样用程序写代码查看网页的源代码

来源：百度知道 编辑：UC知道 时间：2024/06/19 09:08:01
用VB或者.net或者其他的语言，怎么实现浏览的网页查看源文件。
view-source:现在不能用了
谢谢。请详细讲明，我看实例2没法用

Private Sub Form_Resize()
RichTextBox1.Width = Form1.ScaleWidth
RichTextBox1.Height = Form1.ScaleHeight - 750
'以上是对richtextbox1控件大小做出的说明
End Sub

Private Sub Command1_click()
Dim Source1 As String
'给source1定下数据类型í
Source1 = Inet1.OpenURL(Text1.Text)
'获得源代码
If Source1 <> "" Then
'如果获得了源代码
RichTextBox1.Text = Source1
'显示内容
Me.Inet1.Cancel
'Inet1控件取消连接
Else
Inet1.Cancel
MsgBox ("操作出错!")
End If
Text2.Text = RichTextBox1.Text

End Sub

1
<html>

<head>
<title>按钮查看源代码</title>
<style type="text/css">BODY {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; MARGIN-LEFT: 4px; MARGIN-RIGHT: 0px; MARGIN-TOP: 0px
}
A {
COLOR: black; FONT-SIZE: 13px; FONT-WEIGHT: 400; TEXT-DECORATION: non