java.txt

来自「java测试,用于窗口开发应用.是电子商务的重要练习项目」· 文本 代码 · 共 43 行

Option Explicit
Dim str1 As String
Private Sub close_click()
 Winsock1.Close
End Sub
Private Sub Connect_Click()
  Winsock1.RemoteHost = "127.0.0.1"
  Winsock1.RemotePort = 80
  Winsock1.Protocol = sckTCPProtocol
  Winsock1.Connect
End Sub

Private Sub get_Click()
  If Winsock1.State <> 7 Then
  'state=0表示winsock处于Close状态
  'state=1表示winsock处于Open状态
  'state=2表示winsock处于Listening状态
  'state=7表示winsock处于Connected状态
  'state=9表示winsock处于Error状态
  MsgBox "还未与Web Server连接号，请等待或重新连接..."
  Exit Sub
ekse
 Winsock1.SendData "GET/index.html HTTP/1.1" + Chr(13) + Chr(10) + "host:127.0.0.1" + vbCrLf + vbCrLf
 '发送HTTP的GET命令
 End If
End Sub

Private Sub head_Click()
 Winsock1.SendData "HEAD/index.html HTTP/1.1" + vbCrLf + "Host:127.0.0.1" + vbCrLf + vbCrLf
End Sub

Private Sub post_Click()
  Winsock1.SendData "POST/index.html HTTP/1.1" + vbCrLf + "Host:127.0.0.1" + vbCrLf + "Content-Type:text/plain" + vbCrLf + "Connect-Length:7" + vbCrLf + vbCrLf + "brand=A" + vbCrLf + vbCrLf
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Winsock1.GetData str1
  Text.Text = str1
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  MsgBox "Winsock出错！"
End Sub