网线拔掉之后 Winsock怎么再次进行连接

Question

程序启动之后  建立连接  有个定时器定时监测连接状态 如果不是sckconnected就再次进行连接
谢谢

Answer 1

我写了似乎不行
在定时器中
If Tojczx_data.State = sckConnected Then  
    MainFrm.Shape1(0).FillColor = vbGreen
Else
    MainFrm.Shape1(0).FillColor = vbRed
 '   On Error Resume Next    
    MainFrm.Tojczx_data.Connect   '出错
    DoEvents
    Dim AtrrByte(0 To 83) As Byte
    CopyMemory ByVal VarPtr(AtrrByte(0)), ByVal VarPtr(Here_JCD2), 84    Tojczx_data.SendData AtrrByte
End If

Answer 2

'   On Error Resume Next   
这里+
 MainFrm.Tojczx_data.close
    MainFrm.Tojczx_data.Connect   '出错