vb显示html文件,如何在vb中显示IE里的一个html

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

晕倒,4F的又不见了, 百度真是累人啊........

'添加Command1 Winsock1

'添加Text1 Multiline要设为True 滚动条也要自己加.

Option Explicit

Dim myall As String

Private Sub Form_Load()

Winsock1.Protocol = 0

Winsock1.RemoteHost = "cbm666.com" '如果想下载"新浪"首页，则换为 sina．com．cn

Winsock1.RemotePort = 80

End Sub

Private Sub Command1_Click()

Text1.Text = ""

Winsock1.Connect '开始提取数据

End Sub

Private Sub Winsock1_Connect()

Dim strCommand As String

Dim strWebPage As String

strWebPage = "http://cbm666.com/index.htm"

strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf

strCommand = strCommand + "Accept: */*" + vbCrLf

strCommand = strCommand + "Accept: text/html" + vbCrLf

strCommand = strCommand + vbCrLf

Winsock1.SendData strCommand '发送命令

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

'开始下载，收到数据时，发生DataarriVal事件

On Error Resume Next

Dim webData As String

Winsock1.GetData webData, vbString

Text1.Text = Text1.Text & webData '取得相关的网页文件

End Sub

Private Sub Winsock1_close() '当下载完成时发生。

Winsock1.Close '关闭 Winsock

End Sub