怎么插入网页代码？
想把一段网页代码 集在VB里面 怎么写 请指点
2007-05-23 16:17
2007-05-23 16:24
Private Sub cmdconnect_Click()
On Error Resume Next
Winsock1.RemoteHost = txtwebserver.Text
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
On Error Resume Next
Dim strCommand As String
Dim strWebPage As String
strWebPage = txtlocation.Text
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)
On Error Resume Next
Dim webData As String
Winsock1.GetData webData, vbString
txtWebPage.Text = txtWebPage.Text + webData
End Sub
2007-05-23 17:27
2007-05-23 20:21
2007-05-23 21:18
2007-05-23 21:20
2007-05-23 21:29
2007-05-23 21:31
2007-05-23 21:38
2007-05-23 22:58
要添加什么控件