1. 程式人生 > >VB winsock傳送時提示 "執行時錯誤'40006'",我怎麼修改程式碼

VB winsock傳送時提示 "執行時錯誤'40006'",我怎麼修改程式碼

在這裡插入圖片描述 這個方法是很好的,但是我在用的時候出現報錯: 引數不可選 然後我改成這樣

 '判斷是否連線了,才傳送資料
         j = 1
        Do Until Winsock1.State = 7 Or j > 600
        j = j + 1
        DoEvents
       Call Sleep(3)
        Loop
        If j >= 600 Or Winsock1.State = 7 Then
    ' 1分鐘後,對方仍然未同意,連線超時.
     End If
        Winsock1.SendData bisend

雖然沒有出現頻繁的報錯40006,但是還是有錯誤發生提示: 所以我就在報錯的除錯地點之前加了

 On Error Resume Next

這個程式碼是讓程式不報錯的,我之前採用的是timer定時的,所以只要不報錯的情況下,隔一段時間就會跳出錯誤的程式碼塊