请高手帮忙解释一下这段关于winsock的语句

Question

bytesRemaining应该是一个变量，用来做判断
bytesAlreadysend应该是一个常数，表示数据已经送达
winsock.state是一个属性，它有许多值，具体的意思可以看msdn
其他的好象都是变量之类的东西，没什么好解释的，要不你就把自己不明白的部分提出来

Answer 1

请大家再帮忙看看下面这段代码
Dim mycommand As String
Dim getpage As String
Private Sub Command1_Click()
  Winsock1.Connect "*.*.*.*", 80
End Sub
Private Sub Winsock1_Connect()
  On Error Resume Next
  mycommand = "http://*.*.*.*/test.htm"
  mycommand = "get" + mycommand + "http/1.0" + vbCrLf
  mycommand = mycommand + "accept:*/*" + vbCrLf
  mycommand = mycommand + "accept:text/html" + vbCrLf
  mycommand = mycommand + vbCrLf
  Winsock1.sendata strcommand
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Winsock1.GetData webdata, getpage
  
'上面这段代码 webdata,getpage表示什么意思  If InStr(Data, "content-type:") Then  'data,content-type分别表示什么意思    Dim pos, length, head
    pos = InStr(Data, vbCrLf & vbCrLf)
    length = Len(Data)
    head = Left(Data, pos - 1)
    Data = Right(Data, length - pos - 3)    '为什么data要用这个函数来取值
    
    end if
    text1=getpage'getpage表示什么意思End Sub

Answer 2

Dim mycommand As String
Dim getpage As String
Private Sub Command1_Click()
  Winsock1.Connect "*.*.*.*", 80
End Sub
Private Sub Winsock1_Connect()
  On Error Resume Next
  mycommand = "http://*.*.*.*/test.htm"
  mycommand = "get" + mycommand + "http/1.0" + vbCrLf
  mycommand = mycommand + "accept:*/*" + vbCrLf
  mycommand = mycommand + "accept:text/html" + vbCrLf
  mycommand = mycommand + vbCrLf
  '上面的代码是构造http命令
  Winsock1.sendata strcommand
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Winsock1.GetData webdata, getpage
  'webdata，收到的数据 
'上面这段代码 webdata,getpage表示什么意思  If InStr(Data, "content-type:") Then  'data,content-type分别表示什么意思
  'data 的出处你没说明，其实是重服务器上得到的数据
  'content-type是html文件中的，上面这段的意思是 在data里是否包含content-type这个字符串
  
    Dim pos, length, head
    pos = InStr(Data, vbCrLf & vbCrLf)
    length = Len(Data)
    head = Left(Data, pos - 1)
    Data = Right(Data, length - pos - 3)    '为什么data要用这个函数来取值
    '为了获得html的正文
    end if
    text1=getpage'getpage表示什么意思
'返回值的类型End Sub