ba45.htm

VB教程

                    <br>
                    　　Private Sub Form_Load() <br>
                    <br>
                    　　 textsend.Visible = False <br>
                    <br>
                    　　 textget.Visible = False <br>
                    <br>
                    　　 Winsockserver.LocalPort = 1001 <br>
                    <br>
                    　　 Winsockserver.Listen <br>
                    <br>
                    　　End Sub <br>
                    　 <br>
                    <br>
                    　　Private Sub textsend_Change() <br>
                    <br>
                    　　Winsockserver.SendData textsend.Text <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    <br>
                    　　Private Sub Winsockserver_Close() <br>
                    <br>
                    　　Winsockserver.Close <br>
                    <br>
                    　　End <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    　　 <br>
                    <br>
                    　　Private Sub Winsockserver_ConnectionRequest(ByVal requestID 
                    As Long) <br>
                    <br>
                    　　textsend.Visible = True <br>
                    <br>
                    　　textget.Visible = True <br>
                    <br>
                    　　If Winsockserver.State &lt;&gt; sckClosed Then Winsockserver.Close 
                    <br>
                    <br>
                    　　Winsockserver.Accept requestID <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    　　 <br>
                    <br>
                    　　Private Sub Winsockserver_DataArrival(ByVal bytesTotal As 
                    Long) <br>
                    <br>
                    　　Dim tmpstr As String <br>
                    <br>
                    　　Winsockserver.GetData tmpstr <br>
                    <br>
                    　　textget.Text = tmpstr <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    　　客户机程序使用的控件如下： <br>
                    <br>
                    　　（1）Command1：退出按钮； <br>
                    <br>
                    　　（2）Command2：连接按钮； <br>
                    <br>
                    　　（3）Winsockclient：客户Winsock； <br>
                    <br>
                    　　（4）Text1：主机名文本框； <br>
                    <br>
                    　　（5）Textsend：发送数据文本框； <br>
                    <br>
                    　　（6）Textget：接收数据文本框； 　　<br>
                    <br>
                    　　客户机程序的源代码如下： <br>
                    <br>
                    　　Private Sub Command1_Click() <br>
                    <br>
                    　　End <br>
                    <br>
                    　　End Sub <br>
                    　　 <br>
                    <br>
                    　　Private Sub Command2_Click() <br>
                    <br>
                    　　Winsockclient.Connect <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    　　 <br>
                    　　Private Sub Form_Load() <br>
                    <br>
                    　　textsend.Visible = False <br>
                    <br>
                    　　 textget.Visible = False <br>
                    <br>
                    　　 Winsockclient.RemotePort = 1001 <br>
                    <br>
                    　　Winsockclient.RemoteHost = &quot;sccdsz&quot; <br>
                    <br>
                    　　End Sub <br>
                    　 <br>
                    <br>
                    　　Private Sub Text1_Change() <br>
                    <br>
                    　　Winsockclient.RemoteHost = Text1.Text <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    　　Private Sub textsend_Change() <br>
                    <br>
                    　　Winsockclient.SendData textsend.Text <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    　　Private Sub Winsockclient_Close() <br>
                    <br>
                    　　 Winsockclient.Close <br>
                    <br>
                    　　 End <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    　　 <br>
                    　　Private Sub winsockclient_Connect() <br>
                    <br>
                    　　 textsend.Visible = True <br>
                    <br>
                    　　 textget.Visible = True <br>
                    <br>
                    　　 Command2.Visible = False <br>
                    <br>
                    　　End Sub <br>
                    　　 <br>
                    <br>
                    　　Private Sub winsockclient_DataArrival(ByVal bytesTotal As 
                    Long) <br>
                    <br>
                    　　Dim tmpstr As String <br>
                    <br>
                    　　Winsockclient.GetData tmpstr <br>
                    <br>
                    　　textget.Text = tmpstr <br>
                    <br>
                    　　End Sub <br>
                    <br>
                    　　<br>
                    转载自popcool开发专区<b>(文/宋卫华)</b></font> 
                </div>
              </td>
            </tr>
          </center>
          <tr> 
            <td width="100%" class="unnamed1"> 
              <p align=right><a href="ba44.htm">（上一页）</a>---<a href="ba46.htm">（下一页）</a></p>
            </td>
          </tr>
          <tr> 
            <td width="100%" class="unnamed1"> 
               
    </div>
      </td>
  </tr>
  <!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>