winsock的控件程序,其中端口参数duankounum可以为0-3,  
  Select Case Index
  Case 0
  Query(0) = 0
  Query(1) = 0
  Query(2) = 0
  Query(3) = 0
  Query(4) = 0
  Query(5) = 6
  Query(6) = 1
  Query(7) = 5
  Query(8) = 0
  Query(9) = DuanKouNum
  Query(10) = &HFF
  Query(11) = 0
  Case 1
  Query(0) = 0
  Query(1) = 0
  Query(2) = 0
  Query(3) = 0
  Query(4) = 0
  Query(5) = 6
  Query(6) = 1
  Query(7) = 5
  Query(8) = 0
  Query(9) = DuanKouNum
  Query(10) = &H0
  Query(11) = 0
  End Select
  If Winsock1.State = 7 Then
  Winsock1.SendData Query
  End If
  End If
h: End Sub好使给100分,没废话