首页
后端开发
VB
winsock实例子

winsock实例子

21 次浏览 0 条评论
rar
rar
Private Sub Form_Load() btnSend.Enabled = False btnDisconnect.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) wskClient.Close End Sub Private Sub btnConnect_Click() If Len(txtUserName) = 0 Then MsgBox "用户名不能为空!", vbCritical, "提示" Else wskClient.Connect "127.0.0.1", 9999 btnDisconnect.Enabled = True End If End Sub Private Sub btnDisconnect_Click() wskClient.Close btnConnect.Enabled = True btnSend.Enabled = False btnDisconnect.Enabled = False txtUserName.Locked = False End Sub Private Sub btnSend_Click() wskClient.SendData txtSend End Sub
rar 文件大小：11.93KB