这个winsock连接要怎么做啊?

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:40:36
窗体上有这些:1个timer控件,1个winsock控件,tiemr控件的时间是5000毫秒
用timer来检查连接是否连接上,要求:
1.没连接,则尝试连接,连接失败,则等5000毫秒后再尝试连接.
2.若已经连接了,则什么也不做.

这样就可以检查连接是否连接上并且在没连接上时重新连接,请问要怎么做,请写出代码,谢谢!

答案修改：
代码如下。备注：那一个问题请不要关闭。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
If Winsock1.State <> sckConnected Then
Winsock1.Close
Winsock1.Connect
If Winsock1.State <> sckConnected Then MsgBox "连接失败"
End If
End Sub

r