VB winsock發送時提示 "運行時錯誤'40006'"，我怎麼修改代碼

這個方法是很好的，但是我在用的時候出現報錯： 參數不可選 然後我改成這樣 '判斷是否連接了，才發送數據 j = 1 Do Until Winsock1.State = 7 Or j > 600 j = j + 1 DoEvents Call Sleep(3) Loop If j >= 6

>>阅读原文<<